blob: c1c139e07a996052a3ee19e5acc4fac9cc53ae86 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by the Free Pascal development team
Implements OS-independent loading of dynamic libraries.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFDEF FPC}
{$MODE OBJFPC}
{$ENDIF}
unit dynlibs;
interface
Type
TLibHandle = System.TLibHandle;
Const
NilHandle = System.NilHandle;
SharedSuffix = System.SharedSuffix;
Function SafeLoadLibrary(const Name : RawByteString) : TLibHandle; inline;
Function LoadLibrary(const Name : RawByteString) : TLibHandle; inline;
Function SafeLoadLibrary(const Name : UnicodeString) : TLibHandle; inline;
Function LoadLibrary(const Name : UnicodeString) : TLibHandle; inline;
Function GetProcedureAddress(Lib : TlibHandle; const ProcName : AnsiString) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif}; inline;
Function GetProcedureAddress(Lib : TLibHandle; Ordinal: TOrdinalEntry) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif}; inline;
Function UnloadLibrary(Lib : TLibHandle) : Boolean; inline;
Function GetLoadErrorStr: string; inline;
// Kylix/Delphi compability
Function FreeLibrary(Lib : TLibHandle) : Boolean; inline;
Function GetProcAddress(Lib : TlibHandle; const ProcName : AnsiString) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif}; inline;
Type
HModule = TLibHandle;
Implementation
{ Should define a procedure InitDynLibs which sets up the DynLibs manager; optionally a
DoneDynLibs can be defined which is called during finalization }
{$i dynlibs.inc}
Function SafeLoadLibrary(const Name : RawByteString) : TLibHandle;
begin
Result:=System.SafeLoadLibrary(Name);
end;
Function LoadLibrary(const Name : RawByteString) : TLibHandle;
begin
Result:=System.LoadLibrary(Name);
end;
Function SafeLoadLibrary(const Name : UnicodeString) : TLibHandle;
begin
Result:=System.SafeLoadLibrary(Name);
end;
Function LoadLibrary(const Name : UnicodeString) : TLibHandle;
begin
Result:=System.LoadLibrary(Name);
end;
Function GetProcedureAddress(Lib : TLibHandle; const ProcName: AnsiString) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
begin
Result:=System.GetProcedureAddress(Lib, ProcName);
end;
Function GetProcedureAddress(Lib : TLibHandle; Ordinal : TOrdinalEntry) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
begin
Result:=System.GetProcedureAddress(Lib, Ordinal);
end;
Function UnloadLibrary(Lib : TLibHandle) : Boolean;
begin
Result:=System.UnloadLibrary(Lib);
end;
Function GetLoadErrorStr: String;
begin
Result:=System.GetLoadErrorStr;
end;
Function FreeLibrary(Lib : TLibHandle) : Boolean;
begin
Result:=System.FreeLibrary(lib);
end;
Function GetProcAddress(Lib : TlibHandle; const ProcName : AnsiString) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
begin
Result:=System.GetProcedureAddress(Lib,Procname);
end;
initialization
InitDynLibs;
finalization
{$if declared(DoneDynLibs)}
DoneDynLibs;
{$endif}
end.
|
