Internet connection exist/de

Zurück zur Seite Code Beispiele.

Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.

Das Unterprogramm stellt fest, ob eine Internetverbindung besteht.

Das Beispiel stellt fest, ob eine Internetverbindung besteht:

uses
  WinInet, Windows, ...;
  
  ...
  
// Die Funktion prüft, ob der lokale PC eine Internetverbindung hat
function funIstOnline: boolean;
var
  dwrFlag: DWord;
begin
  Result := False;

  dwrFlag := Internet_Connection_Modem or Internet_Connection_Lan or
    Internet_Connection_Proxy;

  if InternetGetConnectedState(@dwrFlag, 0) = True then
    Result := (dwrFlag = 81);

end;

From the Free Pascal wiki, page "Internet connection exist/de", as it stood on 2020-02-18 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.