[LiderServis]

Как можна узнать номер по порядку Connections клиента с которого пришло сообщение на процедуру ClientRead (не заставляя клиенту подавать сообщение идентификации), если к одному порту ServerSocket подключено несколько клиентов, что бы тип Socket: TCustomWinSocket дал это знать (так как при отправке сообщения ServerSocket-ом есть такая процедура ServerSocket1.Socket.Connections[i].SendText(...)), типа :

PHP код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
VAR
        S : STRING;
        NPort, Nconect : integer;
begin
        S:=Socket.ReceiveText;
        NPort:=Socket.LocalPort;
        Nconect:=Socket........;  <<<<<<<
        ..........