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

NameSilo域名优惠码活动

NameSilo是通过之前的感恩节优惠活动中认识到这家注册商的,于是今天早上花了点时间专门了解了NameSilo优惠码和商家的详细信息。该商家只销售域名,他们家的域名销售价格还是中规中矩的,没有像godaddy域名标价和使用优惠之后的价格悬殊很大,而且其特色就是该域名平台提供免费的域名停放、免费隐私保护等功能。namesilo新注册域名价格列表,NameSilo官方网站:www.namesilo....

PQ.hosting全线9折,1Gbps带宽不限流量VPS/€3/月,全球11大机房可选

Hostadvice主机目录对我们的服务进行了测试,然后给PQ.hosting颁发了十大WordPress托管奖。为此,宣布PQ.Hosting将在一周内进行折扣优惠,购买和续订虚拟服务器使用优惠码:Hostadvice ,全部优惠10%。PQ.hosting,国外商家,成天于2019年,正规公司,是全球互联网注册商协会 RIPE 的成员。主要是因为提供1Gbps带宽、不限流量的基于KVM虚拟的V...

快云科技,美国VPS 2H5G独享20M 仅售19.8/月  年付仅需148

快云科技已稳步运行进两年了 期间没出现过线路不稳 客户不满意等一系列问题 本司资质齐全 持有IDC ICP ISP等正规手续 有独特的网站设计理念 在前几天刚是参加过魔方系统举行的设计大赛拿获最佳设计奖第一名 本公司主营产品 香港弹性云服务器,美国vps和日本vps,香港物理机,国内高防物理机以及美国日本高防物理机 2020年的国庆推出过一款香港的回馈用户特惠机 已作为传家宝 稳定运行 马上又到了...

ja**文件传输为你推荐
linux虚拟主机linux下最好的虚拟机是什么呢 VMware 还是virtualbox海外服务器租用国外服务器租用与国内服务器有哪些区别ip代理地址IP代理什么意思?免费vps服务器免费VPS服务器。和免费的好用虚拟主机me域名me域名好不好用?美国vps租用如何租用到最快的美国服务器网站空间购买怎么购买一个网站空间及购买注意事项独立ip虚拟主机独立ip空间的虚拟主机一般多少钱淘宝虚拟主机请问在淘宝的代购国外虚拟主机可以买吗?长沙虚拟主机长沙双线虚拟主机湖南稳定双线虚拟主机湖南双线主机租用推荐一个?
万网域名空间 域名服务dns的主要功能为 如何注销域名备案 hostigation 新加坡主机 星星海 美国主机评论 java主机 128m内存 免备案cdn gateone 表格样式 美国php主机 web服务器架设软件 韩国网名大全 个人空间申请 中国电信测速112 域名转向 刀片服务器的优势 域名评估 更多