Also ich habe jetz eine Lösung gefunden
Aber wieder ein neues Problem
Der Ping an sich funktioniert, aber es dauert ziemlich lange.
Ich habe den ping code jetz so geändert:
Delphi-Quellcode:
if x = 1 then
begin
host:='www.google.de';
code := ping(host,hopcount,rtt,ipad);
if code = 0 then begin // ping kam an
shape1.Brush.color := cllime;
end else shape1.Brush.color := clred;
x := 2;
end;
if x = 2 then
begin
host:='www.microsoft.com';
code := ping(host,hopcount,rtt,ipad);
if code = 0 then begin // ping kam an
shape2.Brush.color := cllime;
end else shape2.Brush.color := clred;
x := 3;
end;
usw.
Und wie gesagt der Ping an sich funktioniert, aber es dauert zu lange finde ich, kann ich das irgendwie beschleunigen?
Es sind 5 Pings und er braucht ca. 40 sek das finde ich zu lange, am inet kanns net liegen, hab DSL 16k
