Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#1

ClientSocket Text mit Start und Endekennung senden

  Alt 16. Jan 2007, 11:20
Hallo Wissende,

Ich möchte über die ClientSocket eine Verbindung zu einer anderen Software aufbauen und dieser einen Text senden. Die Verbindung habe ich schon hinbekommen. Das Senden funktioniert auch.

Aber leider will das andere Programm eine Start- und Endekennung für das Textprotokoll haben. Start = 2 und Ende ist 3. Mein Kollege sagte mir, dass ich das als Asci-Code schicken muss. Damit stellt sich mir aber die Fragen, wie ich das machen muss???

Bisher bin ich hier und habe aber keinen Erfolg:

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  int_response:integer;
begin
      int_response:=ClientSocket1.Socket.SendText(chr(2) + 'OPR HB_WCH_2007' + chr(3));
      ShowMessage(inttostr(int_response));
end;
Es kommt immerhin was zurück, aber das Tool macht verständlicherweise nicht, was es soll. Sicher, weil die 2 und die 3 nicht im richtigen Format vorliegen!? Wer kann helfen?
Danke
Tom
  Mit Zitat antworten Zitat