Prüfen, ob serverSocket gestartet ist.

[1ceman]

ich will vor dem verbinden des clients zum server überprüfen, ob der aerver überhaupt "existiert".
habs mal mit try ... exceot versucht, aber irgendwie gehts net, kann aber auch sein, das ich da was falsch mache.
bisher siehts so aus:

Delphi-Quellcode:

try
  Clientsocket1.Host:=IP;
  Clientsocket1.Active:=True;
except
  showmessage('Server nicht verfügbar');
end;
if ClientSocket1.Socket.Connected = True
then begin
           Verbinden1.Enabled:=False;
           Verbinungbeenden1.Enabled:=True;
           R_Chat.Clear;
     end;