DELPHI基础教程：动态链接库编程（一）[3]

　　 静态调用或显示装载

　　使用一个外部声明子句 使DLLs在应用程序开始执行前即被装入 例如

　　function Instr（SourceStr : PChar;Check : Char） Integer; far; external UseStr ;

　　使用这种方法 程序无法在运行时间里决定DLLs的调用 假如一个特定的DLLs在运行时无法使用 则应用程序将无法执行

　　 动态调用或隐式装载

　　使用Windows API函数LoadLibray和GetProcAddress可以实现在运行时间里动态装载DLLs并调用其中的过程

　　若程序只在其中的一部分调用DLLs的过程 或者程序使用哪个DLLs 调用其中的哪个过程需要根据程序运行的实际状态来判断 那么使用动态调用就是一个很好的选择

　　使用动态调用 即使装载一个DLLs失败了 程序仍能继续运行

　　 静态调用

　　在静态调用一个DLLs中的过程或函数时 external指示增加到过程或函数的声明语句中 被调用的过程或函数必须采用远调用模式 这可以使用far过程指示或一个{$F +}编译指示

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

　　● 通过过程/函数名

　　● 通过过程/函数的别名

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

　　通过过程或函数的别名调用 给用户编程提供了灵活性 而通过顺序号（Index）调用可以提高相应DLL的装载速度

　　 动态调用

　　 动态调用中的API函数

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

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

　　语法为

　　function Loadlibrary（LibFileName: PChar） THandle;

　　LibFileName指定了要装载DLLs的文件名 如果LibFileName没有包含一个路径 则Windows按下述顺序进行查找

　　（ ）当前目录

　　（ ）Windows目录（包含win 的目录） 函数GetWindowDirectory返回这一目录的路径

　　（ ）Windows系统目录（包含系统文件如gdi exe的目录） 函数GetSystemDirectory返回这一目录的路径

　　（ ）包含当前任务可执行文件的目录 利用函数GetModuleFileName可以返回这一目录的路径

　　（ ）列在PATH环境变量中的目录

　　（ ）网络的映象目录列表

　　如果函数执行成功 则返回装载库模块的实例句柄 否则 返回一个小于HINSTANCE_ERROR的错误代码 错误代码的意义如下表

　　表 Loadlibrary返回错误代码的意义

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

　　错误代码         意        义

　　

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

　　 文件没有被发现

　　 路径没有被发现

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

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

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

　　 Windows版本不正确

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

　　 应用程序为一个不同的操作系统设计（如OS/ 程序）

　　 应用程序为MS DOS 设计

　　 可执行文件的类型不知道

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

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

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

　　 动态链接库文件非法

　　 应用程序需要 位扩展

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

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

　　 GetProcAddress:捡取给定模块中函数的地址

　　语法为

　　function GetProcAddress（Module: THandle; ProcName: PChar） TFarProc;

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

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

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

　　 Freelibrary:从内存中移出库模块

　　语法为

　　procedure Freelibrary（Module : THandle）

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

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

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

　　 动态调用举例

　　对于动态调用 我们举了如下的一个简单例子 系统一共包含两个编辑框 在第一个编辑框中输入一个字符串 而后在第二个编辑框中输入字符 如果该字符包含在第一个编辑框的字符串中 则标签框显示信息 位于第n位 否则显示信息 不包含这个字符 如图是程序的运行界面

　　输入检查功能的实现在Edit 的OnKeyPress事件处理过程中 程序清单如下

　　procedure TForm Edit KeyPress（Sender: TObject; var Key: Char）

　　var

　　order: Integer;

　　txt: PChar;

　　PFunc: TFarProc;

　　Moudle: THandle;

　　begin

　　Moudle := Loadlibrary（ c:\dlls\example dll ）

　　if Moudle > then

　　begin

　　Edit text := ;

　　Pfunc := GetProcAddress（Moudle Instr ）

　　txt := StrAlloc（ ）

　　txt := StrPCopy（txt Edit text）

　　Order := TInstr（PFunc）（txt Key）

　　if Order = then

　　Label Caption := 不包含这个字符

　　else

　　Label Caption := 位于第 +IntToStr（Order+ ）+ 位 ;

　　end;

　　Freelibrary（Moudle）

　　end;

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

lishixinzhi/Article/program/Delphi/201311/25209

~

