Ответ клиенту...

[prizrak1390]

Доброе время суток))
У меня возник глупый вопрос, но тем не менее я не могу найти выход...
Допустим к серверу(на основе компонента Serversocket) подключилось некоторое количество клиентов(на основе компонентов Clientsocket). И какой нить клиент прислал к примеру строку 'hello'. Как сделать так, что бы сервер ответил именно этому клиенту(тобишь по этому адрессу). Вроде можно как то вот так Serversocket1.socket.connections... .. но я что то не пойму как это сделать. Помогите плииииз

[Stilet]

Так ведь есть событие OnClientRead, в нем и работай с сокетом, который написал тебе мессагу.

[prizrak1390]

Просто когда я пытаюсь при помощи SENDTEXT ответить , у меня выскакивает ошибка(

[prizrak1390]

Как устранить эту ошибку?

[alexBlack]

Покажите как Вы отправляете. Или прикрепите проект - посмотрим.

[prizrak1390]

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
mg,s,ui,contactname,contactpass,tmp:string;
i,uid,hum,iu:integer;
ms: TMemoryStream;
begin
mg:=socket.ReceiveText;
.....
if mg='get_serverid' then Serversocket1.Socket.SendText('serverid['+serverid+']');
..............
end;

serversocket1 Уже включен....

[alexBlack]

Не, для отправки клиенту нужно использовать Socket из параметров:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;   
  Socket: TCustomWinSocket);   
...   
begin  
    mg:=socket.ReceiveText;   
   ....
    Socket.SendText('text');   
   ..............   
end;

или Server.Socket.Connections[N].SendText(S);
но тогда нужно знать номер клиента в списке

Server.Socket.Connections[N] = тому самому Socket из параметров OnClientRead

[prizrak1390]

Сейчас попробуем

[prizrak1390]

СПАСИБО) РАБОТАЕТ!!!!!!!!