作者使用indy的IdTcpServer,IdTcpclient传输文件(计算机应用范文)

ja**文件传输  时间:2021-01-12  阅读:()

论文范文

《使用indy的

IdTcpServer,IdTcpclient传输文件》Word格式可编辑可修改

精心整理放心阅读欢迎下载

文档信息

使用indy的IdTcpS erver,IdTcpclient传输文

接受部分有个用户和密码check你取消就可以 procedure TTCP_(AThread: TIdPeerThread) ;var FStream : TFi leStream;FileName : String; CmdStr : String;begin CmdStr :=() ;if CompareStr(Copy(CmdStr 1 6)  ' ' )=0 then begin 1Delete(CmdStr 1 6) ; Cmd := '上传文件' ;

FileName := CmdStr; if

FileExists(ExtractFilePath()+FileName) then

DeleteFile(ExtractFilePath()+FileName) ; try

FStream := (ExtractFilePath()+FileName FmCreate) ;

(FStream 2048 true) ; Finally ; ;end; end 1 else if CompareStr(Copy(CmdStr 1 6) ' ' )=0 then begin 2 Delete(CmdStr 1 6) ;

Cmd := '文件' ; Fi l eName := CmdStr; if

FileExists(ExtractFilePath()+FileName) then begin try FStream := (ExtractFilePath()+FileNameFmOpenRead) ; (FStream True False) ;

Finally ; ; end;end else begin

('Failed' ) ; ; end; end 2 else if CompareStr(Copy(CmdStr 1 6)  ' ' )=0 then begin 3

Delete(CmdStr 1 6) ; User :=

UpperCase(Trim(DecryptString(CmdStr 20504))) ; CmdStr;if CompareStr(User 'XDM' )=0 then begin

('User: '+User) ; CmdStr :=' ' ; end else begin ('User: '+User+' 非法登

陆 已关闭连接' ) ; CmdStr := ' ' ;

(' ' ) ; ; end; end 3 else if CompareStr(Copy(CmdStr 1 6)  ' ' )=0 then begin 4

[1] [2]下一页

Delete(CmdStr 1 6) ; Password :=

DecryptString(CmdStr 20504) ; CmdStr; if

CompareStr(Password ' 123abc' )=0 then begin

('Login. . . . . . . . . .Accepted' ) ;

('Connected. . . . . . '+DateTimeToStr(Now)) ; CmdStr :=' ' ; (' ' ) ; end else begin ('Password Wrong. . .Login Failure' ) ;

(' ' ) ; CmdStr :=' ' ; ; end;end; 4end;主要发送部分procedure TTCP_(Sender: TObject) ;var FStream : TFileStream;begin if then begin

(' '+ExtractFi leName(Fi leName)) ; if FileName = ' ' then MessageBox(Handle '没有选择文件'  'Error'  MB_OK) el se begin try FStream := (FileName

FmOpenRead) ; := 0; (0 0) ;

(FStream true false) ;

Finally ; ; end;

('Traferred OK' ) ; end; end else begin

MessageBox(Handl e '没有连接服务器'  'Error'  MB_Ok) ;end;end;

上一页[1] [2]

“使用indy的IdTcpServer,IdTcpcli en t传输文件”文档源于网络本人编辑整理。本着保护作者知识产权的原则仅供学习交流请勿商用。如有侵犯作者权益请作者留言或者发站内信息联系本人我将尽快删除。谢谢您的阅读与下载

天上云:香港大带宽物理机服务器572元;20Mbps带宽!三网CN2线路

天上云服务器怎么样?天上云是国人商家,成都天上云网络科技有限公司,专注于香港、美国海外云服务器的产品,有多年的运维维护经验。世界这么大 靠谱最重,我们7*24H为您提供服务,贴心售后服务,安心、省事儿、稳定、靠谱。目前,天上云香港大带宽物理机服务器572元;20Mbps带宽!三网CN2线路,香港沙田数据中心!点击进入:天上云官方网站地址香港沙田数据中心!线路说明 :去程中国电信CN2 +中国联通+...

RAKsmart便宜美国/日本/中国香港VPS主机 低至月$1.99 可安装Windows

RAKsmart 商家这几年还是在做事情的,虽然他们家顺带做的VPS主机并不是主营业务,毕竟当下的基础云服务器竞争过于激烈,他们家主营业务的独立服务器。包括在去年开始有新增多个数据中心独立服务器,包括有10G带宽的不限流量的独立服务器。当然,如果有需要便宜VPS主机的他们家也是有的,比如有最低月付1.99美元的美国VPS主机,而且可选安装Windows系统。这里商家有提供下面六款六月份的活动便宜V...

pia云低至20/月,七折美国服务器

Pia云是一家2018的开办的国人商家,原名叫哔哔云,目前整合到了魔方云平台上,商家主要销售VPS服务,采用KVM虚拟架构 ,机房有美国洛杉矶、中国香港和深圳地区,洛杉矶为crea机房,三网回程CN2 GIA,带20G防御,常看我测评的朋友应该知道,一般带防御去程都是骨干线路,香港的线路也是CN2直连大陆,目前商家重新开业,价格非常美丽,性价比较非常高,有需要的朋友可以关注一下。活动方案...

ja**文件传输为你推荐
域名服务商买域名,一定要选择好的服务商网站服务器租用网站的服务器买哪里的最好,还有租用一年大概多少钱???急!!!网站空间域名什么是网站域名和网站空间php虚拟空间php虚拟主机空间如何连接mysql虚拟空间哪个好虚拟空间哪个好网站空间免备案哪个网站有免费的免备案空间,海外港台都可什么是虚拟主机虚拟主机是什么?虚拟主机管理系统推荐几个适合windows的免费虚拟主机管理系统虚拟主机评测麻烦看一下这些虚拟主机商那个好?淘宝虚拟主机淘宝里卖虚拟主机、独立服务器、VPS的都是怎么进货的。
深圳主机租用 荷兰vps host1plus vpsio webhosting ssh帐号 ev证书 卡巴斯基永久免费版 gspeed 699美元 php空间购买 shopex主机 江苏双线服务器 优酷黄金会员账号共享 双线机房 supercache 杭州电信 汤博乐 tracker服务器 windowssever2008 更多