Hi, so ping ich eine Webseite an.

zusammenfalten · markieren

Delphi-Quellcode:

var
  IdICMPClient1: TIdIcmpClient;
Begin
  IdICMPClient1 := TIdICMPClient.create(nil);

  try
    try
      IdICMPClient1.IPVersion := Id_IPv4;
      IdICMPClient1.PacketSize := 1024;
      IdICMPClient1.Port := 0;
      IdICMPClient1.ReceiveTimeout := 5000;
      IdICMPClient1.Protocol := 1;
      IdICMPClient1.ProtocolIPv6 := 58;
      IdICMPClient1.Host := 'www.test.de';
      IdIcmpClient1.Ping();
      case IdIcmpClient1.ReplyStatus.ReplyStatusType of
        rsEcho: Result := True;
        else Result := False;
      end;

    except
      on E: Exception do begin
        Showmessage(E.Message);
        Result := False;
      end;
    end;
  finally
    FreeAndNil(IdICMPClient1);
  end;
End;

Das funktioniert auf meinem Laptop mit WLan auch wunderbar, jedoch auf meinen Standrechner mit Lan wirft er mir immer "access denied" raus.
Ich dachte sofort an Firewall, hab ich alles ausgeschaltet, Fehler bleibt aber bestehen. Bin gerade etwas ratlos.

AFAIK benötigt TIdICMPClient-Adminrechte. Damit wirst du dein Programm bei aktiver UAC ebenfalls mit Adminrechten starten müssen.
Die ICS-Kompos können AFAIK das Pingen ohne das Adminrechte benötigt werden.

Oh, das teste ich eben einmal. Danke für den Hinweiß.

Edit: Danke das war es tatsache.

Zitat von Bernhard Geyer:

AFAIK benötigt TIdICMPClient-Adminrechte. Damit wirst du dein Programm bei aktiver UAC ebenfalls mit Adminrechten starten müssen.
Die ICS-Kompos können AFAIK das Pingen ohne das Adminrechte benötigt werden.

Oder man verwendet gleich die API-Funktionen (z.B. ICMPSendEcho)