摘要：本文介绍了在Delphi 下如何通过DDE动态数据交换技术实现与Word的交互控制。

关键字：Delphi、DDE、Microsoft Word、宏、客户

一、 引言

Windows支持三种基本的IPC（进程间通信）机制：动态链接库（DLL）中的共享数据段、Windows剪贴版(Clipboard)和动态数据交换DDE(Dynamic Data Exchange)。许多著名的Windows应用程序如Microsoft Word等都宣布支持DDE技术，并在程序中嵌入了DDE消息处理函数。而此类应用程序单在DDE技术上讲大多是作为一个DDE服务器形式存在的，这就允许用户通过自行编制的一些外围软件以DDE客户的身份对其进行连接，并通过向DDE服务器程序发送一些特定的宏命令来完成对服务器程序的动态控制，本文就以常用的Microsoft Word为例，讲述了在Delphi 编程环境下如何编制DDE客户程序，使其动态控制Microsoft Word的一般方法。

二、 DDE的工作原理

DDE顾名思义，是提供对不同程序在运行期间实现对数据的动态交换的一种通用技术。Windows消息虽然是在不同程序窗口间传送信息的最佳手段，但一条消息只能包含两个参数（wParam和lParam），不能传送较多的信息。内存块是存放较多信息的重要手段，但不支持全局内存句柄的共享。DDE正是建立在Windows内部消息系统、全局原子和共享全局内存基础上的一种协议，用来协调Windows应用程序之间的数据交换和命令调用。

DDE协议使用三级命名：服务（service）、主题(topic)和数据项（item）来标识DDE所传递的数据单元。服务使应用程序具有了提供给其他程序的数据交换能力，一般服务就是应用程序的文件名，如Word的服务就是是Winword(可执行文件是Winword.exe)；主题是对服务器有意义的信息单元，对于Word文档就是很好的主题，许多服务器都有默认的主题System,但无法知道服务器确切有那些主题，除非查阅应用程序的相关技术文档。每次DDE客户与服务程序之间的对话都是先由客户启动的，所以在每次客户启动之前，DDE服务器必须先投入运行，下面是一个典型的DDE会话流程的事务组成：

·客户程序自动会话，服务器程序响应。

·客户和服务器用下述方法交换数据：

·服务器应客户的请求向客户发送数据；

·客户主动想服务器发送数据；

·客户要求服务器在数据修改时发送数据（热数据连接）；

·客户要求服务器在数据修改后发送通知（温数据连接）；

·在客户的要求下，服务器执行一个命令。

·由客户或服务器中止会话。

三、 设计思路

首先，在开发工具的选择上，选择了提供有现成的DDE 系列组件的 Borland Delphi 5.0。既然以Microsoft Word作为要连接的服务器，在与其建立连接之前要先设定好连接的服务与主题，由于本例只要求通过本程序控制Word的一些操作动作，如打开新文件、关闭文件、插入表格等等，所以可以分别设定这两项为："Winword"和"System"，当设置好连接后就可以通过Delphi提供的DDEClientConv组件的OpenLink函数打开与这个服务的连接，剩下的工作就是向Word服务器发送宏命令，并通过组件向其发送执行宏的命令即可，用该组件的函数ExecuteMacro来实现之。

四、程序的实现

（一） 加入DDE客户端组件

新建一App工程WordDDE，然后在Component Palette组件条的System属性页里选择DdeClientConv组件，并把它拖放到窗体上。修改其Name 属性为DDEClient。

（二） 添加同DDE服务进行交互的代码

在工程上添加一个过程RunMacro，用于打开同Word服务器的链接，并通知服务器执行由Macro标识的宏命令，让Word按用户的意图完成响应的动作。完成之后由客户方断开这次连接，完成一次会话。下面是上述过程的实现代码：

procedure TForm1.RunMacro(Macro:pChar);

var pMacro:array[0..80] of Char;

begin

DDEClient.SetLink('Winword','System');{设置连接}

DDEClient.OpenLink;{按设置打开连接}

StrPCopy(pMacro,Macro);

if Not DDEClient.ExecuteMacro(pMacro,false) then{执行宏命令}

ShowMessage('Unable to Execute Macro');

DDEClient.CloseLink;{断开连接}

end;