TCP persistent

[jeng37]

Zitat von Klaus01:

Mache aus dem String ein AnsiString.
Bei den socks verwendest du auch AnsiStrings.

Delphi-Quellcode:

procedure TFClient.BSendClick(Sender: TObject);
Var
    Port1on : String;
       iSend: AnsiString;
           i: Integer;
begin
 port1on := #$04#$01#$02#$23#$3c#$00#$0a#$01#$ff#$00#$00#$00#$00#$00#$00#$00#$fe;
  SetLength(iSend, Length(port1on));
  for i := 0 to Length(port1on) do
  begin
    iSend[i] := AnsiChar(port1on[i]);
  end;
   IdTCPClient1.IOHandler.Writeln(iSend);
 sleep(99); //<--- um einen break point zu setzen

Hmm geht auch nicht...