Difference between revisions of "DLL static load/de"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{DLL static load}} <br> <br> Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> Das Tutorial, zeigt wie eine DLL (Dynamic Link Library) <b>statisch</b> gelad...") |
m |
||
Line 47: | Line 47: | ||
function funWertZurueck: string; | function funWertZurueck: string; | ||
begin | begin | ||
+ | // Übernimmt den Rückgabewert der DLL-Funktion | ||
Result := funStringZurueck('hallo welt'); | Result := funStringZurueck('hallo welt'); | ||
end; | end; |
Revision as of 15:54, 4 June 2013
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│
Deutsch (de) │
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}
// Die Funktion der DLL
function funStringZurueck(strUebergabe: string): PChar;
begin
funStringZurueck := PChar(UpperCase(strUebergabe));
end;
// Exportierte Funktion(en)
exports
funStringZurueck;
begin
end.
Einbinden, verwenden und freigeben der DLL-Funktion im eigenen Programm:
uses
Windows, ...;
...
// Nennt die zuverwendende Funktion und die DLL in der die Funktion zu finden ist
function funStringZurueck(strUebergabe: PChar): PChar; stdcall; external 'DLLTest.dll';
...
function funWertZurueck: string;
begin
// Übernimmt den Rückgabewert der DLL-Funktion
Result := funStringZurueck('hallo welt');
end;
...
--Olaf 13:50, 4 June 2013 (UTC)