TCP persistent

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

[jeng37]

Zitat von Dejan Vu:

Und 'WriteLn' war richtig?

Ja auch mit WriteLn hat´s nicht geklappt.

Zitat:

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

Nein, werd ich nicht, das Problem liegt ja wie immer 10cm vor dem Bildschirm ich werde mich später nochmals damit beschäftigen.
Aber jetzt hab ich erstmal die Schnautze voll davon (4 wochen ohne ergebniss)