Difference between revisions of "Internet connection exist/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting; deleted category included in page template) |
||
| (3 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
{{Internet connection exist}} | {{Internet connection exist}} | ||
| − | + | ||
| − | Zurück zur Seite [[code examples/de|Code Beispiele]]. | + | |
| − | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. | |
| − | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | + | |
| − | Das Unterprogramm stellt fest, ob eine Internetverbindung besteht. | + | |
| − | + | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | |
| − | Das Beispiel stellt fest, ob eine Internetverbindung besteht: | + | |
| − | <syntaxhighlight> | + | Das Unterprogramm stellt fest, ob eine Internetverbindung besteht. |
| + | |||
| + | |||
| + | Das Beispiel stellt fest, ob eine Internetverbindung besteht: | ||
| + | |||
| + | <syntaxhighlight lang=pascal> | ||
uses | uses | ||
WinInet, Windows, ...; | WinInet, Windows, ...; | ||
| Line 27: | Line 32: | ||
end; | end; | ||
| − | |||
| − | |||
| − | |||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 08:01, 18 February 2020
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│
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;
