delphi idftp idhttp 多线程多进度条

    idftp 上传

     多个文件同时上传，支持断点续传，多进度条。

     起初用API做，发现对API了解太少，便改用线程类来处理，代码如下

TThread1 = class(TThread)
 private
   fCount, tstart, tlast: integer;
   tURL, tFile, temFileName,temLocalFile: string;
   tResume: Boolean;
   tStream: TFileStream;
   temFtp: TIdFTP;
   sFileName: string;
   pb: TProgressBar;
   bstate:Integer;  //1,表示准备上传，2表示正在上传，3表示上传完成，4表示上传失败

 protected
   procedure Execute; override;
 public
   constructor create1(aURL, aFile, fileName,localfile: string; bResume: Boolean; Count,
     start, last: integer);
   procedure DownLodeFile(); //上传文件
  // function SetProgressInListView(lvw: TListView): Boolean; //在listview中动态创建进度条
   procedure StateChange;       //上传状态改变<