IdIcmpClient .ping Socket-Fehler #10040nachricht zu lang

[Markus_Kohl]

Hi,
ich möchte ein kleines Tool zum pingen mehrer Rechner erstellen.
Das Programm funktioniert, solange die IP erreichbar ist.
Ist die IP nicht erreichbar kommt die Fehlermeldung "socket-Fehler #10040nachricht zu lang"

Hier mal der Quellcode.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var sPingLogResult : string;
begin
 Ping.Host := ComputerIP.text;
 Ping.Ping();

 Case ping.ReplyStatus.ReplyStatusType Of
  rsEcho : Begin
                         sPingLogResult := 'erfolgreich';
                       End;
  rsError : Begin
                         sPingLogResult := 'Fehler';
                       End;
  rsTimeOut : Begin
                         sPingLogResult := 'TimeOut';
                       End;
  rsErrorUnreachable : Begin
                         sPingLogResult := 'nicht Erreichbar';
                       End;
  rsErrorTTLExceeded : Begin
                         sPingLogResult := 'TTL überschritten';
                       End;
End;

 edit1.Text:=sPingLogResult;
end;

end.

Kann mir jemand sagen, wo der Fehler liegt, habe nicht hier im Forum oder in google gefunden.

Achso, ja ich führe das Programm mit Administratorrechten aus.

Gruß
Markus

[Bernhard Geyer]

10040? Hört sich danach an das einfacher der Socket-Fehler hochkommt.

[Markus_Kohl]

Zitat von Bernhard Geyer:

10040? Hört sich danach an das einfacher der Socket-Fehler hochkommt.

Und was kann ich dagegen machen? Mein Englisch ist nicht das allerbeste ^^

Aber wenn ich das richtig verstehe, sind die Daten des Ergebenis entweder zu lang oder zu kurz *grübel*

[Markus_Kohl]

Hier mal noch das Ergebis des Ping aus der CMD
Die IP 192.168.0.110 ist die von meinem PC von dem ich den Ping absetze.

Code:

C:\Users\Markus>ping 192.168.0.110

Ping wird ausgeführt für 192.168.0.110 mit 32 Bytes Daten:
Antwort von 192.168.0.110: Bytes=32 Zeit<1ms TTL=128
Antwort von 192.168.0.110: Bytes=32 Zeit<1ms TTL=128
Antwort von 192.168.0.110: Bytes=32 Zeit<1ms TTL=128
Antwort von 192.168.0.110: Bytes=32 Zeit<1ms TTL=128

Ping-Statistik für 192.168.0.110:
    Pakete: Gesendet = 4, Empfangen = 4, Verloren = 0
    (0% Verlust),
Ca. Zeitangaben in Millisek.:
    Minimum = 0ms, Maximum = 0ms, Mittelwert = 0ms

[Bernhard Geyer]

IdIcmpClient? Das braucht doch Adminrechte? Las mal dein Programm als "Als Administrator ausführen".

Ich würde dir die ICS-Kompos empfehlen. Die Können auch ohne Adminrechte den PING ausführen.

[Markus_Kohl]

Zitat von Bernhard Geyer:

IdIcmpClient? Das braucht doch Adminrechte? Las mal dein Programm als "Als Administrator ausführen".

Ich führe das Programm mit Adminrechten aus, sonst würde es ja bei existieren den IP's auch nicht funktionieren.

[Markus_Kohl]

Ich hab das ganze als Notlösung in eine Try except Anweisung gemacht.
Ist zwar nicht ganz sauber aber es läuft wenigstens.