Не получается отправить сообщение на сервер

[zver777]

Использую компоненты tclientsocket и tserversocket.

Запускаю в одной копии программы сервер. Во второй подключаюсь к серверу. Соединение проходит успешно. С сервера могу посылать сообщения на клиент. А при отправке с клиента на сервер выдаёт такую ошибку



Отправляю таким методом

client.Socket.SendText('blablabla');

Никак не могу понять в чём ошибка.

[betirsolt]

ClientSocket1.Socket.SendText(s);
у меня вот так работает...

[zver777]

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

[Пепел Феникса]

а сокет открыт?

[zver777]

Сообщение от Пепел Феникса

а сокет открыт?

Простите, но не понял что это значит
Можно поподробней?

[nix01d]

Покажите как сервер принимает данные

[zver777]

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
richedit1.lines.Add(server.Socket.ReceiveText);
end;

[nix01d]

richedit1.lines.Add(Socket.ReceiveText);

Вот так пробуй

[zver777]

Заработало.
Спасибо!!!