Delphi中动态链接库两种调用方式的比较

一、动态链接库的概念

动态链接库（Dynamic Link Library，缩写为DLL）是一个可以被其它应用程序共享的程序模块，其中封装了一些可以被共享的例程和资源。动态链接库文件的扩展名一般是dll，也有可能是drv、sys和fon，它和可执行文件（exe）非常类似，区别在于DLL中虽然包含了可执行代码却不能单独执行，而应由Windows应用程序直接或间接调用。

动态链接是相对于静态链接而言的。所谓静态链接是指把要调用的函数或者过程链接到可执行文件中，成为可执行文件的一部分。换句话说，函数和过程的代码就在程序的exe文件中，该文件包含了运行时所需的全部代码。当多个程序都调用相同函数时，内存中就会存在这个函数的多个拷贝，这样就浪费了宝贵的内存资源。而动态链接所调用的函数代码并没有被拷贝到应用程序的可执行文件中去，而是仅仅在其中加入了所调用函数的描述信息（往往是一些重定位信息）。仅当应用程序被装入内存开始运行时，在Windows的管理下，才在应用程序与相应的DLL之间建立链接关系。当要执行所调用DLL中的函数时，根据链接产生的重定位信息，Windows才转去执行DLL中相应的函数代码。

一般情况下，如果一个应用程序使用了动态链接库，Win32系统保证内存中只有DLL的一份复制品，这是通过内存映射文件实现的。DLL首先被调入Win32系统的全局堆栈，然后映射到调用这个DLL的进程地址空间。在Win32系统中，每个进程拥有自己的32位线性地址空间，如果一个DLL被多个进程调用，每个进程都会收到该DLL的一份映像。与16位Windows不同，在Win32中 DLL可以看作是每个进程自己的代码。

二、动态链接库的优点

1． 共享代码、资源和数据

使用DLL的主要目的就是为了共享代码，DLL的代码可以被所有的Windows应用程序共享。

2． 隐藏实现的细节

DLL中的例程可以被应用程序访问，而应用程序并不知道这些例程的细节。

3． 拓展开发工具如Delphi的功能

由于DLL是与语言无关的，因此可以创建一个DLL，被C++、VB或任何支持动态链接库的语言调用。这样如果一种语言存在不足，就可以通过访问另一种语言创建的DLL来弥补。

三、动态链接库的实现方法

1． Load-time Dynamic Linking

这种用法的前提是在编译之前已经明确知道要调用DLL中的哪几个函数，编译时在目标文件中只保留必要的链接信息，而不含DLL函数的代码；当程序执行时，利用链接信息加载DLL函数代码并在内存中将其链接入调用程序的执行空间中，其主要目的是便于代码共享。

2． Run-time Dynamic Linking

这种方式是指在编译之前并不知道将会调用哪些DLL函数，完全是在运行过程中根据需要决定应调用哪个函数，并用LoadLibrary和GetProcAddress动态获得DLL函数的入口地址。

四、DLL的两种调用方式在Delphi中的比较

编写DLL的目的是为了输出例程供其他程序调用，因此在DLL的工程文件中要把输出的例程用 Exports关键字引出。在调用DLL的应用程序中，需要声明用到的DLL中的方法，声明格式要和DLL中的声明一样。访问DLL中的例程有静态调用和动态调用两种方式。静态调用方式就是在单元的Interface部分用External指示字列出要从DLL中引入的例程；动态调用方式就是通过调用 Windows的API包括LoadLibrary函数、GetProcAddress函数以及FreeLibrary函数动态的引入DLL中的例程。

静态调用方式所需的代码较动态调用方式所需的少，但存在着一些不足，一是如果要加载的DLL 不存在或者DLL中没有要引入的例程，这时候程序就自动终止运行；二是DLL一旦加载就一直驻留在应用程序的地址空间，即使DLL已不再需要了。动态调用方式就可解决以上问题，它在需要用到DLL的时候才通过LoadLibrary函数引入，用完后通过FreeLibrary函数从内存中卸载，而且通过调 GetProcAddress函数可以指定不同的例程。最重要的是，如果指定的DLL出错，至多是API调用失败，不会导致程序终止。以下将通过具体的实例说明说明这调用方式的使用方法。

