delphi7中如何引入外部的dll文件

1. 首先将dll文件放到运行程序目录下面，或是是windows\system32 下面。

2. 在 unit 里，引入dll中的函数（使用哪个函数就引入哪个），示例如下：

implementation

{$R *.DFM}

procedure initstdcallExternal 'test.dll' //在此声明引入dll函数，注意dll与程序在同一路径下

所谓的静态调用DLL是指程序加载的时候直接就把需要的DLL全部加载了，一直到程序运行结束才释放这些加载的DLL这个就是所谓的静态加载,动态加载就是需要一个DLL中某个函数的时候加载这个DLL运行完成了这个函数就释放DLL，这个就是动态加载！

你要静态加载DLL就用Delphi自己写一个DLL，并且写一个引出库(*.pas的)，然后在你的应用程序中包含这个*.pas就根本不用声明DLL中那些乱七八糟的引出函数，直接用就可以了，如果该DLL不存在，那么整个应用程序将无法使用，但是动态调用DLL就不同了，就算DLL不在，应用程序仍然可以使用

访问DLL库有两种方式，一种是静态引用，另一种是动态引用。

用静态引用这种方法装入DLL要做两件事情：为DLL 库创建一个输入单元，以及用USES把输入单元连接到要使用DLL 函数的程序模块中。为DLL库创建的输入单元与普通的单元的区别仅在于：在它的接口处声明的过程、函数，并不在它的实现部分给出真正的实现代码，而是用external关键字把过程、函数的实现细节委托给外部DLL模块。

external命令的使用语法如下：

procedure /function 过程/函数名；external DLL模块名；

下面给出为上面创建的minmax.DLL库写的输入单元源文件testdll .pas，从中可看出输入单元 与一般 单元的一些差别，代码如下所示：

unit testdll

interface

uses

function Min (X, Y: Integer): Integer

function Max (X, Y: Integer): Integer

implementation

function Min external ‘minmax.DLL’

function Max external ‘minmax.DLL’

end.

一个应用程序若想调用minmax.DLL中的函数，只须在其uses语句中加入testdll 单元即可。

动态装入DLL，要用到Windows的三个API函数。Loadlibrary、Freelibrary和GetprocAddress 。loadlibrary函数用来装入DLL库，其调用格式如下：

function loadlobrary (DLLfileName：Pchar): THandle:

当不再需要一个DLL库时，应调用FreeLibrary函数将其释放，以空出宝贵的内存资源，其调用格式如下：

procedure FreeLibrary (Libmodule:THandle)

Libmodule 为由LoadLibrary调用得到的DLL库句柄。在用loadlobrary 函数装入某个DLL库和调用FreeLibrary释放该DLL库之间的程序段中， 可以使用该DLL库中的过程和函数，

具体使用方法是：用GetprocAddress函数把DLL库中函数的地址传递给程序中某个函数变量，再用该变量实现DLL函数的调用。GetprocAddress函数声名如下，

function GetprocAddress (Libmodule:THandle:procname:pchar):TFarProc:

如下例所示：

type

TTimeRec = record

Second: Integer

Minute: Integer

Hour: Integer

end

TGetTime = procedure(var Time: TTimeRec)

THandle = Integer

var

Time: TTimeRec

Handle: THandle

GetTime: TGetTime

...

begin

Handle := LoadLibrary('DATETIME.DLL')

if Handle <> 0 then

begin

@GetTime := GetProcAddress(Handle, 'GetTime')

if @GetTime <> nil then

begin

GetTime(Time)

with Time do

WriteLn('The time is ', Hour, ':', Minute, ':', Second)

end

FreeLibrary(Handle)

end

end

在调用动态链接库时应注意， 所需动态链接库须与应用程序在同一目录或Windows System 目录下。

静态调用

Function fun(para:Longint):Longint stdcall external 'xxx.dll'

动态调用

loadlibrary,getprocaddress,freelibrary三个函数

DLL写法:

library DLL

uses

SysUtils,

Classes

procedure procstdcall//加上stdcall关键字

begin

。。。。

end

exports //申明的函数在这里导出以被其他程序调用

proc

begin

end.

调用则有两种方法

一种是静态 只需写

procedure procstdcall external 'DLL.dll'

便可当一般函数调用

另一种是动态

type

TProc = procedurestdcall

var

DLLHandle: THandle//DLL句柄

proc = TProc//函数变量

begin

DLLHandle := LoadLibrary('DLL.dll')//Load DLL

@proc := GetProcAddress(DLLHandle, 'proc')//得到函数的地址

proc//调用过程

FreeLibrary(DLLHandle)//释放

end

---