[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........;  <<<<<<<
        .......... 


[Pilot_Red]

что первое в голову пришло

Код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);

begin
  if ServerSocket1.Socket.Connections[i]=Socket then showmessage(inttostr(i));
end;

[NumLock]

а зачем вообще этот номер потребовался? к тому же он меняется для клиента во время жизни сервера - клиенты имеют свойство отключаться. а так в событии OnClientRead сокет-клиент и так передается Socket: TCustomWinSocket. если для каждого клиента нужно сопоставлять какие-то свои данные, то у TCustomWinSocket есть свойтсво Data: Pointer для хранения пользовательских данных, которые можно инициализировать в событии OnClientConnect.

[LiderServis]

Сообщение от NumLock

... Data: Pointer ...

спасибо )))

[LiderServis]

А Socket.SocketHandle пойдет как идентификатор клиента ?

[v1s2222]

Я бы как идентификатор использовал IP клиента (Socket.RecvAddr не помню точно как пишется).