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

gcorelabs远东khabarovsk伯力Cloud云服务器测评,告诉你gcorelabs云服务器怎么样

说明一下:gcorelabs的俄罗斯远东机房“伯力”既有“Virtual servers”也有“CLOUD SERVICES”,前者是VPS,后者是云服务器,不是一回事;由于平日大家习惯把VPS和云服务器当做一回事儿,所以这里要特别说明一下。本次测评的是gcorelabs的cloud,也就是云服务器。 官方网站:https://gcorelabs.com 支持:数字加密货币、信用卡、PayPal...

ATCLOUD-KVM架构的VPS产品$4.5,杜绝DDoS攻击

ATCLOUD.NET怎么样?ATCLOUD.NET主要提供KVM架构的VPS产品、LXC容器化产品、权威DNS智能解析、域名注册、SSL证书等海外网站建设服务。 其大部分数据中心是由OVH机房提供,其节点包括美国(俄勒冈、弗吉尼亚)、加拿大、英国、法国、德国以及新加坡。 提供超过480Gbps的DDoS高防保护,杜绝DDoS攻击骚扰,比较适合海外建站等业务。官方网站:点击访问ATCLOUD官网活...

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

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

ja**文件传输为你推荐
域名空间代理现在代理域名空间赚钱吗免费虚拟空间找个免费的虚拟主机空间,20M以上的独立ip主机独立IP主机和CDN主机的详细区别?中国互联网域名注册负责我国境内internet用户域名注册是什么机构空间域名服务器和空间域名什么意思成都虚拟空间空间服务商那个好成都虚拟空间成都有没有能玩ps主机游戏的网咖?深圳网站空间菜鸟问:网站空间如何选择,与空间的基本知识?免费网站空间申请需要一个免费的网站空间申请地址。北京网站空间什么样的网站空间好
域名注册使用godaddy 已备案域名出售 免费动态域名 edis tier rackspace linkcloud 优惠码 腾讯云数据库 godaddy域名证书 架设服务器 空间论坛 七夕快乐英文 php空间推荐 cdn加速原理 国外ip加速器 跟踪路由命令 域名与空间 空间登录首页 带宽租赁 更多