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

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

新版本Apache HTTP Server 2.4.51发布更新(有安全漏洞建议升级)

今天中午的时候看到群里网友在讨论新版本的Apache HTTP Server 2.4.51发布且建议更新升级,如果有服务器在使用较早版本的话可能需要升级安全,这次的版本中涉及到安全漏洞的问题。Apache HTTP 中2.4.50的修复补丁CVE-2021-41773 修复不完整,导致新的漏洞CVE-2021-42013。攻击者可以使用由类似别名的指令配置将URL映射到目录外的文件的遍历攻击。这里...

Sharktech云服务器35折年付33美元起,2G内存/40G硬盘/4TB流量/多机房可选

Sharktech又称SK或者鲨鱼机房,是一家主打高防产品的国外商家,成立于2003年,提供的产品包括独立服务器租用、VPS云服务器等,自营机房在美国洛杉矶、丹佛、芝加哥和荷兰阿姆斯特丹等。之前我们经常分享商家提供的独立服务器产品,近期主机商针对云虚拟服务器(CVS)提供优惠码,优惠后XS套餐年付最低仅33.39美元起,支持使用支付宝、PayPal、信用卡等付款方式。下面以XS套餐为例,分享产品配...

无忧云-河南洛阳BGP,CEPH集群分布式存储,数据安全可靠,活动期间月付大优惠!

 无忧云怎么样?无忧云服务器好不好?无忧云值不值得购买?无忧云是一家成立于2017年的老牌商家旗下的服务器销售品牌,现由深圳市云上无忧网络科技有限公司运营,是正规持证IDC/ISP/IRCS商家,主要销售国内、中国香港、国外服务器产品,线路有腾讯云国外线路、自营香港CN2线路等,都是中国大陆直连线路,非常适合免备案建站业务需求和各种负载较高的项目,同时国内服务器也有多个BGP以及高防节点...

文件传输加速为你推荐
美国虚拟主机空间请经验丰富的高手给指导一下,我想选择适合个人网站应用的美国虚拟主机(空间),都是哪些服务商比较好?国外虚拟空间哪里买的100m海外虚拟空间便宜稳定?网站域名怎么知道一个网站域名是什么啊!查询ip如何查IP网址空间域名空间和域名是什么?台湾主机台湾的电脑硬件比韩国,日本,美国强?郑州虚拟主机59互联 亿恩科技 和郑州景安那一个公司的虚拟主机最好!我指的是速度和服务!谢谢!请大家凭良心说话!最好的虚拟主机哪家的虚拟主机比较好?四川虚拟主机222.214.218.100 请问这个IP是哪个服务商提供的?shopex虚拟主机浙江新锐网络科技有限公司是一家骗子虚拟主机商
西安域名注册 上海vps wordpress主机 rak机房 老左博客 512m内存 免空 双拼域名 200g硬盘 91vps 免费全能主机 美国网站服务器 umax120 免费dns解析 银盘服务是什么 闪讯官网 带宽租赁 云服务是什么意思 宿迁服务器 卡巴斯基官网下载 更多