知识大全剪贴板和动态数据交换（二）[1]

Posted 2022-07-21 知

篇首语：知识比金子宝贵，因为金子买不到它。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全剪贴板和动态数据交换（二）[1]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：剪贴板和动态数据交换（二）[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 控制服务器应用程序的执行

　　客户程序控制服务器应用程序的一个方面是必要的时候客户程序可以启动服务器程序并装载会话主题

　　而客户程序控制服务器应用程序更重要的一点是向服务器发送服务器承认的宏命令来完成对服务器应用程序的各种操作服务器到底支持哪些宏命令可参阅服务器应用程序文档

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

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

　　 格式化文本

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

　　FormatChars的缺省值是False

　　 响应DDE事件

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

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

　　在人工模式下 OnOpen事件在调用OpenLink 方法时触发 OnClose事件在调用ColseLink方法时触发

　　 利用客户程序和Excel交换数据

　　下面我们建立一个DDE客户程序并利用这一程序与Excel中的一个工作表交换数据程序设计界面

　　界面中包含一个DDE会话部件DDEClientConv 和DDE项目部件DDEClientItem 用于建立和维护DDE联接一个RadioGroup控件和其中的两个无线电按钮AutoRadio ManualRadio 用于设置联接模式一个GroupBox控件和其中的两个按钮RequestBtn和PokeBtn 用于控制数据的申请和发送其中RequestBtn在自动模式下变灰一个文本框Memo 用于保存DDE数据一个按钮PasteBtn用于粘贴联接信息并建立DDE联接另外一个按钮CloseBtn用于关闭系统

　　设计时把DDEClientConv 的FormatChars属性置为True 这样可以保留服务器传来数据的显示格式 ConnectMode保留ddeAutomatic的缺省设置

　　程序在类TForm 中定义了一个私有数据成员Automatic 用于标志联接模式三个字符串数据成员DDEService DDETopic DDEItem用于记录联接信息

　　窗口生成时进行变量和部件状态的初始化

　　procedure TForm FormCreate（Sender: TObject）

　　begin

　　RequestBtn Enabled := False;

　　AutoRadio Checked := True;

　　Automatic := True;

　　end;

　　当联接模式改变时程序进行相应的处理

　　自动模式转换为人工模式

　　procedure TForm ManualRadioClick（Sender: TObject）

　　begin

　　if Automatic then

　　begin

　　RequestBtn Enabled := ManualRadio Checked;

　　DDEClientConv ConnectMode := ddeManual;

　　Automatic := False;

　　end;

　　人工模式转换为自动模式

　　procedure TForm AutoRadioClick（Sender: TObject）

　　begin

　　if not Automatic then

　　begin

　　RequestBtn Enabled := ManualRadio Checked;

　　If （DDEService = ） or （DDETopic = ） then

　　begin

　　MessageDlg（ Can not Set Link mtWarning [mbOK] ）

　　Exit;

　　end;

　　DDEClientConv SetLink （DDEService DDETopic）

　　DDEClientItem DdeConv := DDEClientConv ;

　　DDEClientItem DDEItem := DDEItem;

　　DDEClientConv ConnectMode := ddeAutomatic;

　　Automatic := True;

　　end;

　　当从自动模式转换到人工模式只需要简单修改相应属性即可而从人工模式转换到自动模式则需要调用SetLink重新建立联接否则往往会引发一个DDE异常

　　联接的建立采用从剪贴板粘贴联接信息的方式这是最具有灵活性的一种方法

　　procedure TForm PasteBtnClick（Sender: TObject）

　　begin

　　if GetPasteLinkInfo （DDEService DDETopic DDEItem） then

　　begin

　　DDEClientConv SetLink （DDEService DDETopic）

　　if Automatic then

　　begin

　　DDEClientItem DdeConv := DDEClientConv ;

　　DDEClientItem DDEItem := DDEItem;

　　end;

　　GetPasteInfo是 DDEMan库单元中定义的一个函数用于检测剪贴板上是否有联接信息并返回相应的DDE服务主题和项目

　　对于人工模式必须由客户显式向服务器申请数据在这种模式下DDE项目部件是多余的接收到的DDE联接信息用一个字符串来记录下面是实现代码

　　procedure TForm RequestBtnClick（Sender: TObject）

　　var

　　TheData: PChar;

　　begin

　　If DDEItem = then

　　begin

　　MessageDlg（ Can not Request Data mtWarning [mbOK] ）

　　Exit;

　　end;

　　TheData := StrAlloc（）

　　DDEClientConv OpenLink;

　　TheData := DDEClientConv RequestData（DDEItem）

　　DDEClientConv CloseLink;

　　if TheData <> nil then

　　Memo Text := StrPas（TheData）

　　StrDisPose（TheData）

　　end;

　　OpenLink CloseLink方法用于打开和关闭联接 RequestData方法向服务器申请数据并返回到一个PChar字符串中字符串必须显式分配内存并在退出时释放

cha138/Article/program/Delphi/201311/25224

知识大全 剪贴板和动态数据交换（二）[1]

知识大全剪贴板和动态数据交换（二）[1]