Onlinestatus ermitteln

[emsländer]

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