IdIcmpClient1 11001 fehler abfangen

Bronstein · Verfasst: Fr 03.03.06 13:51

Wenn ich einen Rechner angebe beim pingen der nicht existiert bekomme ich immer die Fehlermeldung "..11001". Wie kann ich diesen Fehler abfangen, damit ich eine benutzerdenfinierte Nachricht senden kann?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

IdIcmpClient1.Host := pc_name;
IdIcmpClient1.Ping;

//if error = 11001 then
//Application.MessageBox('PC existiert nicht', 'Ende', MB_OK);

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!

Alpha_Wolf · Verfasst: Fr 03.03.06 14:09

normalerweise mit einem einfachen try..except block..

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  ...
  result := false;
  try
    IdIcmpClient1.Host := pc_name;    
    IdIcmpClient1.Ping;
    result := true;
  except
    on E:Exception do begin
      // Hier deine Message...
    end;
  end;
end;

_________________
Diskutiere nie mit einem Irren - er zieht dich auf sein Niveau und schlägt dich mit seiner Erfahrung.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme