Zitat von
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;
Nee, das geht so auch nicht. Die Abfrage, ob der Client verbunden ist, kommt zu schnell...so schnell verbindet dein Client nicht.
Mach doch die if-Abfrage in dein ClientSocket1.OnConnect rein. Das funktioniert sicher
