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;

[Zacherl]

Zitat:

irgendwie gehts net

Was geht denn nicht? Kommt eine Fehlermeldung, oder was passier?

[Muetze1]

Und wie fern "existiert"? Wenn er den Server nicht erreichen kann, dann wird im OnError eine Fehlermeldung mitgeteilt und nicht bei Active := True. Die Sockets arbeiten asynchron zu deinem Delphi Code -> wenn, dann wartet auf Events!!!

[Yheeky]

Zitat:

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 ;)

[1ceman]

Das Problem ist einfach, dass wenn man auf verbinden klickt(ist der button, in dem steht der quellcode von oben) und der
server aber nicht on, das das Programm dann abstürzt mit dem Fehler ESocketError. ich möchte jetzt erreichen, dass
anstatt dem Error ne message kommt, das der Server nicht verfügbar ist und das Programm auch net mehr abstürzt.

Delphi-Quellcode:

if ClientSocket1.Socket.Connected = True
then begin
           Verbinden1.Enabled:=False;
           Verbinungbeenden1.Enabled:=True;
           R_Chat.Clear;
     end;

Das hab ich jetzt ins OnConnect geschrieben.

[Muetze1]

Zitat:

Zitat von 1ceman

Das Problem ist einfach, dass wenn man auf verbinden klickt(ist der button, in dem steht der quellcode von oben) und der
server aber nicht on, das das Programm dann abstürzt mit dem Fehler ESocketError. ich möchte jetzt erreichen, dass
anstatt dem Error ne message kommt, das der Server nicht verfügbar ist und das Programm auch net mehr abstürzt.

Und ich zitiere mich nochmal von ein paar Beiträgen weiter oben:

Zitat:

Zitat von Muetze1

Wenn er den Server nicht erreichen kann, dann wird im OnError eine Fehlermeldung mitgeteilt ...

Du hättest ja mal bei OnError in den Sockets nachschauen können.

Leg dir ein solchen Eventhandler an und gebe deine Meldung entsprechend aus. Du kannst die Meldung anhand der übergebenen Parameter entsprechend aussuchen/formatieren und die Ausgabe der Exception kannst du verhindern, wenn du den übergebenen Parameter ErrorCode auf 0 setzt. Steht auch wie gesagt in der Hilfe...