Indy TCPclient Disconnect Problem

[WIng2005]

Hallo zusammen,

ich muss den doch schon relativ alten Beitrag noch einmal aufgreifen.

Ich versuche mich wechselnd auf mehrere Arduinos connecten. Daher ist es wichtig, dass die Verbinung jedesmal gesichert getrennt wird. Folgender Test:

Delphi-Quellcode:

try
    Mainform.TCPClient1.host:='192.168.1.177';
    Mainform.TCPClient1.Port:=23;
    Mainform.TCPClient1.Connect;
    Mainform.TCPClient1.IOHandler.WriteLn(#13);
    sleep(100);
    for i:=1 to 5 do Begin
      x:=  IntTostr(i mod 2);
      Mainform.TCPClient1.IOHandler.WriteLn('setport #'+ (edit1.text)+','+x );
      sleep(100);
    end;
    showmessage('Fertig');
finally
    Mainform.TCPClient1.Disconnect;
end;

Parallel dazu habe ich mal die beiden Events OnConnected und OnDisconnected belegt, welche auch beide aufgerufen werden:

Delphi-Quellcode:

procedure TMainform.TCPClient1Connected(Sender: TObject);
begin
Showmessage('Connected');
end;

procedure TMainform.TCPClient1Disconnected(Sender: TObject);
begin
showmessage('Disconnected');
end;

Trotzdem, wird beim 2 Aufruf von Mainform.TCPClient1.Connect eine Exception geworfen, die sagt, dass die Verbindung bereits bestehen würde (EIdAlreadyConnected - Verbindung besteht bereits).

Ist diese Version ungeschickt, oder das Ergebnis ein Bug?

Ich verwende Delphi 10.1 Berlin Starter in der Standard-Installation (Indy 10.1.5 ?).

Vielen dank für jede Hilfe!

[WIng2005]

Hallo zusammen,

ich habe noch ein wenig experimentiert, jedoch keine Lösung gefunden, solange ich den TCPClient über die VCL einfüge.
Abhilfe hat jedoch geschafft, wenn ich ihn dynmaisch zur Laufzeit erstelle:

Delphi-Quellcode:

procedure TMainform.Button3Click(Sender: TObject);
var TCPClient2: TIdTCPClient;
    i:integer;
    x:string;
begin
try
  TCPClient2:=TIdTCPClient.Create(nil);
  TCPClient2.host:='192.168.1.177';
  TCPClient2.Port:=23;
  TCPClient2.Connect;
  TCPClient2.IOHandler.WriteLn(#13);
    sleep(100);
    for i:=1 to 5 do Begin
      x:=  IntTostr(i mod 2);
      TCPClient2.IOHandler.WriteLn('setport #'+ (edit1.text)+','+x );
      sleep(100);
    end;
    showmessage('Fertig');
finally
    TCPClient2.Free;
end;

end;

So lässt sich die Prozedur zumindest mehrmals hintereinander ausführen, was andersrum nicht möglich war. Das könnte zwar nun eine Lösung sein, mich würde aber trotzdem interessieren, ob ich im esten Beispiel einen Fehler hatte, oder ob dies tatsächlich ein Bug ist.

[nahpets]

Versuch' es mal bitte mit  TCPClient1.Disconnect(True);
Hatte mit TIDHttp auch Probleme.

Nachdem ich hier im Forum irgendwo gelesen hatte, dass man Disconnect doch bitte mit Parameter Disconnect(True) aufrufen möge, hab' ich das geändert und seit dem keine Probleme mehr.

Vorher musste ich entweder das Programm nach 'nem Fehler neu starten oder halt bei jedem Aufruf 'ne neue Instanz von TIDHTTP herstellen und anschließend freigeben.

[WIng2005]

Hallo Stephan,

keine Änderung...die Fehlermeldung kommt noch immer.

[haentschman]

Moin...

Zitat:

Abhilfe hat jedoch geschafft, wenn ich ihn dynmaisch zur Laufzeit erstelle

...das ist auch die einzige Variante die funktioniert. Sowas hatte ich auch mal. (dunkel in Erinnerung)

Delphi-Quellcode:

try
  TCPClient2:=TIdTCPClient.Create(nil);

...aber das Create gehört vor das try.

[mjustin]

Zitat von WIng2005:

mich würde aber trotzdem interessieren, ob ich im esten Beispiel einen Fehler hatte, oder ob dies tatsächlich ein Bug ist.

Wenn es tatsächlich Indy 10.1.5 ist, dann ist es eine sehr alte Version, die einen Bug enthalten könnte. Aktuell ist schon seit langer Zeit Indy 10.6.*

[WIng2005]

Mmmh, OK...war die beim neuen Starter beiliegende Version.
Kann ich die Komponenten einfach updaten (Indy.Sockets (VCL) laden und los), oder gibt es da irgendetwas zu beachten?

EDIT: Irgendwie komme ich mit der Seite nicht wirklich klar.... habt ihr ggf. einen direkten Link?

[haentschman]

Moin...
Wenn du die aktuelle Starter hast, brauchst erst mal nicht upzudaten...
Die Version sollte irgendwas wie: gsIdVersion = '10.6.2.5341' sein.

[WIng2005]

Hallo,
OK, wie kann ich dass genau ermitteln? Hatte nur in der Hilfe ein "Bild" entdeckt, welches diese Verion zeigt.

[haentschman]

Schaust du in die C:\Program Files (x86)\Embarcadero\Studio\18.0\source\Indy10\System \IdVers.inc