10.2.1.6 编写一般DLLs的应用举例　

　　在下面的程序中我们把一个字符串操作的函数储存到一个DLLs中，以便需要的时候调用它。应该注意的一点是：为了保证这个函数可以被其它语言编写的程序所调用，作为参数传递的字符串应该是无结束符的字符数组类型(即PChar类型)，而不是Object Pascal的带结束符的Srting类型。程序清单如下：

library Example;

uses

SysUtils,

Classes;

{返回字符在字符串中的位置}

function InStr(SourceStr: PChar;Ch: Char): Integer; export;

var

Len,i: Integer;

begin

Len := strlen(SourceStr);

for i := 0 to Len-1 do

if SourceStr[i] = ch then

begin

Result := i;

Exit;

end;

Result := -1;

end;

exports

Instr Index 1 name 'MyInStr' resident;

begin

end.　

10.2.2 调用DLLs

　　有两种方法可用于调用一个储存在DLLs中的过程。

　　1.静态调用或显示装载

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

　　function Instr(SourceStr : PChar;Check : Char); Integer; far; external'UseStr';

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

　　2.动态调用或隐式装载

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

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

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

10.2.3 静态调用

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

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

　　● 通过过程/函数名

　　● 通过过程/函数的别名

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

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

10.2.4 动态调用　

10.2.4.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，以保证不会有多余的库模块在应用程序结束后仍留在内存中。　

10.2.4.2 动态调用举例　

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

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

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

var

order: Integer;

txt: PChar;

PFunc: TFarProc;

Moudle: THandle;

begin

Moudle := Loadlibrary('c:\dlls\example.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 := '不包含这个字符 '

else

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

end;

Freelibrary(Moudle);

end;

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

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

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

type

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

10.3 利用DLLs实现数据传输　

10.3.1 DLLs中的全局内存　

　　Windows规定：DLLs并不拥有它打开的任何文件或它分配的任何全局内存块。这些对象由直接或间接调用DLLs的应用程序拥有。这样，当应用程序中止时，它拥有的打开的文件自动关闭，它拥有的全局内存块自动释放。这就意味着保存在DLLs全局变量中的文件和全局内存块变量在DLLs没有被通知的情况下就变为非法。这将给其它使用该DLLs的应用程序造成困难。

　　为了避免出现这种情况，文件和全局内存块句柄不应作为DLLs的全局变量，而是作为DLLs中过程或函数的参数传递给DLLs使用。调用DLLs的应用程序应该负责对它们的维护。

　　但在特定情况下，DLLs也可以拥有自己的全局内存块。这些内存块必须用gmem_DDEShare属性进行分配。这样的内存块直到被DLLs显示释放或DLLs退出时都保持有效。

　　由DLLs管理的全局内存块是应用程序间进行数据传输的又一途径，下面我们将专门讨论这一问题。　

10.3.2 利用DLLs实现应用程序间的数据传输　

　　利用DLLs实现应用程序间的数据传输的步骤为：

　　1. 编写一个DLLs程序，其中拥有一个用gmem_DDEShare属性分配的全局内存块；

　　2. 服务器程序调用DLLs，向全局内存块写入数据；

　　3. 客户程序调用DLLs，从全局内存块读取数据。　

10.3.2.1 用于实现数据传输的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是一个预定义的常数。

Windows API函数GlobalAlloc用于从全局内存堆中分配一块内存，并返回该内存块的句柄。该函数包括两个参数，第一个参数用于设置内存块的分配标志。可以使用的分配标志如下表所示。

表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

　　第二个参数用于设置欲分配的字节数。分配的字节数必须是32的倍数，因而实际分配的字节数可能比所设置的要大。

　　由于用gmem_DDEShare分配的内存在分配内存的模块终止时自动抛弃，因而不必调用GlobalFree显式释放内存。