首页 / 软件开发 / Delphi / 第七章-剪贴板和动态数据交换（二）（5）

第七章-剪贴板和动态数据交换（二）（5）2007-05-07DDE联接的建立通过调用SetLink方法实现。

建立新联接的实现代码如下。

procedure TFormD.doNewLink（Sender: TObject）;

begin

DDEClient.SetLink （AppName.Text, TopicName.Text）;

DDEClientItem.DdeConv := DDEClient;

DDEClientItem.DDEItem := ItemName.Text;

end;

通过从剪贴板粘贴联接信息来建立联接的实现代码如下。

procedure TFormD.Edit1Click（Sender: TObject）;

var

Service, Topic, Item : String;

begin

PasteLink1.Enabled := GetPasteLinkInfo （Service, Topic, Item）;

end;

procedure TFormD.doPasteLink（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;

在DDEClientItem的OnChange事件处理过程中把接收到的事件保存在DDEDat中。

procedure TFormD.DDEClientItemChange（Sender: TObject）;

begin

DDEDat.Lines := DDEClientItem.Lines;

end;

数据发送的实现代码如下。

procedure TFormD.doPoke （Sender: TObject）;

var

DDECli : TDDEClientConv;

begin

DDECli := DDEClientItem.DdeConv;

if DdeCli <> nil then

DDECli.PokeDataLines （DDEClientItem.DDEItem, PokeDat.Lines）;

end;

宏指令发送的实现代码如下。

procedure TFormD.doMacro （Sender: TObject）;

var

DDECli: TDDEClientConv;

Cmd: String;

begin

DDECli := DDEClientItem.DdeConv;

if DDECli <> nil then

begin

Cmd := PokeDat.Text + #13#10;

DDECli.ExecuteMacroLines （PokeDat.Lines, True）;

end;

end;

运行以上两个程序，建立DDE联接。经测试，数据传输、数据发送和宏指令的发送与执行都达到预期要求。

7.4.4 小结

剪贴板和DDE是Windows下数据通信的两种方法。Delphi以简便、友好的方式实现了相应的功能，为用户编程提供了方便。一般说来，剪贴板多用于静态数据传输，而DDE用于动态数据交换、控制其它程序运行等场合。这些内容对于多用户环境下的程序开发是很重要的