delphixe IdTCPServer 广播实例

下面是一个简单的 Delphi 示例代码，演示了如何使用 IdTCPServer 组件实现广播消息给所有连接的客户端：

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  s: string;
begin
  // 读取客户端发送的消息
  s := AContext.Connection.IOHandler.ReadLn;
  
  // 将消息广播给所有连接的客户端
  IdTCPServer1.Contexts.LockList;
  try
    for var i := 0 to IdTCPServer1.Contexts.Count -1 do
    begin
      var Ctx := TIdContext(IdTCPServer1.Contexts[i]);
      Ctx.Connection.IOHandler.WriteLn(s);
    end;
  finally
    IdTCPServer1.Contexts.UnlockList;
  end;
end;

上述代码中，我们通过 `IdTCPServer1Execute` 方法来处理客户端发送的消息。首先我们调用 `AContext.Connection.IOHandler.ReadLn` 方法来读取客户端发送的消息。然后我们遍历所有连接的客户端，将消息广播给所有客户端。最后，我们使用 `IOHandler.WriteLn` 方法将消息发送给客户端。

注意，此示例代码仅用于演示目的，实际应用中需要更加完善的错误处理和安全性措施。