TIdTCPServer.OnConnect 是从主线程调用的吗？

Question

我不知道在TIdTCPServer.OnConnect或OnDisconnect事件中从主线程访问数据是否可以。这个方法是从主线程还是其他线程调用的？我想在TMemo 中记录IP，并启用或禁用一些按钮。

Answer 1

TIdTCPServer 是一个多线程组件。它的OnConnect、OnDisconnect、OnExecute 和OnException 事件都在由事件的TIdContext 对象表示的工作线程的上下文中触发。该线程在 TIdContext.Connection 属性中管理客户端 TCP 连接。

OnListenException 事件在不同工作线程的上下文中触发，该工作线程侦听客户端连接并创建 TIdContext 线程。

所以是的，TIdTCPServer 事件处理程序在访问 UI 控件和其他共享数据时必须与主线程同步。

Answer 2

我相信，它会在自己的线程上下文中被调用。使用 Synchronize() 或 Queue() 更好地保护...示例：

procedure TMainForm.IdTCPSyncServerConnect(AContext: TIdContext);
var
  AClientIP: string;
begin
 
  AClientIP := AContext.Binding.PeerIP;
  TThread.Synchronize(nil,
    procedure
    var lItem : TListItem;
    begin
      Inc(FClientCount);
      lblClientConnections.Caption := IntToStr(FClientCount);
      lItem := lstClients.Items.Add;
      lItem.Caption := AClientIP;
      lItem.SubItems.Add(AClientIP);
      lItem.SubItems.Add(DateTimeToStr(Now));
    end
  );
end;