1． 静态调用方式

示例程序创建了一个DLL，其中仅包含一个求两个整数的和的函数，在主程序中输入两个整数，通过调用该DLL，即可求出两个整数的和。

该DLL的程序代码如下：

library AddNum;

            uses

            SysUtils,

            Classes;

            {$R *.res}

            function AddNumber(Num1,Num2:integer):integer;stdcall; //定义求和函数

            　begin

            　　result:=Num1+Num2;

            　end;

            　　exports

            　　AddNumber; //引出求和函数

            　begin

            end.

主程序在调用该DLL时，首先在interface部分声明要调用的函数：

function AddNum(Num1,Num2:integer):integer;stdcall;external 'AddNum.dll'

            name 'AddNumber';

然后在按钮控件的事件中写入如下代码：

procedure TForm1.Button1Click(Sender: TObject);

            var

            　Number1,Number2:integer;

            　Sum:integer;

            begin

            　Number1:=strtoint(Edit1.Text);

            　Number2:=strtoint(Edit2.Text);

            　Sum:=AddNum(Number1,Number2); //调用求和函数计算结果

            　Edit3.Text:=inttostr(Sum);

            end;

2．动态调用方式

这个示例程序创建了一个显示日期的DLL，其中包含一个窗体。

程序中定义了一个ShowCalendar函数，返回在这个窗体中设定的日期。函数定义如下：

function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime;

            var

            　DLLForm: TDLLForm;

            begin

            　Application.Handle := AHandle;

            　DLLForm := TDLLForm.Create(Application); //创建并显示窗体

            　try

            　　DLLForm.Caption := ACaption;

            　　DLLForm.ShowModal; //显示方式为模式化

            　　Result := DLLForm.calDLLCalendar.CalendarDate; //返回设定日期

            　finally

            　　DLLForm.Free; //用完后卸载该窗体

            　end;

            end;

在DLL的工程文件中用exports ShowCalendar; 语句引出该函数。下面通过一个简单的应用程序测试一下该DLL文件。新建一个工程文件，在窗体中放置一个Label控件和一个按钮控件，在按钮控件的 OnClick事件中编写如下代码：

procedure TMainForm.Button1Click(Sender: TObject);

            var

            　OneHandle : THandle; //定义一个句柄变量

            begin

            　OneHandle := LoadLibrary('Clendar.dll'); //动态载入DLL，并返回其句柄

            　try

            　　if OneHandle <> 0 then //如果载入成功则获取ShowCalendar函数的地址

            　　　@ShowCalendar := GetProcAddress(OneHandle, 'ShowCalendar');

            　　　if not (@ShowCalendar = nil) then

            　　　　//如果找到该函数则在主窗体的Label1中显示DLL窗体中设定的日期

            　　　　Label1.Caption := DateToStr(ShowCalendar(Application.Handle, Caption))

            　　　else

            　　　　RaiseLastWin32Error;

            　finally

            　　FreeLibrary(OneHandle); //调用完毕收回DLL占用的资源

            　end;

            end;

从以上程序中可以看到DLL的动态调用方式比静态调用方式的优越之处。DLL例程在用到时才被调入，用完后就被卸载，大大减少了系统资源的占用。在调用LoadLibrary函数时可以明确指定DLL的完整路径，如果没有指定路径，运行时首先查找应用程序载入的目录，然后是Windows系统的System目录和环境变量Path设定的路径。

五、结束语

由于动态链接库可以实现代码和资源的共享，大大减少系统资源的占用，因此在当今的应用程序开发中起着非常重要的作用。Delphi是现今流行的应用软件开发工具，本文就如何在Delphi中使用动态链接库给出了一定程度上的阐述。