Einzelnen Beitrag anzeigen

UweR

Registriert seit: 15. Mär 2004
Ort: Bad Marienberg
219 Beiträge
 
Delphi 7 Professional
 
#1

Indy-TCP-Commandos und die Replies

  Alt 7. Okt 2004, 14:55
Hallo Leute,

ich bastele mir gerade einen TCPServer zusammen der einfache Kommandos ausführt. Dafür nutze ich die Indy-Kompos mit den CommandHandlern. Das geht ja auch alles was das ausführen des Kommandos betrifft eigentlich ganz gut, nur die Rückantwort des Servers kommt irgendwie nicht richtig beim Client an. Da scheint es so zu sein als wäre da ein verschieber drin.


serverseitig setze ich die Antwort so.
Delphi-Quellcode:
procedure TForm1.IdTCPServer1TIdCommandHandler0Command(
  ASender: TIdCommand);
begin
   ASender.Reply.NumericCode := 2;
   ASender.Reply.Text.Text := 'Text2';
   ASender.Reply.TextCode := 'TextCode';
   ASender.SendReply;
end;
Wenn ich dann so auf der clientseite auslese

Delphi-Quellcode:
      nresult := IdTCPClient1.SendCmd('LogOffUser Terminator reServer', 2);
      Reply := IdTCPClient1.LastCmdResult;
kriege ich als NumericCode "0" und als Text die "2" raus.


Irgendwie habe ich den Verdacht das ich noch irgendwas grundsätzlich falsch mache. Kann mir jemand sagen was?!
Gruß
UweR
  Mit Zitat antworten Zitat