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
