为了避免出现这种情况，文件和全局内存块句柄不应作为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显式释放内存。

　

10.3.2.2 服务器程序的编写　

　　服务器程序必须包含对DLL的调用代码，如：　

function GetGlobalMem: THandle; far; external 'c:\dlls\glbmem';

　　通过调用该函数，服务器可以获得全局内存块的句柄。

　　在写入数据前，服务器必须锁定全局内存，以避免在写入过程中Windows移动该内存块的位置。

　　函数GlobalLock锁定全局内存并返回指向该内存块的指针：　

pMem := GlobalLock(hMem);

　　对pMem的任何修改都会反映到全局内存块中。

　　对内存块进行操作后，调用GlobalUnLock进行解锁。内存块操作之后尽早解锁，有利于Windows充分利用内存资源。

　　服务器写入数据的实现代码如下。　

var

hMem: THandle;

pMem: PChar;

begin

hMem := GetGlobalMem; {获得全局内存块的句柄}

if hMem <> 0 then

begin

pMem := GlobalLock(hMem); {加锁全局内存块}

if pMem <> nil then

begin

StrPCopy(pMem,Memo1.text); {向全局内存块写入数据}

GlobalUnlock(hMem); {解锁全局内存块}

end

else

MessageDlg('Couldnot Lock memory block',mtWarning,[mbOK],0);

end;　

10.3.2.3 客户程序的编写　

　　客户程序几乎是服务器程序的翻版。唯一的区别在于一个是写入数据，一个是下载数据。

下面是客户从全局内存块下载数据的程序清单。　

var

hMem: THandle;

pMem: PChar;

begin

hMem := GetGlobalMem; {获得全局内存块的句柄}

if hMem <> 0 then

begin

pMem := GlobalLock(hMem); {加锁全局内存块}

if pMem <> nil then

begin

Memo1.text := StrPas(pMem); {从全局内存块读取数据}

GlobalUnlock(hMem); {解锁全局内存块}

end

else

MessageDlg('Couldnot Lock memory block',mtWarning,[mbOK],0);

end;

10.4 利用DLLs实现窗体重用　

　　实现窗体重用是Delphi DLLs功能中一个引人注目的特色。当你创建了一个令自己满意的通用窗体并希望能在不同应用程序中使用，特别是希望能在非Delphi 应用程序中使用时，把窗体做进一个动态链接库中是最适当的。这样即使用其它工具开发的应用程序，如C++、Visual Basic等，也都可以去调用它。

　　包含窗体的DLLs有100K左右的部件库(Component Library)开销。可以通过把几个窗体编译成一个DLLs来最小化这笔开销。DLl中的不同窗体可以共享部件库。　

10.4.1 利用DLLs实现窗体重用的一般步骤　

　　利用DLLs实现窗体重用的步骤是：

　　1.在集成开发环境(IDE)中，按自己的需要设计一个窗体；

　　2.编写一个用于输出的函数或过程。在该函数或过程中，设计的窗体被实例化；

　　3.重复步骤1、2，直到完成所有重用窗体的设计；

　　4.打开工程文件，进行修改，以适应生成 .dll文件的需要：

　　(1).把保留字program设为library；

　　(2).从uses子句中去掉Forms单元；

　　(3).移去begin,end之间的所有代码；

　　(4).在uses子句下，begin…end块之前，添加保留字exprots。exports 后是输出函数名或过程名。

　　5.编译生成DLLs文件；

　　6.在其它应用程序中调用重用窗体。