Delphi 中动态链接库（dll）的建立和使用[2]

http://www.miiceic.org.cn 2007-10-16 9:38:02 中程在线浏览数：

关键字：delphi

三 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 目录下。

　　动态链接库是 Windows下程序组织的一种重要方式，使用动态链接库可以极大地保护用户在不同开发工具、不同时期所做的工作，提高编程效率。

来源：csai

水つ鱼

一沙一世界一花一天堂掌中握無……

凌花阁

网络编程技术、多媒体技术、PC应用技术

我爱研发网	中电华信	阿里西西	JAVA爱好者	北京英才网	全球大学查询网
中国人的网站导航	中国电脑论坛	信息产业部	新浪科技	搜狐IT	信息产业部电子教育与考试中心
IT世界网	软件项目交易网	中国软件交易网	国信培训网	亚远景科技	....[更多]