TCP persistent

[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.

Grüße
Klaus

[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!

[Klaus01]

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

Grüße
Klaus

[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...

[Dejan Vu]

Was steht denn in iSend drin? Wieso ist Portion ein 'string' und 'iSend' ein AnsiString?

Bei einem String ist jedes Zeichen 2 Bytes lang und wenn Du nun so ein 2-Byte-Zeichen auf einen 'AnsiChar' castest, dann passt das nicht.

Also?

[jeng37]

Zitat von Dejan Vu:

Was steht denn in iSend drin? Wieso ist Portion ein 'string' und 'iSend' ein AnsiString?

Bei einem String ist jedes Zeichen 2 Bytes lang und wenn Du nun so ein 2-Byte-Zeichen auf einen 'AnsiChar' castest, dann passt das nicht.

Also?

Hmm ich stehe auf dem schlauch...

mit port1on : AnsiString; geht es auch nicht.

[Dejan Vu]

Funktionert denn IdTcpClient1.IOHandler.WriteLn(port1On) ?