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

华纳云,3折低至优惠云服务器,独立服务器/高防御服务器低至6折,免备案香港云服务器CN2 GIA三网直连线路月付18元起,10Mbps带宽不限流量

近日华纳云发布了最新的618返场优惠活动,主要针对旗下的免备案香港云服务器、香港独立服务器、香港高防御服务器等产品,月付6折优惠起,高防御服务器可提供20G DDOS防御,采用E5处理器V4CPU性能,10Mbps独享CN2 GIA高速优质带宽,有需要免备案香港服务器、香港云服务器、香港独立服务器、香港高防御服务器、香港物理服务器的朋友可以尝试一下。华纳云好不好?华纳云怎么样?华纳云服务器怎么样?...

Gcore(75折)迈阿密E5-2623v4 CPU独立服务器

部落分享过多次G-core(gcorelabs)的产品及评测信息,以VPS主机为主,距离上一次分享商家的独立服务器还在2年多前,本月初商家针对迈阿密机房限定E5-2623v4 CPU的独立服务器推出75折优惠码,活动将在9月30日到期,这里再分享下。G-core(gcorelabs)是一家总部位于卢森堡的国外主机商,主要提供基于KVM架构的VPS主机和独立服务器租用等,数据中心包括俄罗斯、美国、日...

VoLLcloud6折限量,香港CMI云服务器三网直连-200M带宽

vollcloud LLC首次推出6折促销,本次促销福利主要感恩与回馈广大用户对于我们的信任与支持,我们将继续稳步前行,为广大用户们提供更好的产品和服务,另外,本次促销码共限制使用30个,个人不限购,用完活动结束,同时所有vps产品支持3日内无条件退款和提供免费试用。需要了解更多产品可前往官网查看!vollcloud优惠码:VoLLcloud终生6折促销码:Y5C0V7R0YW商品名称CPU内存S...

ja**文件传输为你推荐
广东虚拟主机西部数码和中国万网,哪家的虚拟主机哪个好,用过的说说?免费vps服务器免费VPS服务器。和免费的好用虚拟主机php虚拟空间我已经有一套网站php代码和模板,并且有自己的虚拟空间和域名,怎么才能把我的代码加入到网站上.网站空间商个人网站备案如何从空间商到备案网站空间免备案免备案网站空间哪个好shopex虚拟主机支持PHPwind、ShopEx等建站程序的主机什么最好?虚拟主机提供商那个提供商的虚拟主机比较便宜,不要小牌子,服务要好域名网站域名和网址的区别主要有什么域名信息查询有哪些官网可查询 域名信息比较全?域名批量查询有好米域名批量查询好用吗?
.cn域名注册 个人注册域名 我的世界服务器租用 租服务器价格 北京vps主机 godaddy主机 建站代码 中国特价网 京东商城双十一活动 789电视剧 smtp虚拟服务器 路由跟踪 电信宽带测速软件 免费赚q币 新网dns websitepanel 中美互联网论坛 服务器是什么 文件传输 主机箱 更多