[AleD]

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

И еще. Как ответить тому, кто послал запрос на ServerSocket
Ответить надо прибл. так:

Код:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo2.Lines.Text:= Socket.ReceiveText; 
  ServerSocket1.Socket.Connections.SendText(Memo2.Lines.Text);
end;

ЗЫ с сокетами никогда не работал. Прошу вашей помощи.

дак и отвечай ему:

Код:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo2.Lines.Text:= Socket.ReceiveText; 
  Socket.SendText(Memo2.Lines.Text);
end;

а насчёт первого, я не совсем уверен, но я перед переробатыванием ReceivedText, записываю её в переменную и тока потом эту переменную обрабатываю, а то сокеты очищают её после первого чтения