ITPub博客

首页 > 应用开发 > IT综合 > dll的创建与调用 (转)

dll的创建与调用 (转)

原创 IT综合 作者:worldblog 时间:2007-12-09 08:06:52 0 删除 编辑
dll的创建与调用 (转)[@more@] 

tiDLL参数调用约定

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

令  传递顺序    参数删除

stdcall   从左到右  函数方面

cdecl    从右到左  调用方面

pascal    从左到右  函数方面

register  从左到右  函数方面

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

退出过程编译时必须关闭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;

//---------------------------------

procedure TForm1.Edit2KeyPress(Sender: Tobject; var Key: Char);

var

 order: Integer;

 txt: PChar;

 PFunc: TFarProc;

 Moudle: THandle;

begin

  Moudle := Loadlibrary('c:dllsexample.dll');

  if Moudle > 32 then

  begin

    Edit2.text := '';

    Pfunc := GetProcAddress(Moudle,'Instr');

  txt := StrAlloc(80);

  txt := StrPCopy(txt,Edit1.text);

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

  if Order = -1 then

  Label1.Caption := '不包含这个字符 '

  end else

  Label1.Caption := '位于第'+IntToStr(Order+1)+'位';

  Freelibrary(Moudle);

end;

 

//———————————— 用于实现数据传输的DLLs的编写 

用于实现数据传输的DLLs与一般DLLs的编写基本相同,其中特别的地方是:

1. 定义一个全局变量句柄: 

 var

  hMem: THandle;

2. 定义一个过程,返回该全局变量的句柄。该过程要包含在exports子句中。如: 

 function GetGlobalMem: THandle; export;

 begin

  Result := hMem;

 end;

3. 在初始化代码中分配全局内存块:

 程序清单如下: 

begin

  hMem := GlobalAlloc(gmem_MOVEABLE and gmem_DDEShare,num);

  if hMem = 0 then

  MessageDlg('Could not allocate memory',mtWarning,[mbOK],0);

end.

//————————————————————————————————

 num是一个预定义的常数。

表10.3 全局内存块的分配标志 :标 志 意 义

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

gmem_DDEShare 分配可由应用程序共享的内存

gmem_Discardable 分配可抛弃的内存(只与gmem_Moveable连用)

gmem_Fixed 分配固定内存

gmem_Moveable 分配可移动的内存

gmem_Nocompact 该全局堆中的内存不能被压缩或抛弃

gmem_Nodiscard 该全局堆中的内存不能被抛弃

gmem_NOT_Banked 分配不能被分段的内存

gmem_Notify 通知功能。当该内存被抛弃时调用GlobalNotify函数

gmem_Zeroinit 将所分配内存块的内容初始化为零

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

有两个预定义的常用组合是:

GHND = gmem_Moveable and gmem_Zeroinit

GPTK = gmem_Fixed and gmem_Zeroinit

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


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-990002/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2410512