IdIcmpClient1Reply

[Alterauge]

Hallo,
bekomme beim ausführen immer eine Fehlermeldung!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  IdIcmpClient1.OnReply := IdIcmpClient1Reply;
  Button1.Enabled := False;
  try
    IdIcmpClient1.Host := '192.168.0.110';
    for i := 1 to 4 do
    begin
      IdIcmpClient1.Ping;
      Application.ProcessMessages;
    end;
  finally
    Button1.Enabled := True;
  end;
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  if (IdIcmpClient1.ReplyStatus.BytesReceived>0) then
  begin
   Panel1.Color:=clGreen;
   end else
    begin
     Panel1.Color:=clred;
   end;
end;

Fehlermeldung:

Socket Error #10013 Access denied.  ???????????????

[madtom]

Prüfe mal, ob Du die nötigen Berechtigungen überhaupt besitzt. Siehe auch:

http://msdn.microsoft.com/de-de/libr...(v=vs.85).aspx

für die Beschreibungen der Fehlercodes.

[Alterauge]

Hallo,
bin als Administrator Windows 8 angemeldet!

Es wurde versucht, auf eine Weise auf einen Socket zuzugreifen,
die nach den betreffenden Zugriffsberechtigungen untersagt ist! Fehlercode 10013

Seltsam oder?

[Der schöne Günther]

Ich hätte eher getippt, das du kein Binding auf dem gewünschten Port erstellen kannst weil dort schon jemand lauscht? Von ICMP habe ich keine Ahnung, insbesondere nicht, was das .Ping-Kommando konkret tun soll...

[mjustin]

Zitat von Der schöne Günther:

Ich hätte eher getippt, das du kein Binding auf dem gewünschten Port erstellen kannst weil dort schon jemand lauscht? Von ICMP habe ich keine Ahnung, insbesondere nicht, was das .Ping-Kommando konkret tun soll...

Ping sendet ein ICMP Paket an einen Server (sofern die Firewall das zulässt), das dieser dann beantwortet wenn er mag. TIdCmpClient öffnet keinen eigenen Port.

Die Fehlermeldung könnte eventuell durch die lokale Firewall ausgelöst werden, aber das ist nur eine Vermutung...

[sx2008]

Raw Sockets und ICMP werden von neueren Windows Versionen blockiert, weil man damit allerlei Unsinn anstellen kann (DoS, Daten umleiten,...).

Möchte man dies umgehen dann gibt es folgende Alternativen:
* Linux verwenden
* WinPCap (enthält Systemtreiber)
* evtl. Anwendung unter "System"-Account laufen lassen (ungetestet)
* evtl. gibt es auch geheime Schalter in der Registry (nur eine Vermutung von mir)

Wenn du nur Pingen möchtest, dann gibt es auch API-Funktionen:
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[mjustin]

Gleiches Problem mit Lösungsvorschlag (WMI) um Delphi-Treff:

Socket-Error #10013 Windows 8