Indy TCP Client Exception

[jonny]

Hallo wie kann ich den Fehler abfangen der ausgelöst wird wenn der Client sich nicht verbinden konnte?

[SirThornberry]

Delphi-Quellcode:

try
 client.connect;
except
 //fehler beim connect
end;

[jonny]

Danke für die Schnelle antwort.

Ich hab da noch ein Problem wie kann ich nachgucken ob am anderen ende der leitung jemand einen TCPServer laufen hat mit z.B. den Port 23 oder ob dort kein Server läuft? Und zwar am besten ohne sich mit dem zu verbinden weil die anwendung während dem verbinden immer stillsteht und ich nichts machen kann.

[SirThornberry]

das Timeout setzen das nach 1000 Millisekunden Connectversuch abgebrochen wird oder das ganze in einen extrathread packen

[jonny]

Das mit dem Timeout klappt auch nicht wie erwünscht weil der eine Ganze liste durchgehen muss wo er nach online oder offline status überprüft. Wie mach ich das mit einen anderen Thread?

[SirThornberry]

Delphi-Quellcode:

type
  TSendenThread = class(TThread)
  protected
    procedure Execute; override;
  end;
[...]
procedure TSendenThread.Execute;
begin
  //deine Connects oder was auch immer in dem Thread passieren soll
  //am Ende der Procedure eventuell form1 noch sagen das der Thread fertig ist (irgend ne procedure aufrufen etc.
end;
[...]
procedure TForm1.irgendwas;
begin
  TSendenThread.Create(False);
end;

Für mehr Infos über Threads am besten mal die Suche benutzen, die OH und im "delphiordner\demos" müsste auch ein ordner namens "threads" sein. Allerdings ist dieses beispiel nicht sehr übersichtlich wenn man erst anfängt...