delphi 6集成开发环境所谓数据交换是指应用程序之间实行相互传递在

14章数据交换Windows剪贴板上获取数据，这一个过程可以由图14-1说明。14-1从Windows字符的字符串，应该使用TClipboardGetTexBuf方法。个对象。例如下面的语句把影像组件中的图像对象拷贝给Windows剪贴板。TextPtr:PChar;TextPtrGlobalLock(MyHandle);//指针初始化rc:=Clipboard.GetTextBuf(TextPtr,Size);Edit1.Text:=IntToStr(rc);14-2是否含有字符串，是否含有Bitmap图像。它使用的语法为：

WindowsBitmap图像TPicture图形对象 )//);// 与Windows剪贴板交换文本的三种方法CopyToClipboardCutToClipboard和PasteFromClipboard）最好是首先判断剪贴板中的内容是否有文本，然后再使用且拷贝到Windows剪贴板。Edit314-3一个TEdit型的变量，代码如下：（Sender在Button1、Button2和Button3的OnClick过程中分别输入如下代码：14-4Draw和CopyRect等。ARect.Left:=0;ARect.Right:=Image1.Width;Image1.Canvas.CopyMode:=cmSrcCopy;t白）拷贝到第一个参数ARect，实现图形的剪切。如图14-5所示。14-5像拷贝到Windows的剪贴板。 对象Bitmap，最后在画布的(0,0)点画图形对象Bitmap。（ServerSevce（Item组件的名称，如Edit1。建立DDE客户端应用程序需要使用System组件页中的TDdeConv组件象共同使用。作为DDE的客户端，TDde Conv可以实现以下功能：OpenLink或Pasink方法建立DDE。则DDE应该是这个 Conv组件的名称（Name属性而不是窗口的法使用ServiceApplication属性激活DDE。贴板上的对象设置DdeTopicDdeService属性。 Edit1.Text:=Dde SetLink方法：该方法设置DDE的名称和，而且如果ConnectMode值法等价于设置DdeServiceDdeTopic属性。TDdeItem组件确定DDE项目（Item它与TDdeConv组件共同使用，构成DDE的客户端。TDdeItem组件的DdeItem属性确定被的项目。一个电子表格，并以文件test.xls存盘。创建一个新的工程，在窗体上增加一个TDdeConvDdeConv1，一个按照表14-2设置它们的属性。值 DdeConv1DdeService属性（DdeTopic属性）右边的Link按钮能够使用为止。14-8DDE（Item客户与服务器（Excel）已经进行了DDE。中的数据已更改为80，如图14-9所示。14-9DDETMemoMemo114-10所示。 14-1014-10 图14-11所示，注意与图14-6的区别。（opicTDdeServerConv组件的Name属性值在DDE中将作为使用，如果没不保持常数，这是需要是用TDdeServerConv组件作为DDE的。Item 在窗体上选择Timer1组件，在它的OnTimer过程中输入如下代码：MyItem.Text:=Edit1.Text;现。如果DDE中有多行数据，则使用Lines属性。下面我们用一个实例来测试DDEServer。14-4设置组件属性

TButtonButton1Button214-4它们的属性。14-12DDEServer ee，Mrer能是还没有运行DDEServer.exe。OLEOLE服务器Cntae应用程序，而客户是一个可以将OLE对象或嵌入其程序中的应用程序。个实例说明OLE的简单应用。选择“InsertObject”插入对象菜单，弹出如图14-13所示的框。14-14图，相当于用户自己开发了一个应用软件PaintBrush（画图软件。 AutoVerbTOleContainerOLE对象动词的弹出，如果设置该属性为真（缺省，TOleContainer替代任何已存在的弹出菜单属性。例如运行EX0905，使用鼠标右键单击OleContainer1，可以看到图9-13所示的弹出菜单。TComboBoxComboBox1，在窗体的OnClick过输入如下代码：14-16OLE可以看到OLE支持的动词名称。如图14-16所示。14-17OLE 义如表14-6所示。 OLE对象以独立的窗口打开 OLE对象本地启动，融合菜单及工具棒户从*.ICO、*.EXE或*.OLL文件中选择图标作为OLE对象。图14-18改变图标的OLE图14-19显示OLE对象属性菜单和将能够与OLE服务器的菜单和溶为一体。项和它们的GroupIndex如表14-8。0124514-2014-21当然，最好还把TOleContainer对象的Align属性设置为al，并且还要注继续设计前面的程序，首先删除OleContainer1，然后在窗体上增加一个TPanel组件Panel1，设置它的Align属性为al ；在Panel1上增加一个TOleContainer组件图14-22的溶 1，设置一个“文件”主菜单，设置图14-23所示的五个子菜单项。组件OleContainer1，设置它的Align属性为al。 boBox组件 果如图14-23所示。14-2214-23 DirectoryListBox1.Drive:= s:if(Pos(s,'.BMP')>0)or(Pos(s,'.DOC')>0)or(Pos(s,'.XLS')>0)or(Pos(s,'.WAV')>0)then些文件类型；最后从文件中装载OLE对象或删除OLE对象。格式的音乐。例如图9-24