用Delphi实现程序间的数据传递
西安市西北电力设计院计算机处
王靖
---- [本文为摘略，全文可下载，Zip 14 KB]
---- 在实际应用中，我们经常需要多个程序相互配合来完成某些特定功能。例如两个应用程序间的同步、互斥；
应用程序在起第二份实例时的参数自动传递…。要实现这些功能，就必须能实现程序间的数据传递。
---- 有些特殊的高级技术可在不同的程序间传递数据，如剪贴板、动态数据交换以及OLE自动化，但有条件限制
并且相对较复杂。这里，我介绍三种有效的底层技术，希望对编程爱好者有所帮助。
利用WM_COPYDATA消息
---- 使用该消息涉及一个TcopyDataStruct结构类型的指针。该结构中有三个成员：
dwData 是一个32位的附加参数
cbData 表示要传递的数据区的大小
lpData 表示要传递的数据区的指针
---- 下面举个例子。该例子由两个程序构成，分别为SendData和GetData。
---- SendData程序向GetData程序发送消息，并传递edit1中的字符串；GetData在收到消息后，把SendData发送的字符串接受下来，并显示在相应的edit1中。
---- 1. SendData程序：
... ...
---- 2. GetData程序：
... ...
---- 使用这种方法是WIN32应用程序进行交互的最简单的方法。
使用全局原子
---- Win32系统中，为了实现信息共享，系统维护了一张全局原子表。每个原子中存放了一些共享数据。关于对原子的操作，有一组专门的API函数：
GlobalAddAtom 在表中增加全局原子
GlobalDeleteAtom 在表中删除全局原子
GlobalFindAtom 在表中搜索全局原子
GlobalGetAtomName 从表中获取全局原子
---- 笔者用这种方法实现了避免程序二次启动，但把第二次启动所带的参数传到第一个实例中以进行相应的处理的程序。基本处理如下：
... ...
---- 在相应的窗口单元dde.pas增加对自定义消息WM_MYMESSAGE的处理：
... ...
使用存储映象文件
---- 这种方法相对较复杂一些。当Win95与Winows Nt向内存中装载文件时，使用了特殊的全局内存区。在该区域内，应用程序的虚拟内存地址和文件中的相应位置一一对应。由于所有进程共享了一个用于存储映象文件的全局内存区域，因而当两个进程装载相同模块（应用程序或DLL文件）时，它们实际可以在内存中共享其执行代码。
---- 笔者通过调用一个带有特殊参数的CreateFileMapping函数，来间接达到程序间共享内存的目的。下面简要解释一下该函数。
HANDLE CreateFileMapping(
HANDLE hFile, //文件句柄
LPSECURITY_ATTRIBUTES lpFileMappingAttributes,
// 可选安全属性
DWORD flProtect, // 映象文件保护方式
DWORD dwMaximumSizeHigh, // 映象文件区域的底值
DWORD dwMaximumSizeLow, // 映象文件区域的顶值
LPCTSTR lpName // 映象文件的名字
);
... ...
---- 以下举例说明：
... ...
---- 用这种方法，不但可以在不同的程序之间共享数据，还可以在同一程序的不同实例间共享数据。为了及时通知其它进程共享数据的变化，可以自定义一条用户消息，通过发消息来实现，这里不再赘述。
---- 利用以上三种方法均可以有效地实现数据传递、共享，所有的例子程序均在Delphi 3.0,4.0下调试通过。