DELPHI基础教程:动态链接库编程(一)[3]
答：ProcName是指向含有函数名的以nil结尾的字符串的指针 或者也可以是函数的次序值 如果ProcName参数是次序值 则如果该次序值的函数在模块中并不存在时 GetProcAddress仍返回一个非nil的值 这将引起混乱 因此大部分情况下用函数名是一种更好的选择 如果用函数名 则函数名的拼写必须与动态链接库文件EXPORTS...

DELPHI基础教程:动态链接库编程(一)[1]
答：动态链接库（DLLs）是从C语言函数库和Pascal库单元的概念发展而来的 所有的C语言标准库函数都存放在某一函数库中 同时用户也可以用LIB程序创建自己的函数库 在链接应用程序的过程中 链接器从库文件中拷贝程序调用的函数代码 并把这些函数代码添加到可执行文件中 这种方法同只把函数储存在已编译的 OBJ文件...

DELPHI基础教程:动态链接库编程(一)[2]
答：库初始化代码的编写 传统Windows中动态链接库的编写 需要两个标准函数 LibMain和WEP 用于启动和关闭DLL 在LibMain中 可以执行开锁DLL数据段 分配内存 初始化变量等初始化工作 而WEP在从内存中移去DLLs前被调用 一般用于进行必要的清理工作 如释放内存等 Delphi用自己特有的方式实现了这两个标准函数的功能 ...

Delphi 中动态链接库(dll)的建立和使用[1]
答：一 DLL 库内存共享机制 从使用效果看 DLL和unit 很像 它们都可以被别的工程模块所调用 但二者在内部的实现机制上确存在着差别 如果一个程序模块中用uses语句引用了某个unit 编译程序在编译该模块时 便会连同unit一起编译 并把编译后的可执行代码链接到本程序模块中 这就是一个程序模块能够调用所引用...

Delphi中如何建立dll(动态链接库)?
答：第一步：建立DLL工程文件 library pDll;uses SysUtils,Classes,uSum in 'uSum.pas';exports Sum;{$R *.res} begin end.第二部：在工程文件内加入UNIT(uSum.pas)，可写入各种所需要的过程或函数并在工程文件内标记为输入（exports Sum;）unit uSum;interface uses Windows,Messages,SysUtils;function ...

动态数据库的什么是动态链接库?
答：动态链接库是一个能够被应用程序和其它的DLL调用的过程和函数的集合体,它里面包含的是公共代码或资源。由于DLL代码使用了内存共享技术,在某些地方windows也给了DLL一些更高的权限,因而DLL中可以实现一些一般程序所不能实现的功能,如实现windows的HOOK、ISAPI等。同时,DLL还为不同语言间代码共享提供了一条...

C# 如何调用Delphi动态链接库??
答：运行查看结果iSum为5，调用正确。第一步试验完成，说明在C#中能够调用自定义的动态链接库函数。第二步，我定义了字符串操作的函数（简单起见，还是采用前面的函数名），返回结果为字符串：LIBEXPORT_API char *mySum(char *a,char *b){sprintf(b,"%s",a); return a;} C# 导入定义：public class...

DELPHI基础教程:剪贴板和动态数据交换(一)[1]
答：Delphi支持如下四种数据交换方式 剪贴板 动态数据交换 （ DDE） 对象联接与嵌入（OLE）以及动态联接库（DLLs） 这中间前三种方式最为常用 OLE功能最为强大 DDE次之 而剪贴板使用最为方便 在本章 我们只讨论剪贴板和动态数据交换 利用OLE实现数据交换见下一章 利用动态联接库（DLLs）进行数据交换将在第...

delphi动态链接库
答：var dll:Cardinal;pp:function(x,y:integer):integer;begin dll:=LoadLibrary(PChar('xx.dll'));if dll<>0 then begin pp:=GetProcAddress(dll, 'abc');if @pp<>nil then begin //调用函数 end;FreeLibrary(dll);end;end;

DELPHI基础教程:Delphi自定义部件开发(一)[2]
答：在传统的Windows编程中 如果你想建立客户化的控制 你就必须将其做在动态链接库里 就象标准Windows控制 并且提供一个访问界面 使用Delphi 你能创建一个部件包装在已有窗口类之上 如果你已有客户化控制的库 并想使其运行在你的Delphi应用中 那你就能创建一个使你能使用已有控制和获得新的控制的部件 在库...