ping host + socketfehler

[bjacke]

Hi, ich habe das jetzt aus probiert und erscheint mir alles schlüssig, aber obwohl ich mit dem Internet verbunden bin kriege ich immmer not connected raus.

Hier nochmal der ganze Quelltext (Die Seiten sind alle online)

Delphi-Quellcode:

procedure TShedlstat.FormCreate(Sender: TObject);
function Ping(Host: String):string;
var res: TReplyStatus;
    ICMP: TidIcmpClient;  // indy-Clients
begin
  ICMP:= TidICMPClient.Create(nil);
  try
    result:= 'offline';
    ICMP.Host:= Host;
    try
      ICMP.Ping;

      if ICMP.ReplyStatus.ReplyStatusType <> rsTimeOut then
        result:='online'
      else
        result:='offline';
    except
      result:= 'not connected';
    end;
  finally
    ICMP.Free;

  end;
end;
Var i:integer;Var   pref,actual_pref:IXMLDOMnode; server,status:string;    xmlDoc: IXMLDOMDocument2;
Begin
   for i:=1 to 5 do
   Case i of
   1:Label9.Caption:=ping('http://setiboinc.ssl.berkeley.edu/sah_cgi/cgi');
   2:Label10.Caption:=ping('http://predictor.scripps.edu/predictor_cgi/cgi');
   3:Label11.Caption:=ping('http://climateapps2.oucs.ox.ac.uk/cpdnboinc_cgi/cgi');
   4:Label12.Caption:=ping('http://lhcathome.cern.ch/lhc_cgi/cgi');
   5:Label13.Caption:=ping('http://einstein.phys.uwm.edu/EinsteinAtHome_cgi/cgi');
   End; //case

end;