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 ?