Thema: Delphi TCP persistent

Einzelnen Beitrag anzeigen

jeng37

Registriert seit: 23. Jul 2015
42 Beiträge
 
#31

AW: TCP persistent

  Alt 20. Aug 2015, 22:01
Bei dem Versand mit sock verwendest Du SendText, das wird wohl cr/LF anfügen.
Bei Indy sollte es etwas ähnliches geben.. writeLn z.b.
schaltet immer noch nicht.

Delphi-Quellcode:
procedure TFClient.BSendClick(Sender: TObject);
Var
    Port1on : String;
begin
 port1on := #$04#$01#$02#$23#$3c#$00#$0a#$01#$ff#$00#$00#$00#$00#$00#$00#$00#$fe;
 IdTCPClient1.IOHandler.Writeln(String(port1on), IndyTextEncoding_OSDefault);
 sleep(99); //<--- um einen break point zu setzen
Beim break point hat port1on: #4#1#2'#<'#0#$A#1'ÿ'#0#0#0#0#0#0#0'þ'
Edit: was richtig ist!

Geändert von jeng37 (20. Aug 2015 um 22:05 Uhr)
  Mit Zitat antworten Zitat