Internet connection exist/de

From Lazarus wiki

Deutsch (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;

--Olaf 05:49, 31 May 2013 (UTC)