[dimfan]

Здравствуйте. Решил написать чат, нашел исходник, но в исходнике сообщения раздаются всем пользователям
код:

Код:

1 2 3 4 5 6

For i := 0 to Server.Socket.ActiveConnections - 1 do  {Проверяем - если идентификатор очередного сокета не совпадает  с идентификатором сокета, приславшего сообщение, то...} if Server.Socket.Connections[i].SocketHandle <> Socket.SocketHandle then  {... посылаем очередной клиентской программе новое сообщение}  Server.Socket.Connections[i].SendText(S);

lmikle: пользуемся тегами!!!

а я хочу чтобы юзер в клиентской части чата выбирал пользователя и сообщение отсылалось только ему. Я думал сделать так:

При выборе пользователя которому адресуется сообщение, в конец сообщения будет добавлятся ip получателя.

Вопрос: а можно по ip узнать сокет?
В программе используется TServerSocket и TClientSoket