Ping mit Fehlermeldung 10040: Message too long

[DevidEspenschied]

Ich habe in einem normalen Formular eine TIdIcmpClient Komponente eingerichtet, weil ich gerne einen Zielhost anpingen möchte. Das funktioniert auch bei existierenden Adressen fehlerfrei.

Sobald ich aber eine nicht existierende Adresse erwische, erhalte ich folgende Meldung: Im Projekt Project1.exe ist eine Exception der Klasse EIdSocketError mit der Meldung 'Socket Error # 10040 Message too long.' aufgetreten.

Der Delphi-Code ist relativ unspektakulär:

Delphi-Quellcode:

IdIcmpClient1.Host:='192.168.5.200';
IdIcmpClient1.Ping('', 0);
IF TReplyStatusTypes <> rsEcho THEN PingError:=True;

Die Meldung soll wohl suggerieren, dass ein Puffer nicht ausreichend dimensioniert ist. Die Suche lieferte aber nix brauchbares. Kann jemand helfen ?

[Assertor]

Zitat:

Zitat von devidespe

Delphi-Quellcode:

IF TReplyStatusTypes <> rsEcho THEN PingError:=True;

Das sollte besser:

Delphi-Quellcode:

if IdIcmpClient1.ReplyStatus

heißen.

Ansonsten mal das Timeout hochsetzen?

Delphi-Quellcode:

IdIcmpClient1.ReceiveTimeout := 5000;

Mal zur Erklärung übrigens:
http://www.indyproject.org/docsite/[e-mail]

Zitat:

For Windows NT and Windows 2000, administrator privileges are required to allow TIdICMPClient.Ping to work properly. The command line PING application does not exhibit this behavior because Microsoft chose to use undocumented calls in ICMP.DLL and its winsock implementation to get around the issue. In short: they cheated. Indy does not use ICMP.DLL to maintain Linux compatibility, and allow use of both Raw sockets and ICMP sockets.

Gruß Assertor

[DevidEspenschied]

Ich habe mittlerweile ParityChecks Quellcode von hier genommen und es funktioniert.

[Assertor]

Ok, schreib das doch bitte das nächste mal, bevor ich hier Code und Seiten raussuche und teste :roll:

Gruß Assertor

[Codewalker]

Zitat:

Zitat von Assertor

Ok, schreib das doch bitte das nächste mal, bevor ich hier Code und Seiten raussuche und teste :roll:
Gruß Assertor

Macht nichts, andere (z.B. ich :mrgreen:) haben dadurch wieder etwas gelernt :thumb:

[DevidEspenschied]

Zitat:

Zitat von Assertor

Ok, schreib das doch bitte das nächste mal, bevor ich hier Code und Seiten raussuche und teste :roll:

Gruß Assertor

Sorry, aber es musste eben schnell gehen. Trotzdem danke für Deine Mühe.

[Assertor]

Zitat:

Zitat von Codewalker

Macht nichts, andere (z.B. ich :mrgreen:) haben dadurch wieder etwas gelernt :thumb:

Zitat:

Zitat von devidespe

Sorry, aber es musste eben schnell gehen. Trotzdem danke für Deine Mühe.

Ok, Ihr habt ja recht. War ja auch noch nicht so alt der Thread :)

Gruß Assertor
:dp: