delphi - 从 ServerSocket 获取连接 ID

Question

我需要从 ServerSocket 获取连接 ID。通过客户端我发送文本，我需要知道哪个客户端发送了文本。有任何想法吗？？

Answer 1

procedure Tf_serveur.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add(Socket.RemoteAddress+'\>'+Socket.ReceiveText);``
  // Socket.RemoteAddress  is the client ip 
  // Socket.RemoteHost     is the client nameposte
  // Socket.receivetext    is the client text sinding
end;

Answer 2

我在想他指的是插座的把手

procedure TForm1.srvrsckt1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
  var connectedClientSockHandle : Integer;
begin
  connectedClientSockHandle := socket.Handle;
end;

Answer 3

我认为您应该做的是将每个新连接（在onaccept函数中）分配给一个唯一 ID（随机字母/数字），然后从 client->server 发送的每个命令都将包含该客户端的唯一 ID。