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;