[dimfan]

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

Код:

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