delphi 编写dll文件

dll文件简介：

它是Dynamic Link Library 的缩写形式，DLL 是一个包含可由多个程序同时使用的代码和数据的库，DLL不是可执行文件。动态链接提供了一种方法，使进程可以调用不属于其可执行代码的函数。函数的可执行代码位于一个 DLL 中，该 DLL 包含一个或多个已被编译、链接并与使用它们的进程分开存储的函数。DLL 还有助于共享数据和资源。多个应用程序可同时访问内存中单个DLL 副本的内容。DLL 是一个包含可由多个程序同时使用的代码和数据的库。例如，在 Windows 操作系统中，Comdlg32 DLL 执行与对话框有关的常见函数。因此，每个程序都可以使用该 DLL 中包含的功能来实现“打开”对话框。这有助于促进代码重用和内存的有效使用。

　　通过使用 DLL，程序可以实现模块化，由相对独立的组件组成。例如，一个计帐程序可以按模块来销售。可以在运行时将各个模块加载到主程序中（如果安装了相应模块）。因为模块是彼此独立的，所以程序的加载速度更快，而且模块只在相应的功能被请求时才加载。

　　此外，可以更为容易地将更新应用于各个模块，而不会影响该程序的其他部分。例如，您可能具有一个工资计算程序，而税率每年都会更改。当这些更改被隔离到 DLL 中以后，您无需重新生成或安装整个程序就可以应用更新

编写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,即可求出两个整数的和,如图1所示。

　　　　　图1 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,其中包含一个窗体,如图2所示。

　　　　　图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设定的路径