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
|
{
Call InitialiseDllist before using any of the calls, and call ReleaseDllist
when finished.
}
unit DllistDyn;
{$mode objfpc}{$H+}
interface
uses
dynlibs, SysUtils;
{$PACKRECORDS C}
{$i dllisttypes.inc}
var
DLNewList : function : PDllist;cdecl;
DLFreeList : procedure (_para1:PDllist);cdecl;
DLNewElem : function (val : pointer) :PDlelem;cdecl;
DLFreeElem : procedure (_para1:PDlelem);cdecl;
DLGetHead : function (_para1:PDllist):PDlelem;cdecl;
DLGetTail : function (_para1:PDllist):PDlelem;cdecl;
DLRemTail : function (l:PDllist):PDlelem;cdecl;
DLGetPred : function (_para1:PDlelem):PDlelem;cdecl;
DLGetSucc : function (_para1:PDlelem):PDlelem;cdecl;
DLRemove : procedure (_para1:PDlelem);cdecl;
DLAddHead : procedure (list:PDllist; node:PDlelem);cdecl;
DLAddTail : procedure (list:PDllist; node:PDlelem);cdecl;
DLRemHead : function (list:PDllist):PDlelem;cdecl;
{ Macro translated }
Function DLE_VAL(elem : PDlelem) : pointer;
Procedure InitialiseDllist(libpath:string);
Procedure ReleaseDllist;
var DllistLibraryHandle : TLibHandle;
var libpgCriticalSection: TRTLCriticalSection;
implementation
var RefCount : integer;
Procedure InitialiseDllist(libpath:string);
begin
EnterCriticalsection(libpgCriticalSection);
try
inc(RefCount);
if RefCount = 1 then
begin
DllistLibraryHandle := loadlibrary(libpath);
if DllistLibraryHandle = nilhandle then
begin
RefCount := 0;
Raise EInOutError.Create('Can not load PosgreSQL client. Is it installed? ('+libpath+')');
end;
pointer(DLNewList) := GetProcedureAddress(DllistLibraryHandle,'DLNewList');
pointer(DLFreeList) := GetProcedureAddress(DllistLibraryHandle,'DLFreeList');
pointer( DLNewElem) := GetProcedureAddress(DllistLibraryHandle,' DLNewElem');
pointer(DLFreeElem) := GetProcedureAddress(DllistLibraryHandle,'DLFreeElem');
pointer( DLGetHead) := GetProcedureAddress(DllistLibraryHandle,' DLGetHead');
pointer( DLGetTail) := GetProcedureAddress(DllistLibraryHandle,' DLGetTail');
pointer( DLRemTail) := GetProcedureAddress(DllistLibraryHandle,' DLRemTail');
pointer( DLGetPred) := GetProcedureAddress(DllistLibraryHandle,' DLGetPred');
pointer( DLGetSucc) := GetProcedureAddress(DllistLibraryHandle,' DLGetSucc');
pointer(DLRemove) := GetProcedureAddress(DllistLibraryHandle,'DLRemove');
pointer(DLAddHead) := GetProcedureAddress(DllistLibraryHandle,'DLAddHead');
pointer(DLAddTail) := GetProcedureAddress(DllistLibraryHandle,'DLAddTail');
pointer( DLRemHead) := GetProcedureAddress(DllistLibraryHandle,' DLRemHead');
end;
finally
LeaveCriticalsection(libpgCriticalSection);
end;
end;
Procedure ReleaseDllist;
begin
EnterCriticalsection(libpgCriticalSection);
try
if RefCount > 0 then dec(RefCount);
if RefCount = 0 then
begin
if not UnloadLibrary(DllistLibraryHandle) then inc(RefCount);
end;
finally
LeaveCriticalsection(libpgCriticalSection);
end;
end;
// This function is also defined in Dllist!
Function DLE_VAL(elem : PDlelem) : pointer;
begin
DLE_VAL:=elem^.dle_val
end;
initialization
InitCriticalSection(libpgCriticalSection);
finalization
DoneCriticalsection(libpgCriticalSection);
end.
|
