Ping-Funktion

[theomega]

Hallo Leute
ich würde gerne einen Host anpingen. Ich weiß, das das über die Indys geht, aber ich brauche eine Funktion die true/false zurückgibt, wenn der Host erreichbar ist und wenn nicht.

Jetzt habe ich mir mal diesen code zusammengestrickt:

Code:

function ping (cl:TIdIcmpClient;host:string;timeout:integer):boolean;
begin;
cl.Host := host;
cl.ReceiveTimeout := timeout;

result := false;
try
cl.Ping();
except
result := false;
end;

if cl.ReplyStatus.ReplyStatusType=rsecho then result := true;
end;

dummweise Funktioniert das nicht

wenn ich eine IP eingebe, dann unterscheidet er richtig, das der host erreichbar ist und wann nicht.
Sobald ich aber einen Domain eingebe, ist der immer offline! warum? Der IcmpClient unterstüzt auch DNS-Resolving! Daran liegt es nicht.

Danke für Tipps
TheOmega

[theomega]

Erledigt, Timeout war zu gering!