Delphi 多线程操作&FTP上传文件IdFTP

指尖风暴技术信息 8 年前 0 472

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); //调用线程

声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。