DLLs调用

调用DLLs

有两种方法可用于调用一个储存在DLLs中的过程。

静态调用或显示装载

使用一个外部声明子句,使DLLs在应用程序开始执行前即被装入。例如:

1
function Instr(SourceStr : PChar;Check : Char); Integer; far; external 'UseStr';

使用这种方法,程序无法在运行时间里决定DLLs的调用。假如一个特定的DLLs在运行时无法使用,则应用程序将无法执行。

动态调用或隐式装载

使用Windows API函数LoadLibray和GetProcAddress可以实现在运行时间里动态装载DLLs并调用其中的过程。

若程序只在其中的一部分调用DLLs的过程,或者程序使用哪个DLLs,调用其中的哪个过程需要根据程序运行的实际状态来判断,那么使用动态调用就是一个很好的选择。

使用动态调用,即使装载一个DLLs失败了,程序仍能继续运行。

静态调用

在静态调用一个DLLs中的过程或函数时,external指示增加到过程或函数的声明语句中。被调用的过程或函数必须采用远调用模式。这可以使用far过程指示或一个{$F +}编译指示。

Delphi全部支持传统Windows动态链接库编程中的三种调用方式,它们是:

  • 通过过程/函数名
  • 通过过程/函数的别名
  • 通过过程/函数的顺序号

通过过程或函数的别名调用,给用户编程提供了灵活性,而通过顺序号(Index)调用可以提高相应DLL的装载速度。

动态调用

动态调用中的API函数

动态调用中使用的Windows API函数主要有三个,即:LoadlibraryGetProcAddressFreelibrary

Loadlibrary

把指定库模块装入内存
语法为:

1
function Loadlibrary(LibFileName: PChar): THandle;

LibFileName指定了要装载DLLs的文件名,如果LibFileName没有包含一个路径,则Windows按下述顺序进行查找:

  1. 当前目录;
  2. Windows目录(包含win.com的目录)。函数GetWindowDirectory返回这一目录的路径;
  3. Windows系统目录(包含系统文件如gdi.exe的目录)。函数GetSystemDirectory返回这一目录的路径;
  4. 包含当前任务可执行文件的目录。利用函数GetModuleFileName可以返回这一目录的路径;
  5. 列在PATH环境变量中的目录;
  6. 网络的映象目录列表。

如果函数执行成功,则返回装载库模块的实例句柄。否则,返回一个小于HINSTANCE_ERROR的错误代码。

假如在应用程序用Loadlibrary调用某一模块前,其它应用程序已把该模块装入内存,则Loadlibrary并不会装载该模块的另一实例,而是使该模块的“引用计数”加1。

GetProcAddress

捡取给定模块中函数的地址
语法为:

1
function GetProcAddress(Module: THandle; ProcName: PChar): TFarProc;
  • Module包含被调用的函数库模块的句柄,这个值由Loadlibrary返回。如果把Module设置为nil,则表示要引用当前模块。

  • ProcName是指向含有函数名的以nil结尾的字符串的指针,或者也可以是函数的次序值。如果ProcName参数是次序值,则如果该次序值的函数在模块中并不存在时,GetProcAddress仍返回一个非nil的值。这将引起混乱。因此大部分情况下用函数名是一种更好的选择。如果用函数名,则函数名的拼写必须与动态链接库文件EXPORTS节中的对应拼写相一致。

如果GetProcAddress执行成功,则返回模块中函数入口处的地址,否则返回nil

Freelibrary

从内存中移出库模块
语法为:

1
procedure Freelibrary(Module : THandle);

Module为库模块的句柄。这个值由Loadlibrary返回。

由于库模块在内存中只装载一次,因而调用Freelibrary首先使库模块的引用计数减一。如果引用计数减为0,则卸出该模块。

每调用一次Loadlibrary就应调用一次FreeLibray,以保证不会有多余的库模块在应用程序结束后仍留在内存中。

动态调用举例

对于动态调用,我们举了如下的一个简单例子。系统一共包含两个编辑框。在第一个编辑框中输入一个字符串,而后在第二个编辑框中输入字符。如果该字符包含在第一个编辑框的字符串中,则标签框显示信息:“位于第n位。”,否则显示信息:“不包含这个字符。”。如图是程序的运行界面。

输入检查功能的实现在Edit2的OnKeyPress事件处理过程中,程序清单如下。

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
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var
order: Integer;
txt: PChar;
PFunc: TFarProc;
Moudle: THandle;
begin
Moudle := Loadlibrary('c:\dlls\example.dll');
if Moudle > 32 then
begin
Edit2.text := '';
Pfunc := GetProcAddress(Moudle,'Instr');
txt := StrAlloc(80);
txt := StrPCopy(txt,Edit1.text);
Order := TInstr(PFunc)(txt,Key);
if Order = -1 then
Label1.Caption := '不包含这个字符 '
else
Label1.Caption := '位于第'+IntToStr(Order+1)+'位';
end;
Freelibrary(Moudle);
end;

在利用GetProcAddess返回的函数指针时,必须进行强制类型转换:

1
Order := TInstr(PFunc)(text,Key);

TInStr是一个定义好了的函数类型:

1
2
3
type
TInStr = function(Source: PChar;Check: Char): Integer;

热评文章