Difference between revisions of "DLL static load/de"
From Lazarus wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting; deleted category included in page template) |
||
| (2 intermediate revisions by one other user not shown) | |||
| Line 1: | Line 1: | ||
{{DLL static load}} | {{DLL static load}} | ||
| − | + | ||
| − | + | ||
| − | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | + | Zurück zu den [[Additional information/de|Zusätzlichen Informationen]]. |
| − | Das Tutorial, zeigt wie eine DLL (Dynamic Link Library) <b>statisch</b> geladen wird. | + | |
| − | + | ||
| − | + | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | |
| − | Die Dll (DLLTest.dll) auf die sich im unteren Beispiel bezogen wird: | + | |
| − | <syntaxhighlight> | + | Das Tutorial, zeigt wie eine DLL (Dynamic Link Library) <b>statisch</b> geladen wird. |
| + | |||
| + | |||
| + | Die Dll (DLLTest.dll) auf die sich im unteren Beispiel bezogen wird: | ||
| + | |||
| + | <syntaxhighlight lang=pascal> | ||
library Info; | library Info; | ||
| Line 17: | Line 22: | ||
{$R *.res} | {$R *.res} | ||
| − | // | + | // Das Unterprogramm der DLL |
function funStringZurueck(strUebergabe: string): PChar; | function funStringZurueck(strUebergabe: string): PChar; | ||
begin | begin | ||
| Line 24: | Line 29: | ||
| − | // Exportierte | + | // Exportierte Unterprogramm(e) |
exports | exports | ||
funStringZurueck; | funStringZurueck; | ||
| Line 31: | Line 36: | ||
end. | end. | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | + | ||
| − | + | Einbinden, verwenden und freigeben des DLL-Unterprogramms im eigenen Programm: | |
| − | Einbinden, verwenden und freigeben | + | |
| − | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
uses | uses | ||
Windows, ...; | Windows, ...; | ||
| Line 40: | Line 45: | ||
... | ... | ||
| − | + | { | |
| + | Nennt das zuverwendende Unterprogramm und die DLL in der das Unterprogramm zu finden ist. | ||
| + | (In diesem Beispiel heisst die DLL DLLTest.dll und ist natürlich durch den Namen | ||
| + | Ihrer DLL zu ersetzen.) | ||
| + | (In diesem Beispiel heisst das Unterprogramm der DLL funStringZurueck und ist | ||
| + | natürlich durch den Namen des Unterprograms in Ihrer DLL zu ersetzen.) | ||
| + | } | ||
function funStringZurueck(strUebergabe: PChar): PChar; stdcall; external 'DLLTest.dll'; | function funStringZurueck(strUebergabe: PChar): PChar; stdcall; external 'DLLTest.dll'; | ||
| Line 47: | Line 58: | ||
function funWertZurueck: string; | function funWertZurueck: string; | ||
begin | begin | ||
| − | // Übernimmt den Rückgabewert | + | // Übernimmt den Rückgabewert des DLL-Unterprogramms |
Result := funStringZurueck('hallo welt'); | Result := funStringZurueck('hallo welt'); | ||
end; | end; | ||
... | ... | ||
| − | |||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 07:45, 14 February 2020
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│
Deutsch (de) │
Zurück zu den Zusätzlichen Informationen.
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Das Tutorial, zeigt wie eine DLL (Dynamic Link Library) statisch geladen wird.
Die Dll (DLLTest.dll) auf die sich im unteren Beispiel bezogen wird:
library Info;
{$mode objfpc}{$H+}
uses
SysUtils;
{$R *.res}
// Das Unterprogramm der DLL
function funStringZurueck(strUebergabe: string): PChar;
begin
funStringZurueck := PChar(UpperCase(strUebergabe));
end;
// Exportierte Unterprogramm(e)
exports
funStringZurueck;
begin
end.
Einbinden, verwenden und freigeben des DLL-Unterprogramms im eigenen Programm:
uses
Windows, ...;
...
{
Nennt das zuverwendende Unterprogramm und die DLL in der das Unterprogramm zu finden ist.
(In diesem Beispiel heisst die DLL DLLTest.dll und ist natürlich durch den Namen
Ihrer DLL zu ersetzen.)
(In diesem Beispiel heisst das Unterprogramm der DLL funStringZurueck und ist
natürlich durch den Namen des Unterprograms in Ihrer DLL zu ersetzen.)
}
function funStringZurueck(strUebergabe: PChar): PChar; stdcall; external 'DLLTest.dll';
...
function funWertZurueck: string;
begin
// Übernimmt den Rückgabewert des DLL-Unterprogramms
Result := funStringZurueck('hallo welt');
end;
...
