dll的创建与调用 (转)

最新推荐文章于 2022-07-31 23:34:15 发布

congmi8078

最新推荐文章于 2022-07-31 23:34:15 发布

阅读量209

点赞数

dll的创建与调用 (转)[@more@]

tiDLL参数调用约定

——————————————————————

令传递顺序参数删除

stdcall 从左到右函数方面

cdecl 从右到左调用方面

pascal 从左到右函数方面

━━━━━━━━━━━━━━━━━━━━━━

退出过程编译时必须关闭stack_checking，因而需设置编译指示 {$S-} 。　

━━━━━━━━━━━━━━━━━━━━━

//——————————dll的创建

brary mydll

{$S-}

//————————uses单元

uses

classes,stdsys, foRM in 'form.pas'{form};

//—————————变量声明

var

love:string;

baby:integer;

SaveExit: Pointer;　

//—————————函数和过程

procedure myinnerproc();stdcall; //内部使用过程

begin

{添入代码}

end;

procedure myproc(var love:string);stdcall;export; //输出可以调用过程

begin

{添入代码}

end;

function myfunction(baby:integer):integer;stdcall;export;//可调用函数

begin

{添入代码}

end;

procedure LibExit; far;

begin

if ExitCode = wep_System_Exit then

begin

{ 系统关闭时的相应处理 }

end

else

begin

{ DLL卸出时的相应处理 }

end;

ExitProc := SaveExit; { 恢复原来的退出过程指针 }

end;　

//——————————输出说明

exports

myproc name 'myproc' index 1,

myfunction name 'myfuntion' index 2 risdent;//输出信息始终保持在内存中{risdent}

//——————————初始化工作

begin

{DLL的初始化工作 }

SaveExit := ExitProc; { 保存原来的退出过程指针 }

ExitProc := @LibExit; { 安装新的退出过程 }

End.

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

表10.1 ExitCode的取值与意义：取值意义

—————————————————————

WEP_System_Exit windows关闭　

WEP_Free_DLLx DLLs被卸出

━━━━━━━━━━━━━━━━━━━━━　

//--------------调用dll

1。静态调用

　在静态调用一个DLLs中的过程或函数时，external指示增加到过程或函数的声明语句中。

被调用的过程或函数必须采用远调用模式。这可以使用far过程指示或一个{$F +}编译指示。

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

　　● 通过过程/函数名

　　● 通过过程/函数的别名

　　● 通过过程/函数的顺序号　

//————————————————————静态调用举例

unit windows

interface

function FindWindowsEx(Parent,Child:hwnd;classname,windowsname:pchar):hwnd;stdcall;

const

user32='user32.dll'

implementation

function FindWindowEx; external user32 name 'FindWindowExA'

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

2. 动态调用　

2.1 动态调用中的api函数　

　　动态调用中使用的Windows API函数主要有三个,即：Loadlibrary，GetProcAddress和Freelibrary。

1.Loadlibrary: 把指定库模块装入内存

　　语法为：　　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的错误代码。错误代码的意义如下表：　

表10.2 Loadlibrary返回错误代码的意义

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

错误代码　　　　　　　　　意　　　　　　　　义

——————————————————————————————————————

0 系统内存不够，可执行文件被破坏或调用非法

2 文件没有被发现

3 路径没有被发现

5 企图动态链接一个任务或者有一个共享或网络保护错

6 库需要为每个任务建立分离的数据段

8 没有足够的内存启动应用程序

10 Windows版本不正确

11 可执行文件非法。或者不是Windows应用程序，或者在.EXE映像中有错误

12 应用程序为一个不同的操作系统设计(如OS/2程序)

13 应用程序为MS DOS4.0设计

14 可执行文件的类型不知道

15 试图装载一个实模式应用程序(为早期Windows版本设计)

16 试图装载包含可写的多个数据段的可执行文件的第二个实例

19 试图装载一个压缩的可执行文件。文件必须被解压后才能被装裁

20 动态链接库文件非法

21 应用程序需要32位扩展

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

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

2.GetProcAddress：捡取给定模块中函数的地址

　语法为：　　function GetProcAddress(Module: THandle; ProcName: PChar): TFARProc;　

Module包含被调用的函数库模块的句柄，这个值由Loadlibrary返回。如果把Module设置为nil，则表示要引用当前模块。

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

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

3.Freelibrary：从内存中移出库模块

　　语法为：　procedure Freelibrary(Module : THandle);　

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

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

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

//———————————— 动态调用举例　

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

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

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

type

TInStr = function(source: PChar;Check: Char): Integer;