TCP persistent

[jeng37]

Zitat von Klaus01:

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!