DLL dynamically load/de: what changed

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

Old	New		Line
1	1		Zurück zu den [[Additional information/de\|Zusätzlichen Informationen]].
2	2
3	3		Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
4	4
5		-	~~Das Tutorial, zeigt wie eine DLL (Dynamic Link Library) <b>dynamisch</b> geladen wird.~~
	5	+	Das Tutorial, zeigt wie eine DLL (Dynamic Link Library) dynamisch geladen wird.
6	6
7	7		Die Dll (DLLTest.dll) auf die sich im unteren Beispiel bezogen wird:
8	8
9	9		``` pascal
10	10		library Info;
11	11
12	12		{$mode objfpc}{$H+}
13	13
14	14		uses
15	15		SysUtils;
16	16
17	17		{$R *.res}
18	18
19	19		// Das Unterprogramm der DLL
20	20		function funStringZurueck(strUebergabe: string): PChar;
21	21		begin
22	22		funStringZurueck := PChar(UpperCase(strUebergabe));
23	23		end;
24	24
25	25		// Exportiertes Unterprgramm(e)
26	26		exports
27	27		funStringZurueck;
28	28
29	29		begin
30	30		end.
31	31		```
32	32
33	33		Was ist zu tun:
34	34
35	35		- Speicher definieren
36	36		- Es ist ein Datentyp zu erstellen, der genau dem (externen) Unterprogramm entspricht, das aus der DLL importiert werden soll.
37	37		- Speicher reservieren
38	38		- Es ist Speicher für eine Variable (Datenfeld) zu reservieren, der der obige Datentyp zu gewiesen wird.
39	39		- Es ist Speicher für ein Handle zu reservieren, dem später der Handle der DLL zugewiesen wird.
40	40		- DLL und externes Unterprogramm zuweisen und die Daten entgegennehmen
41	41		- Die DLL ist aufzurufen und dem Handle ist das Handle der DLL zuzuweisen.
42	42		- Der Zeiger (Pointer) der Variablen muss auf den Speicher des externen Unterprogramms geändert werden.
43	43		- Das Ergebnis des externen Unterprogramms ist entgegen zu nehmen.
44	44		- Alle Speicher freigeben
45	45		- Der Zeiger (Pointer) der Variablen muss wieder auf einen ungültigen Speicherbereich zeigen (:= nil) um das externe Unterprogramm frei zugeben.
46	46		- Der Speicher der DLL ist wieder freizugeben.
47	47
48	48		Einbinden, verwenden und freigeben des DLL-Unterprogramms im eigenen Programm:
49	49
50	50		``` pascal
51	51		uses
52	52		Windows, ...;
53	53
54	54		...
55	55
56	56		function funDllEinbinden: string;
57	57		type
58	58		//Definition des aufzurufenden Unterprogramms, wie es in der einzubindenden DLL definiert ist
59	59		TfunStringZurueck = function(strUebergabe: string): PChar; stdcall;
60	60
61	61		var
62	62		// Legt eine passende Variable (Datenfeld) für das DLL-Unterprogramm an
63	63		funStringZurueck: TfunStringZurueck;
64	64		// Legt einen Handle für den Handle der DLL an
65	65		LibHandle: THandle;
66	66
67	67		begin
68	68
69	69		// Ermittelt den Handle der zuverwendenden Library
70	70		LibHandle := LoadLibrary(PChar('DLLTest.dll'));
71	71
72	72		// Prüft, ob das Laden der DLL erfolgreich war
73	73		if LibHandle <> 0 then
74	74		begin
75	75		// Weisst der Variablen funStringZurueck die Adresse des Unterprogrammaufrufs zu
76	76		// 'funStringZurueck' aus der DLL DLLTest.dll zu.
77	77		Pointer(funStringZurueck) := GetProcAddress(LibHandle, 'funStringZurueck');
78	78
79	79		// Prüft, ob eine gültige Adresse zurück gegeben wurde
80	80		if @funStringZurueck <> nil then
81	81		Result := funStringZurueck('hallo welt');
82	82		end;
83	83
84	84		// Freigabe des Arbeitsspeichers
85	85		funStringZurueck := nil;
86	86		FreeLibrary(LibHandle);
87	87
88	88		end;
89	89
90	90		...
91	91		```
92	92
93	93		---
94	94		From the Free Pascal wiki, page "DLL dynamically load/de", as it stood on 2020-02-13 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