Скачать: CL | DM;

TServerSocket - проблема получения и обработки сообщения   Найти похожие ветки 

← →
Volf_555   (2005-10-16 23:32) [0]

Проблема следующая:
На клиентской машине у меня пишется:
ClientSocket1.Open;
ClientSocket1.Socket.SendText(edit1.Text);

Припустим, edit1.Text:="Проверка";

Как на сервере обработать присланный текст?
P.S.: Следующий код выводит на экран пустое сообщение:

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
 Socket: TCustomWinSocket);
begin
ShowMessage(Socket.ReceiveText);
end;

---

← →
t1   (2005-10-17 00:27) [1]

> ServerSocket1ClientWrite


Уверен, что нужное событие обрабатываешь?

---

← →
Volf_555   (2005-10-17 00:52) [2]

Не совсем. А как правильно будет? Какой метод вызывается?

---

← →
Volf_555   (2005-10-17 01:12) [3]

Во все методы поставил ShowMessage(Socket.ReceiveText); - ни один не работает! В чём решение этого вопроса лежит?

---

← →
t1   (2005-10-17 01:18) [4]

Client/ServerSocket - событийные компоненты, следовательно, в обработчиках событий нужно производить действия.

Последовательность действий такая:

Клиент:
C.Connect
в C.OnConnect: C.Socket.Sendtext

Сервер:
в OnClientRead читаем данные.

---

← →
Volf_555   (2005-10-17 01:47) [5]

Спасибо - работает, но не до конца.
OnClientRead - срабатывает так, что сперва показывается пустое сообщение, а потом то сообщение, которое отправил. В чём теперь ошибка?

---

← →
Digitman ©   (2005-10-17 11:55) [6]

если в обработчике On[Client]Read результат вызова Socket.ReceiveLength равен нулю, то нет смысла и ReceiveText() вызывать

а уж если и вызвал и получил пустую строку, то нет смысла ShowMessage() вызывать

разве это не очевидно ?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.973 c