Thema: Delphi Try--Except Anweisung

Einzelnen Beitrag anzeigen

Counter909

Registriert seit: 10. Aug 2006
129 Beiträge
 
#1

Try--Except Anweisung

  Alt 20. Jul 2008, 14:55
Hallo,



also ich möchte ein simple Funktion einbauen, bei der ich mit einem anderen pC chatten kann. Dazu muss ich mich ja mit ihm verbinden, was auch problemlos funktioniert, wenn er den server logischerweise gestartet hat

Ich als Client möchte ja nun zu ihm connecten, doch wenn er den Host noch nicht gestartet hat, tritt ein Axynchron-Fehler auf, den ich mit einer try except anweisung umgehen möchte

mein source:

Delphi-Quellcode:
begin
try
 clientsocket1.Address:= edit1.Text;
 clientsocket1.port := strtoint(edit2.Text);
 clientsocket1.Active:= true;
 if clientsocket1.Active = true then button1.Font.Color:= cllime;
except
 showmessage('Error!')
end;
eigentlich ist es doch so, wenn er keine möglichkeit hat den host zu finden, bricht er ab und führt die exception aus oder ?


mfg
counter
  Mit Zitat antworten Zitat