Internet connection remove/de: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: Internet connection remove/de

New		Line
1	+	Zurück zur Seite [[code examples/de\|Code Beispiele]].
2	+
3	+	Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
4	+
5	+	Das Unterprogramm baut eine Internetverbindung ab.
6	+
7	+	Beispiel um eine Internetverbindung zu beenden:
8	+
9	+	``` pascal
10	+	uses
11	+	WinInet, Windows, ...;
12	+
13	+	...
14	+
15	+	{
16	+	INTERNET_AUTODIAL_FORCE_ONLINE
17	+	Erzwingt eine Online-Verbindung.
18	+
19	+	INTERNET_AUTODIAL_FORCE_UNATTENDED
20	+	Erzwingt eine unbeaufsichtigte Internet-Verbindung.
21	+	Wird eine Benutzereingabe erfordert, läuft die Funktion auf einen Fehler.
22	+
23	+	INTERNET_DIAL_FORCE_PROMPT
24	+	Ignoriert die automatischen Verbindungsoptionen.
25	+	Es wird der Dialog für die Benutzereingabe angezeigt.
26	+
27	+	INTERNET_DIAL_UNATTENDED
28	+	Verbindet mit dem Internet.
29	+	Wenn es möglich ist, geschieht dies ohne einen Benutzerdialog anzuzeigen.
30	+
31	+	INTERNET_DIAL_SHOW_OFFLINE
32	+	Zeigt den Button Offline Arbeiten anstelle des Buttons Abbrechen
33	+	}
34	+
35	+	function funDFUEAbbauen(strDFUEName: string; out intErrorCode: integer;
36	+	out wrdConId: DWord): boolean;
37	+	var
38	+	ConNum: LPDWORD;
39	+	dwrReturnCode: DWord;
40	+
41	+	begin
42	+
43	+	Result := False;
44	+	intErrorCode := 0;
45	+	New(ConNum);
46	+
47	+	try
48	+	{
49	+	InternetDial gibt bei Erfolg den Wert ERROR_SUCCESS zurück.
50	+	Der Fehlercode kann folgende Werte haben:
51	+	ERROR_INVALID_PARAMETER
52	+	Ein oder mehrere Parameter sind fehlerhaft.
53	+	ERROR_USER_DISCONNECTION
54	+	Der Anwender klickt hat im Internetverbindungsdialog entweder
55	+	auf den Abbrechen oder den Offline Button geklickt.
56	+	}
57	+	dwrReturnCode := InternetDial(HInstance, PChar(strDFUEName),
58	+	INTERNET_AUTODIAL_FORCE_ONLINE, ConNum^, 0);
59	+
60	+	intErrorCode := dwrReturnCode;
61	+	if dwrReturnCode = ERROR_SUCCESS then
62	+	begin
63	+	Result := True;
64	+	wrdConId := ConNum^;
65	+	end;
66	+	finally
67	+	Dispose(ConNum);
68	+	end;
69	+
70	+	end;
71	+
72	+	...
73	+
74	+	```
75	+
76	+	---
77	+	From the Free Pascal wiki, page "Internet connection remove/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](/wiki-contact).

Back to history