delphi idftp idhttp 多线程多进度条

在 Delphi 中使用 IdFTP 和 IdHTTP 进行多线程下载并显示多个进度条的方法如下：

1. 使用 TThread 类创建一个新的线程，将 IdFTP 或 IdHTTP 放在其中。

2. 在新线程中使用 Synchronize 方法更新主线程中的进度条控件。

3. 在主线程中创建多个进度条控件，并将每个控件与一个下载任务相关联。

4. 在新线程中，使用 OnWork 事件来更新相关的进度条控件。

示例代码如下：

type
  TDownloadThread = class(TThread)
  private
    FUrl: string;
    FLocalPath: string;
    FProgressBar: TProgressBar;
    FIdFTP: TIdFTP; //或者是FIdHTTP: TIdHTTP;
    procedure DoUpdateProgress;
  protected
    procedure Execute; override;
  public
    constructor Create(const AUrl, ALocalPath: string; AProgressBar: TProgressBar); overload;
  end;

constructor TDownloadThread.Create(const AUrl, ALocalPath: string; AProgressBar: TProgressBar);
begin
  inherited Create(False);
  FUrl := AUrl;
  FLocalPath := ALocalPath;
  FProgressBar := AProgressBar;
  FreeOnTerminate := True;
  FIdFTP := TIdFTP.Create(nil); //或者是FIdHTTP := TIdHTTP.Create(nil);
  FIdFTP.OnWork := OnWork;
end;

procedure TDownloadThread.Execute;
begin
  FIdFTP.Get(FUrl, FLocalPath);
end;

procedure TDownloadThread.DoUpdateProgress;
begin
  FProgressBar.Position := FIdFTP.TransferProgress;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Thread: TDownloadThread;
begin
  for i := 0 to 9 do
  begin
    ProgressBarList[i] := TProgressBar.Create(Self);
    ProgressBarList[i].Parent := Self;
    ProgressBarList[i].Top := i * 20;
    ProgressBarList[i].Left := 0;
    ProgressBarList[i].Width := 200;
    ProgressBarList[i].Max := 100;
    ProgressBarList[i].Visible := True;

    Thread := TDownloadThread.Create(UrlList[i], LocalPathList[i], ProgressBarList[i]);
  end;
end;

procedure TForm1.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
var
  Thread: TDownloadThread;
begin
  Thread := TDownloadThread(CurrentThread);
  if Assigned(Thread) then
    Thread.Synchronize(Thread.DoUpdateProgress);
end;

在上述代码中，我们创建了一个名为 TDownloadThread 的自定义线程。这个线程包含了一个 IdFTP 或 IdHTTP 控件，以及一个进度条控件。在线程的 Execute 方法中，我们调用了 IdFTP 或 IdHTTP 的 Get 方法来下载文件。在 OnWork 事件中，我们使用 Synchronize 方法来更新进度条控件的值。在主窗体中，我们创建了多个进度条控件，并将每个控件与一个下载任务相关联。当下载完成时，线程会自动销毁。

需要注意的是，这里只是提供了一种实现方法，并不保证适用于所有情况。如果您遇到了问题，可以尝试使用其他方法来解决。