VPF::написание сервера с использованием IdTcpServer

mickalaj

Дата 17.2.2011, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 17.2.2011

Репутация: нет
Всего: нет

Стоит такая задача.

Есть терминал(железка) коннектиться с сервером, посылает ему строку, сервер обрабатывает её и посылает ответ в виде строки. Проблема состоит в том, что терминал не получает ответ.

Код


procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  MesRequest : string;//приходящее сообщение
  temp : string;//ответ
  LengMes : cardinal;
  CurrentDateTime : string;
begin
  Request := TParMessage.Create; //класс занимаеться обработкой запросов
  Reply := TResponseMessage.Create//формирование ответа
  LengMes := AThread.Connection.ReadSmallInt;//длина запроса
  MesRequest := AThread.Connection.ReadString(LengMes-2);//сам запрос

  Request.LengMessage := LengMes;
  Request.MyMessage := MesRequest;
  Request.Pars;


  temp := Reply.SendMessage(0);//ответ
  AThread.Connection.Write(temp);//посылка ответа
    end;

mickalaj

Дата 17.2.2011, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 17.2.2011

Репутация: нет
Всего: нет

проблему решил, к теме не имела отношения

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »