Получить идентификатор соединения от ServerSocket

Question

Мне нужно получить идентификатор соединения от ServerSocket. По клиенту я отправляю текст, и мне нужно знать, какой клиент отправил текст. Есть идеи??

Answer 1

Я имею в виду, что он имеет в виду ручки гнезда

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

Answer 2

Я думаю, что вы должны сделать, это иметь каждое новое соединение (в функции onaccept) присваивается уникальный идентификатор (случайные буквы/номера), то каждая команда, отправленная с client-> server, будет содержать уникальный идентификатор этого клиента.

Answer 3

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;