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!

[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) ?

[jeng37]

Zitat von Dejan Vu:

Funktionert denn IdTcpClient1.IOHandler.WriteLn(port1On) ?

Ja hier die ausgabe von Wireshark:

Code:

0000003B  04 01 02 23 3c 00 0a 01  ff 00 00 00 00 00 00 00 ...#<... ........
0000004B  fe 0d 0a

Ich habs auch so rum probiert und es klappt auch nicht.

Delphi-Quellcode:

  str := '\04\01\02#<\00\n\01\ff\00\00\00\00\00\00\00\fe';
 Data := AnsiString(str);
  IdTcpClient1.IOHandler.WriteLn(Data)

[Klaus01]

.. versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TidBytes;

begin
  idTCPClient1.Port := 49151;
  idTCPClient1.Host := '192.168.80.133';
  idTCPClient1.Connect;
  if idTCPClient1.Connected then
    begin
      setLength(data,17);
      data[0] := $04;
      data[1] := $01;
      data[2] := $02;
      data[3] := $23;
      data[4] := $3c;
      data[5] := $00;
      data[6] := $0a;
      data[7] := $01;
      data[8] := $ff;
      data[9] := $00;
      data[10] := $00;
      data[11] := $00;
      data[12] := $00;
      data[13] := $00;
      data[14] := $00;
      data[15] := $00;
      data[16] := $fe;

      idTCPClient1.IOHandler.Write(data);
      idTcpClient1.IOHandler.WriteLn();
      idTCPClient1.Disconnect;
    end;
end;

Am Ziel kommt dann das an:

Code:

0000000: 0401 0223 3c00 0a01 ff00 0000 0000 0000 
0000010: fe0d 0a

Grüße
Klaus

[jeng37]

.. versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TidBytes;

begin
  idTCPClient1.Port := 49151;
  idTCPClient1.Host := '192.168.80.133';
  idTCPClient1.Connect;
  if idTCPClient1.Connected then
    begin
      setLength(data,17);
      data[0] := $04;
      data[1] := $01;
      data[2] := $02;
      data[3] := $23;
      data[4] := $3c;
      data[5] := $00;
      data[6] := $0a;
      data[7] := $01;
      data[8] := $ff;
      data[9] := $00;
      data[10] := $00;
      data[11] := $00;
      data[12] := $00;
      data[13] := $00;
      data[14] := $00;
      data[15] := $00;
      data[16] := $fe;

      idTCPClient1.IOHandler.Write(data);
      idTcpClient1.IOHandler.WriteLn();
      idTCPClient1.Disconnect;
    end;
end;

Zitat von Klaus01:

Am Ziel kommt dann das an:

Code:

0000000: 0401 0223 3c00 0a01 ff00 0000 0000 0000 
0000010: fe0d 0a

Grüße
Klaus

Erst mal Danke an Dich für deine Mühe!
Ich habs auch schon auf diese weise versucht, aber est will einfach nicht klappen.
Ich gebe es jetzt auf mit der Indy Kompo. Ich benutze die synapse, diese funktionniert auf anhieb!
wie gesagt, Danke nochmals für deine und all denen anderen Ihre Hilfe!

[Dejan Vu]

Und 'WriteLn' war richtig?

PS: Nicht, das Du jetzt für den Rest Deines Lebens denkst: 'Indy' sind Schrott, die funktionieren nicht. Das ist nämlich falsch.