Delphi多线程IdTCPClient.Connect致主界面卡顿的解决方法

1. 改用异步连接替代阻塞Connect #

Indy的TIdTCPClient提供ConnectAsync异步连接方法，避免子线程内长时间阻塞等待，同时降低线程资源占用。修改线程执行逻辑：

procedure TTcpThread.Execute;
var
  TCP: TIdTCPClient;
  I: Integer;
begin
  for I := Idx*8 to (Idx*8)+7 do
  begin
    TCP := TIdTCPClient.Create(nil);
    try
      TCP.Host := '192.168.1.' + I.ToString;
      TCP.Port := 9999;
      TCP.ConnectTimeout := 500;
      // 启动异步连接
      TCP.ConnectAsync;
      // 等待连接完成或线程终止
      while TCP.Connecting do
      begin
        Sleep(10);
        CheckTerminated;
        if Terminated then Break;
      end;
      // 连接成功则断开
      if TCP.Connected then TCP.Disconnect;
    finally
      TCP.Free;
    end;
  end;
end;

2. 限制并发线程数，使用线程池 #

32个线程同时运行会占用大量系统资源，导致UI线程调度优先级被压低。改用TThreadPool控制并发数（建议8-10个）：

// 在Form类中添加线程池成员
type
  TForm3 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FThreadPool: TThreadPool;
  public
  end;

// 初始化线程池并提交扫描任务
procedure TForm3.FormShow(Sender: TObject);
var
  I: Integer;
begin
  FThreadPool := TThreadPool.Create;
  FThreadPool.MaxPoolSize := 10; // 限制最大并发线程数
  for I := 0 to 31 do
  begin
    TTask.Create(procedure
    var
      ThreadIdx: Integer;
      TCP: TIdTCPClient;
      J: Integer;
    begin
      ThreadIdx := I;
      for J := ThreadIdx*8 to (ThreadIdx*8)+7 do
      begin
        TCP := TIdTCPClient.Create(nil);
        try
          TCP.Host := '192.168.1.' + J.ToString;
          TCP.Port := 9999;
          TCP.ConnectTimeout := 500;
          try
            TCP.Connect;
            TCP.Disconnect;
          except
          end;
        finally
          TCP.Free;
        end;
      end;
    end).Start;
  end;
end;

// 释放线程池
procedure TForm3.FormDestroy(Sender: TObject);
begin
  FThreadPool.Free;
end;

3. 使用TIdMultiTCPClient批量处理连接 #

TIdMultiTCPClient是Indy专为多服务器连接设计的组件，内部自动管理连接线程，无需手动创建大量线程：

// 在Form类中添加TIdMultiTCPClient成员
type
  TForm3 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FMultiTCP: TIdMultiTCPClient;
  public
  end;

// 初始化批量连接任务
procedure TForm3.FormShow(Sender: TObject);
var
  I: Integer;
  ConnItem: TIdConnectionItem;
begin
  FMultiTCP := TIdMultiTCPClient.Create(nil);
  FMultiTCP.Port := 9999;
  FMultiTCP.ConnectTimeout := 500;
  FMultiTCP.ReadTimeout := 1000;

  // 添加所有待扫描的IP
  for I := 0 to 255 do
  begin
    ConnItem := FMultiTCP.Add;
    ConnItem.Host := '192.168.1.' + I.ToString;
  end;

  // 连接成功后自动断开
  FMultiTCP.OnConnect := procedure(Sender: TObject; AConnection: TIdTCPConnection)
  begin
    AConnection.Disconnect;
  end;

  // 启动异步批量连接
  FMultiTCP.StartListening;
end;

// 释放批量连接组件
procedure TForm3.FormDestroy(Sender: TObject);
begin
  FMultiTCP.Free;
end;

4. 避免子线程操作UI元素 #

如果后续需要在扫描过程中更新UI，必须通过Synchronize或Queue方法切换到主线程执行，绝对不能在子线程中直接操作VCL控件：

// 子线程中更新UI的示例
procedure TTcpThread.LogScanResult(const IP: string; const IsSuccess: Boolean);
begin
  Synchronize(procedure
  begin
    Form3.Memo1.Lines.Add(Format('IP: %s, 扫描结果: %s', [IP, IfThen(IsSuccess, '成功', '失败')]));
  end);
end;

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