Connection mit nicht vorhandener IP

[Sonne]

Ich hab einen Clienten (TClientSocket), wenn ich die IP des Servers (TServerSocket) eingebe, verbinden sie sich, Wenn ich aber beim Client eine IP eingebe, die im Netzwerk oder Internet nicht vorhanden ist, bringt er nicht, wie ich verlange die Message ('Konnte keine Verbindung erstellen'), sondern er bringt eine Fehlermeldung und bricht ab.
Mit ErrorCode := 0 kann ich diese Problem nicht verhindern.

Danke für Ratschläge und Hinweise.

SONNE

[Andreas Kosch]

Hallo,

dieses Problem lässt sich durch das Abfangen der Exception lösen. Der Verbindungsversuch wird im TRY-Zweig gestartet, tritt dabei eine Exception (Fehlermeldung) auf, so ignoriert das Programm diese vollständig (leerer EXCEPT-Zweig):
<pre>
procedure TFormMain.CheckWebServer(IPAdr: String);
begin
with ClientSocket1 do
begin
try
Active := False;
Application.ProcessMessages;
Address := IPAdr;
Active := True;
except
end;
end;
end;
</pre>
P.S: Normalerweise sollte man niemals einen EXCEPT-Block völlig leer lassen, aber in begründeten Ausnahmefällen ist das zulässig. Bessere wäre es, gezielt die "störende" Exception abzufangen und alle anderen über RAISE normal weiterzureichen