Показать сообщение отдельно
  #1  
Старый 26.05.2013, 18:48
body5 body5 вне форума
Прохожий
 
Регистрация: 26.05.2013
Сообщения: 1
Версия Delphi: Delphi XE
Репутация: 10
По умолчанию Правильная работа с компонентом TTcpClient

Здравствуйте. Имеется набор из двух клиентов и инди-сервера. Первый клиент отправляет пакеты на сервер, тот обрабатывает данные и отдает второму клиенту. Подскажите пожалуйста, как правильно посылать данные в клиент, чтобы вызывался обработчик OnReceive. Пробовал разные команды, ничего не получается. С приемом пакетов на сервер проблем нет.
Вот кусок кода (событие OnExecute для сервера):
Цитата:
begin
case AContext.Connection.Socket.Binding.Port of
12340:
begin
// Принимаем от клиента строку
str := AContext.Connection.Socket.ReadString(12);
i := 1;
while (i <= length(str)) do
begin
a := ord(str[i]);
Memo1.Lines.Add(inttostr(a));
inc(i);
end;
end;
12341:
begin
AContext.Connection.Socket.WriteLn(str);
end;
При таком подходе выдается ошибка 'Socket Error #10054 Connection reset by peer.' Смотрел кое-какую литературу, но мало что понял по своей проблеме, если честно. В другом месте ничего не объяснили и сказали, что несу бред, может здесь помогут.
Ответить с цитированием