Zitat von
alcaeus:
Hallo Plague,
das heißt nur, dass bei einer evtl. Firewall der HTTP-Port freigeschaltet ist. Endgültigen Aufschluss darüber kann man nicht geben, vor allem nicht wenn irgendwo ein Proxy dazwischenhängt, und die Proxyeinstellungen z.B. im IE eingetragen sind. Dann geht das mit den Indys nicht, da du dort ja auch noch die Proxyeinstellungen setzen müsstest.
Greetz
alcaeus
Hi,
die Proxyeinstellungen sind ja nicht das Problem - kann man ja machen.
ich habe im Moment folgende Funktion dafür.
Delphi-Quellcode:
function Tisacheck.isOnline(VerifyUrl : String; ConnectIfOffline : Boolean=false) : Boolean;
Var bOn : Boolean;
// Sub-Procedure
procedure checkOnline;
Var wsaData : TwsaData;
begin
if(WsaStartup(MAKEWORD(1,1),wsadata) = 0) then
try
// Internetverbindung prüfen
bOn := (InternetGetConnectedState(nil,0));
finally
WsaCleanUp;
end;
end;
//Main-Function
begin
result := false;
checkOnLine;
if (not bOn) and (ConnectIfOffline) then begin
if InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then begin
checkOnline;
result := bOn;
end;
end
else
result := bOn;
end;
Solang nur das Netzwerkkabel gezogen wird, klappt das ja ganz gut. Aber diese Funktion erkennt nicht, wenn eine
URL nicht erreichbar ist.
Gruss
EL