Windows的DDE原理

在运行时，调用 SetLink 方法来建立DDE联接。

SetLink有两个String类型的参数，分别用来接受DDEService和DDETopic的值。过程执行后DDEClientConv部件的DDEService 和DDeTopic属性被设置。要注意的是：在运行时直接设置DDEService和DDETopic的值并不能建立一个DDE联接，而必须调用SetLink 方法进行初始化。

比如，下面的语句和Excel的System主题建立联接： 

DDEClietnConv. SetLink('Excel','System')；

调用SetLink方法后，还需要设置DDEClientItem部件的DDEItem属性。

比如，下面的语句联接Excel的Topics项目，用以获取当前活跃文件的文件名：

DDEClietnItem.DDEItem := 'Topics';

当DDE联接建立后，联接的数据保存在DDEClientItem部件的Text和Lines 属性中，Text用于保存一个字符串(String)，Lines用于保存一个字符串链表(TStrings)对象。

为了显示联接数据，可以在DDEClientItem的OnChange事件中把数值赋给一个可视部件。

下面的事件过程把联接数据实时地显示在一个编辑框中。 

　 procedure Form1.DDEClientItemChange(Sender: Tobject);
begin
Edit1.Text := DDEClientItem1.Text;
end;

运行状态下也可以从剪贴板上粘贴DDE联接信息，并调用SetLink建立DDE会话。下面的例子显示了当用户按下应用程序中的Paste Link按钮时，动态建立DDE会话的过程。 

procedure Form1.OnPasteLink(Sender: Tobject)；
　　var
Service, Topic, Item: String;
begin
if GetPasteLinkInfo (Service, Topic, Item) then
begin
AppName.Text := Service;
TopicName.Text := Topic;
ItemName.Text := Item;
DDEClient.SetLink (Service, Topic); 
DDEClientItem.DdeConv := DDEClient;
DDEClientItem.DDEItem := ItemName.Text;
end;
end; 

GetPasteLinkInfo是DDEMan 库单元中定义的一个过程。如果返回True，则DDE联接信息保存在三个参数中；如果返回False，说明剪贴板上没有正确格式的DDE联接信息。 

7.3.3 数据申请 

虽然自动模式快捷、方便，但仍有一些理由使用DDE的人工模式：

1.服务器程序可能不支持自动数据传输，客户必须显式申请服务器更新一个特定的项目；
2.节省通信费用。假如没有实时传输的要求，则人工模式可以大幅度降低通信的开销；
3.若客户程序只用于控制服务器的运行，则往往没有必要使用自动模式。
人工模式下客户程序的数据更新需要采用数据申请的方式。数据申请需要调用DDEClientConv部件的RequestData方法。RequestData有一个参数，指向要申请的DDE项目。RequestData返回一个Pchar类型的无结束符字符串，包含了申请到的文本。返回字符串占用的内存必须在程序终止前显式释放。

在人工模式下，即使存在一个DDEClientItem部件且与DDEClientConv相联接，数据更新后DDEClientItem部件的Text、Lines属性的值也不会改变。 

7.3.4 数据发送 

数据发送与一般的DDE数据流向正好相反，是把数据从DDE客户应用程序发送到DDE服务器应用程序。

数据发送使用DDEClientConv部件的两个方法PokeData 和 PokeDataLines， 它们的语法是： 

　　function PokeData (Item: String ; Data: PChar): Boolean;

　　function PokeDataLines (Item: String ; Data: TStrings): Boolean; 

参数Item是DDE服务器中被联接的项目，Data是要发送的数据。如果数据是一个字符串，则把它转化为PChar类型并调用PokeData方法；如果数据是一个字符串链表对象，可调用PokeDataLines方法。

方法的返回值标志数据传送是否成功。因为有一些DDE服务器应用程序并不接收发送的数据。

下面的语句把编辑框中的内容发送给服务器： 

　　StrPCopy(TheText , Edit1.text);
DDEClientConv1.PokeData(DDEClientItem1.DDEItem , TheText);
过程StrPCopy把一个Pascal类型的字符串拷贝到一个无结束符的PChar类型字符串中。
　　
7.3.5 控制服务器应用程序的执行

客户程序控制服务器应用程序的一个方面是：必要的时候客户程序可以启动服务器程序，并装载会话主题。
而客户程序控制服务器应用程序更重要的一点是向服务器发送服务器承认的宏命令，来完成对服务器应用程序的各种操作。服务器到底支持哪些宏命令，可参阅服务器应用程序文档。

发送宏命令要使用DDEClientConv的两个方法 ExecuteMacro和ExecuteMacroLines ，它们的语法如下：

function ExecuteMacro(Cmd: PChar; WaitFlag: Boolean): Boolean;
function ExecuteMacroLines(Cmd: TStrings;WaitFlag: Boolean): Boolean;

Cmd是欲发送的宏命令字符串或宏命令字符串链表。WaitFlag决定了在DDE 服务器程序执行宏命令时客户程序的行为。如果WaitFlag设置为True，则在服务器宏命令执行完毕前，不允许对ExecuteMacro、ExecuteMacroLines、PokeData、PokeDataLines这些方法的成功调用，它们都不向服务器发送数据并返回False。如果WaitFlag设置为False，则调用的方法在第一个宏执行完毕前即试图向服务器发送数据。

WaitFalg的设置也取决于服务器应用程序。一些应用程序当在第一个宏执行完之前就试图向它发送数据或命令时，可能导致第一个宏执行失败或导致不可预料的后果。具体情况可查阅服务器应用程序文档。

函数返回值表示命令串是否被成功传输。而宏命令执行是否成功客户是无法检测到的。

7.3.6 格式化文本

DDEClientConv有一个布尔属性FormartChars，用于决定是否格式化文本。所谓格式化文本是指从传输来的文本数据中过滤掉BackSpace(8)、 Tab(7) 、Linefeed(10) 、Return(13)等字符。括号内是字符的ASCII码。许多时候这些字符将导致DDE客户数据显示的混乱。

　　FormatChars的缺省值是False。 

7.3.7 响应DDE事件 

部件DDEClientConv有两个事件OnOpen和OnClose，分别在DDE 会话建立和中止时触发。部件DDEClientItem有一个OnChange事件。这一事件常用于DDE项目数据的转储和显示，如(7.3.1)节所示。

在自动模式下，OnOpen事件在包含DDEClientConv部件的窗口创建时触发，或在调用SetLink方法时触发，OnClose事件在客户程序或服务器程序关闭时触发。

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 23 4 5 6 下一页

上一篇：校验码辅导讲座   下一篇：delphi中command/action的疑惑

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】