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:

markieren

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 ?

Zitat von devidespe:

IF TReplyStatusTypes <> rsEcho THEN PingError:=True;

Das sollte besser:
if IdIcmpClient1.ReplyStatus heißen.

Ansonsten mal das Timeout hochsetzen?
IdIcmpClient1.ReceiveTimeout := 5000; Mal zur Erklärung übrigens:
http://www.indyproject.org/docsite/h...ring@word.html

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

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

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

Gruß Assertor

Zitat von Assertor:

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

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

Zitat von Assertor:

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

Gruß Assertor

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

Zitat von Codewalker:

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

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