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

  1. type  
  2.   TMyThread = class(TThread)  
  3.   protected  
  4.     procedure Execute; override;  
  5.   end;  
  6.   
  7. procedure TMyThread.Execute;  
  8. var  
  9.   tr : Tstrings;  
  10. begin  
  11.  //application.ProcessMessages;  //处理线程假死问题,相应一次。  
  12.  try  
  13.   Form1.Button4.Caption := '初始化FTP';  
  14.   tr := TStringlist.Create;  
  15.   Form1.IdFTP1.Host := '280i.com'; //FTP服务器地址  
  16.   Form1.IdFTP1.Username := 'username'; //FTP服务器用户名  
  17.   Form1.IdFTP1.Password := password'; //FTP服务器密码  
  18.   Form1.IdFTP1.Connect();  //连接到ftp  
  19.   Form1.IdFTP1.ChangeDir('public'); //进入到client子目录  
  20.   //IdFTP1.ChangeDir('..'); //回到上一级目录  
  21.   //IdFTP1.List(tr); //得到client目录下所有文件列表  
  22.   //Memo1.Lines.Assign(tr);  
  23.   tr.Free;  
  24.   Form1.Button4.Caption := '{开始传输}';  
  25.   Form1.IdFTP1.Put(ExtractFilePath(Application.Exename)+'data.7z',DateTimeToStr(Date()) +'-'+ FormatDateTime('hh-nn-ss',Now()) +'.data.7z');//上传,  
  26.   Form1.IdFTP1.Disconnect;  
  27.   
  28.   
  29. except  
  30.     on E: Exception do  
  31.       showmessage('异常类名称:' + E.ClassName  
  32.         + #13#10 + '异常信息:' + E.Message);  
  33.   
  34.  end;  
  35. end;  
  36.   
  37. TMyThread.Create(False);  //调用线程  

发表回复

登录... 后才能评论