Clientverbindung (Indy) überprüfen

[PinkoPalino]

Hi!
Gibt es einen Befehl, mit dem man überprüfen kann, ob die Verbindung zwischen dem Indy TCP Server und dem Client noch besteht?

Thanks!

Ich habe folgendes versucht:

Delphi-Quellcode:

 

 with TCPClient do 
  try 
   Connect;   //Hier Fehlermeldung unterdrücken 
   WriteLn('02' + LocalIP); 
   Disconnect; 
  except 
   ShowMessage('Verbindung unterbrochen'); 
 end;

Hier müsste meiner meinung nach, wenn die Verbindung bei Connect fehlschlägt das except ausgeführt werden. Dies passiert auch. Aber zuvor erscheint immer noch die Fehlermeldung "Socketfehler ... Verbindung konnte nicht hergestellt werden" oder so irgendwie. Diese Fehlermeldung sollte unterdrückt werden, da ich ja selbst eine Fehlermeldung ("Verbindung unterbrochen") habe.

Könnt ihr mir sagen wie die Fehlermeldung unterdrückt wird oder diese Aktion irgendwie anders durchgeführt werden kann?

[Zacherl]

Gibt es da nicht eine Eigenschaft namens "Connected" ?

Florian

[PinkoPalino]

TCPClient.Connected wird nur auf true gesetzt, wenn man zuvor mit TCPClient.Connect verbindet. Bei TCPClient.Connect sollte aber schon die Fehlermeldung angezeigt werden.

[Zacherl]

Achso. Im Zweifelsfalle mal über das OnException Event der ApplicationEvents Komponente die Exception abfangen.

Florian

[PinkoPalino]

Wie funktioniert das?

[inherited]

Du n immst die Aplication-Event-Komponente und gehst ins OnException Ereignis

[PinkoPalino]

Das wusste ich schon. Was soll ich dann aber in diese Procedure hineinschreiben.
PS: Dieses Ereignis wird gar nicht ausgeführt, wenn der oben genannte Fehler auftritt (habe ich mit Haltepunkt überprüft)