Entwickler-Ecke

Internet / Netzwerk - IdIcmpClient1 11001 fehler abfangen


Bronstein - Fr 03.03.06 13:51
Titel: IdIcmpClient1 11001 fehler abfangen
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?


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


Alpha_Wolf - Fr 03.03.06 14:09

normalerweise mit einem einfachen try..except block..


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;