摘要：
unit uTestThread;interfaceuses Classes, Windows, SysUtils, IdHTTP, IdComponent, Math, Messages;const WM_DownProgres = WM_USER + 1001;type TTestThread = class(TThread) private FIDHttp: TIdHTTP; //封装的idhttp实例 FMaxProgres: Int64; FURL: string; FSavePath: string; FHandle: THandle; { Private declarations 阅读全文
摘要：
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表示. 阅读全文