DLL static 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 | - | ||
| 5 | + | Das Tutorial, zeigt wie eine DLL (Dynamic Link Library) statisch 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 | // Exportierte Unterprogramm(e) | |
| 26 | 26 | exports | |
| 27 | 27 | funStringZurueck; | |
| 28 | 28 | ||
| 29 | 29 | begin | |
| 30 | 30 | end. | |
| 31 | 31 | ``` | |
| 32 | 32 | ||
| 33 | 33 | Einbinden, verwenden und freigeben des DLL-Unterprogramms im eigenen Programm: | |
| 34 | 34 | ||
| 35 | 35 | ``` pascal | |
| 36 | 36 | uses | |
| 37 | 37 | Windows, ...; | |
| 38 | 38 | ||
| 39 | 39 | ... | |
| 40 | 40 | ||
| 41 | 41 | { | |
| 42 | 42 | Nennt das zuverwendende Unterprogramm und die DLL in der das Unterprogramm zu finden ist. | |
| 43 | 43 | (In diesem Beispiel heisst die DLL DLLTest.dll und ist natürlich durch den Namen | |
| 44 | 44 | Ihrer DLL zu ersetzen.) | |
| 45 | 45 | (In diesem Beispiel heisst das Unterprogramm der DLL funStringZurueck und ist | |
| 46 | 46 | natürlich durch den Namen des Unterprograms in Ihrer DLL zu ersetzen.) | |
| 47 | 47 | } | |
| 48 | 48 | function funStringZurueck(strUebergabe: PChar): PChar; stdcall; external 'DLLTest.dll'; | |
| 49 | 49 | ||
| 50 | 50 | ... | |
| 51 | 51 | ||
| 52 | 52 | function funWertZurueck: string; | |
| 53 | 53 | begin | |
| 54 | 54 | // Übernimmt den Rückgabewert des DLL-Unterprogramms | |
| 55 | 55 | Result := funStringZurueck('hallo welt'); | |
| 56 | 56 | end; | |
| 57 | 57 | ||
| 58 | 58 | ... | |
| 59 | 59 | ``` | |
| 60 | 60 | ||
| 61 | 61 | --- | |
| 62 | 62 | *From the Free Pascal wiki, page "DLL static load/de", as it stood on 2020-02-14 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).* |