DLL static load/de
From Free Pascal wiki
Jump to navigationJump to search
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
Result := funStringZurueck('hallo welt');
end;
...
--Olaf 13:50, 4 June 2013 (UTC)