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:

Zitat von Bernhard Geyer (Beitrag 1152986)

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:

Zitat von Bernhard Geyer (Beitrag 1152992)

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.