Стоит такая задача.
Есть терминал(железка) коннектиться с сервером, посылает ему строку, сервер обрабатывает её и посылает ответ в виде строки. Проблема состоит в том, что терминал не получает ответ.| Код |
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;
|
|