ICMP Problem

[Sharky]

Hai LoW_FloW,

den Fehler zu unterdrücken ist kein Problem. Einfach deinen Ping in einen try-except Block setzen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdIcmpClient1.Host := Edit1.Text;
  try
    IdIcmpClient1.Ping;
  except
    if (GetLastError = 11001) then
    begin
      //Unbekannter Host
    end;
  end;
end;

Das mit der IP wird dann schon schwer. Wie soll die IP eines Computers ermittelt werden der nicht vorhanden ist?
Dafür müsste es ja eine Liste geben wo alle Computernamen und deren IPs stehen. Mit etwas glück kannst Du das durch eine DNS-Abfrage machen. Aber auch das ist nicht 100%ig sicher.