Delphi 多线程操作&FTP上传文件IdFTP
- type
- TMyThread = class(TThread)
- protected
- procedure Execute; override;
- end;
- procedure TMyThread.Execute;
- var
- tr : Tstrings;
- begin
- //application.ProcessMessages; //处理线程假死问题,相应一次。
- try
- Form1.Button4.Caption := '初始化FTP';
- tr := TStringlist.Create;
- Form1.IdFTP1.Host := '280i.com'; //FTP服务器地址
- Form1.IdFTP1.Username := 'username'; //FTP服务器用户名
- Form1.IdFTP1.Password := password'; //FTP服务器密码
- Form1.IdFTP1.Connect(); //连接到ftp
- Form1.IdFTP1.ChangeDir('public'); //进入到client子目录
- //IdFTP1.ChangeDir('..'); //回到上一级目录
- //IdFTP1.List(tr); //得到client目录下所有文件列表
- //Memo1.Lines.Assign(tr);
- tr.Free;
- Form1.Button4.Caption := '{开始传输}';
- Form1.IdFTP1.Put(ExtractFilePath(Application.Exename)+'data.7z',DateTimeToStr(Date()) +'-'+ FormatDateTime('hh-nn-ss',Now()) +'.data.7z');//上传,
- Form1.IdFTP1.Disconnect;
- except
- on E: Exception do
- showmessage('异常类名称:' + E.ClassName
- + #13#10 + '异常信息:' + E.Message);
- end;
- end;
- TMyThread.Create(False); //调用线程
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。