Hallo, wie ist es möglich, eine Fehlermeldung alá Socket Error, Host not Found
zu unterdrücken?
Code zum Pingen (funktion steht woanders..)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
IdIcmpClient1.Host := Edit1.Text;;
for i := 1 to 4 do
begin
IdIcmpClient1.Ping;
Application.ProcessMessages;
end;
end;
So..hatte schon mit try-except probiert aber das klappt nicht..