如何实现非UI阻塞的IdFTP.Get文件下载？

IdFTP的Get方法是同步阻塞式的，会占用主线程导致UI卡死，下面是三种实用解决方式：

1. 使用TThread封装下载逻辑 #

把下载操作放到独立线程中执行，主线程只负责触发下载，线程完成后再同步更新UI状态：

type
  TFTPDownloadThread = class(TThread)
  private
    FHost, FUsername, FPassword, FRemoteFile, FLocalFile: string;
    FIdFTP: TIdFTP;
    procedure UpdateUIFinish;
  protected
    procedure Execute; override;
  public
    constructor Create(const AHost, AUsername, APassword, ARemoteFile, ALocalFile: string);
    destructor Destroy; override;
  end;

constructor TFTPDownloadThread.Create(const AHost, AUsername, APassword, ARemoteFile, ALocalFile: string);
begin
  inherited Create(True); // 创建后挂起，手动启动
  FHost := AHost;
  FUsername := AUsername;
  FPassword := APassword;
  FRemoteFile := ARemoteFile;
  FLocalFile := ALocalFile;
  FreeOnTerminate := True; // 线程结束自动释放
end;

destructor TFTPDownloadThread.Destroy;
begin
  FIdFTP.Free;
  inherited;
end;

procedure TFTPDownloadThread.Execute;
begin
  FIdFTP := TIdFTP.Create(nil);
  try
    FIdFTP.Host := FHost;
    FIdFTP.Username := FUsername;
    FIdFTP.Password := FPassword;
    FIdFTP.Connect;
    try
      FIdFTP.Get(FRemoteFile, FLocalFile);
    finally
      FIdFTP.Disconnect;
    end;
    Synchronize(UpdateUIFinish); // 回到主线程更新UI
  except
    on E: Exception do
      Synchronize(procedure
        begin
          ShowMessage('下载失败：' + E.Message);
        end);
  end;
end;

procedure TFTPDownloadThread.UpdateUIFinish;
begin
  ShowMessage('下载完成');
  // 这里可以更新UI控件状态，比如按钮启用、进度重置等
end;

// 双击列表项时调用
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
  RemoteFile, LocalFile: string;
begin
  RemoteFile := ListBox1.Items[ListBox1.ItemIndex];
  LocalFile := 'C:\Downloads\' + RemoteFile;
  TFTPDownloadThread.Create(IdFTP1.Host, IdFTP1.Username, IdFTP1.Password, RemoteFile, LocalFile).Start;
end;

2. 使用TTask异步执行（Delphi XE6+） #

利用Delphi并行库的TTask简化异步操作，代码更简洁：

uses
  System.Threading;

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
  RemoteFile, LocalFile, Host, Username, Password: string;
begin
  RemoteFile := ListBox1.Items[ListBox1.ItemIndex];
  LocalFile := 'C:\Downloads\' + RemoteFile;
  Host := IdFTP1.Host;
  Username := IdFTP1.Username;
  Password := IdFTP1.Password;

  TTask.Run(procedure
    var
      FTP: TIdFTP;
    begin
      FTP := TIdFTP.Create(nil);
      try
        FTP.Host := Host;
        FTP.Username := Username;
        FTP.Password := Password;
        FTP.Connect;
        try
          FTP.Get(RemoteFile, LocalFile);
        finally
          FTP.Disconnect;
        end;
        // 回到主线程更新UI
        TThread.Synchronize(nil, procedure
          begin
            ShowMessage('下载完成');
          end);
      except
        on E: Exception do
          TThread.Synchronize(nil, procedure
            begin
              ShowMessage('下载失败：' + E.Message);
            end);
      end;
      FTP.Free;
    end);
end;

3. 使用TIdAntiFreeze组件（简单场景） #

如果不想写线程代码，可以用Indy自带的TIdAntiFreeze组件，它会在同步操作中处理UI消息循环，避免卡死：

• 在窗体上放置一个TIdAntiFreeze组件，默认属性即可（Active=True）
• 直接在主线程调用Get，此时UI不会完全阻塞，能响应基本操作：

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
  RemoteFile, LocalFile: string;
begin
  RemoteFile := ListBox1.Items[ListBox1.ItemIndex];
  LocalFile := 'C:\Downloads\' + RemoteFile;
  try
    IdFTP1.Get(RemoteFile, LocalFile);
    ShowMessage('下载完成');
  except
    on E: Exception do
      ShowMessage('下载失败：' + E.Message);
  end;
end;

注意：TIdAntiFreeze只是缓解阻塞，本质还是在主线程执行，大文件下载时UI仍会有卡顿，复杂场景优先用线程/TTask方案。

内容的提问来源于stack exchange，提问作者realtebo