《Delphi剪贴板和动态数据交换》由会员分享，可在线阅读，更多相关《Delphi剪贴板和动态数据交换（35页珍藏版）》请在金锄头文库上搜索。
1、应用程序间的数据交换是象 Windows 这样的多任务环境的重要特性。作为一种基于 Windows 的开发工具，Delphi 支持如下四种数据交换方式：剪贴板、动态数据交换 ( DDE)、对象联接与嵌入(OLE)以及动态联接库(DLLs)。这中间前三种方式最为常用，OLE 功能最为强大，DDE 次之。而剪贴板使用最为方便。在本章，我们只讨论剪贴板和动态数据交换。利用 OLE 实现数据交换见下一章，利用动态联接库(DLLs)进行数据交换将在第十章中介绍。 7.1 剪贴板及其应用 本质上，剪贴板只是一个全局内存块。当一个应用程序将数据传送给剪贴板后，通过修改内存块分配标志，把相关内存块的所有权从应
2、用程序移交给 Windows 自身。其它应用程序可以通过一个句柄找到这个内存块，从而能够从内存块中读取数据。这样就实现了数据在不同应用程序间的传输。 剪贴板虽然功能较为简单，且不能实现实时传输，但却是更为复杂的 DDE 和 OLE的基础。对于一些只是偶尔需要使用其它应用程序数据的程序来说，使用剪贴板不失为一种方便、快捷的方式。Delphi 把剪贴板的大部分功能封装到一个 TClipboard 类中，同时把使用频度最高的文本传输功能(包括 DBImage 的图像传输功能)置入相应部件作为部件的方法，从而使用户可以十分方便地使用剪贴板进行编程。 7.1.1 使用剪贴板传输文本 剪贴板传输文本主要是
3、应用如下的三个方法:CopyToClipboard、CutToClipboard 和 PasteFromClipboard。包含这些方法的部件如下表所示。 表 7.1 包含剪贴板方法的部件方 法 部 件TDBEdit TDBMemoTDBImageCopyToClipboard TEdit TMemo TMaskEditTOLEContainerTDDEServerItemTDBEdit TDBMemoCutToClipboard TDBImageTEdit TMemo TMaskEditTDBEdit TDBMemoPasteFromClipboard TDBImageTEdit TMemo
4、 TMaskEdit 除 TDBImage 外，其余全是有关文本的控件。在把文本传输到剪贴板之前，文本必须被选中。若选 TMaskEdit 的 AutoSelect 属性为 True，则当 MaskEdit 获得输入焦点时文本自动被选中；若选 TEdit、TMemo 的 HideSelection 属性为 True，则失去焦点时，文本选中状态自动隐藏，重新获得焦点时再显示。下面的语句把 MaskEdit 中选中的文本剪切到剪贴板： MaskEdit .CutToClipboard; 下面的语句把剪贴板中的文本粘贴到 Memo 的当前光标处： Memo.PasteFromClipboard； 利
5、用剪贴板类也可以实现文本的传输，见(7.1.2)中的介绍。 7.1.2 剪贴板类 为方便剪贴板的操作，Delphi 在 Clipbrd 库单元中定义了一个 TClipboard 类，并且预定义了一个变量 Clipboard 作为类 TClipboard 的实例，从而使用户在绝大多数场合不必自己去定义一个 TClipboard 的实例。利用剪贴板类可以进行文本、图像和部件的传输，剪贴板类为实现这些方法提供了相应的属性和方法。表 7.2、表 7.3 列出了 TClipboard 属性和方法的意义。 表 7.2 TClipboard 的属性属 性 意 义AsText 保存剪贴板的文本，只有运行时才可
6、设置FormatCount 可用剪贴板格式的数目Formats 可用剪贴板格式链 表 7.3 TClipboard 的方法方 法 参 数 意 义Clear 无 清除剪贴板的内容Assign Source:TPersistent 把 Source 参数指定的对象拷贝到剪贴板，常用于图形、图像对象Open 无打开剪贴板，阻止其它应用程序改变它的内容Close 无 关闭打开的剪贴板SetComponent Source:TPersistent 把部件拷贝到剪贴板GetComponent Owner 从剪贴板取回一个部件并放置Parent :TPersistentSetAsHandle Format:
7、Word 把指定格式数据的句柄交给剪贴板返回类型：THandleGetAsHandle Format:Word 返回剪贴板指定格式数据的句柄返回类型：THandleHasFormat Format:Word 判断剪贴板是否拥有给定的格式返回类型：BooleanSetTextBuf Buffer:PChar 设置剪贴板的文本内容 剪贴板中可能的数据格式如下表。 表 7.4 剪贴板数据格式及其意义数据格式 意 义CF_TEXT 文本。每行以 CF_LF 结束，nil 标志文本结束CF_BITMAP Windows 位图CF_METAFILE Windows 元文件 CF_PICTURE TPict
8、ure 类型的对象CF_OBJECT 任何 TPersistent 类型的对象 利用 TClipboard 实现文本的传输使用 AsText 属性和 SetTextBuf 方法。AsText 属性为非控件部件的剪贴板操作提供了方便。如： Clipboard. AsText := Form1.Caption ; 把 Form1 的标题拷贝到剪贴板。 Label1.Caption := Clipboard.AsText; 把剪贴板中的文本写入 Label1。SetTextBuf 用于把超过 255 个字符的字符串拷入剪贴板。 7.1.3 利用剪贴板传输图像 7.1.3.1 拷贝 Image 部件上
9、的内容和窗体上的图形可以直接拷贝到剪贴板。图像拷贝利用 Clipboard 的 Assign 方法。例如： Clipboard.Assign(Image1.Picture); 把 Image1 上的图像拷贝到剪贴板。 7.1.3.2 剪切 图像的剪切是首先把图像拷贝到剪贴板，而后在原位置用空白图像进行覆盖。下面一段程序表示了图像的剪切。 procedure TForm1.Cut1Click(Sender: TObject);varARect: TRect;beginClipboard.Assign(Image1.Picture);with Image.Canvas dobeginCopyMod
10、e := cmWhiteness; ARect := Rect(0, 0, Image.Width, Image.Height); CopyRect(ARect, Image.Canvas, ARect); CopyMode := cmSrcCopy; end;end; 7.1.3.3 粘贴 从剪贴板上粘贴图像，首先检测剪贴板上的数据格式。如果格式为 CF_BITMAP，则调用目标位图的 Assign 方法粘贴图像。程序清单如下。procedure TForm1.PasteButtonClick(Sender: TObject);varBitmap: TBitmap;beginif Clipb
11、oard.HasFormat(CF_BITMAP) then beginBitmap := TBitmap.Create; tryBitmap.Assign(Clipboard); Image.Canvas.Draw(0, 0, Bitmap); finallyBitmap.Free;end;end;end; try.finally 为资源保护块，参第十二章。7.1.4 建立自己的剪贴板观察程序 在这一节中我们要建立一个自己的剪贴板观察程序，用来保存截获到剪贴板中的位图。Windows 允许用户建立自己的剪贴板观察程序，并把该程序添加到一个剪贴板观察器链中。在链中，位置靠前的程序有义务把有关剪
12、贴板的消息传递到紧随其后的观察程序。而处于链首的程序由 Windows 的消息循环机制直接把剪贴板消息发送过来。建立一个剪贴板观察程序，首先该程序必须能响应相应的 Windows 消息。对于那些熟悉 Microsoft 公司 Visual Basic 的读者来说，这是令他们头疼而束手无策的地方。但 Delphi 在这方面却有良好的表现：利用关键字 message，用户可以将一个过程定义为响应特定的 Windows 消息。如： procedure WMDrawClipboard(var Msg:TWMDrawClipboard);message WM_DRAWCLIPBOARD; 可以响应 WM
13、_DRAWCLIPBOARD 消息。类 TWMDrawClipboard 是消息类 Message 的子类。Delphi 把所有的消息都重新进行了定义，使用户在使用时可以直接引用其便于记忆的数据成员，而不必再自己动手去分解消息。虽然这并不能算作是一个重大的改进，但却体现了 Delphi 处处为用户方便着想的特点。我们将要建立的程序目的是把截获到剪贴板上的位图保存下来。在本书的写作过程中，这一工作是大量存在的。虽然利用 Windows 工具 PaintBrush(画笔），通过粘贴、保存等操作可以实现这一功能，但却存在以下一些问题：1.程序频繁切换影响效率，当有大量位图存在时更是如此；2.画笔有一
14、个很讨厌的缺陷：当剪贴板上的位图比画笔界面的客户区大时，客户区外的位图被截断。因而往往需要根据所截获位图的大小来调整画笔客户区的大小，并重新进行粘贴。而如果开始就把画笔客户区调整到足够大，又会覆盖掉屏幕上一些有用的信息。为解决这些问题，我开发了下面的程序。程序启动时，以极小化方式运行。此时只要剪贴板中存入位图，则自动弹出一个对话框请求用户保存。如果用户希望查看确认，则可以双击运行程序图标，选择相应按钮，剪贴板中的位图就会显示在屏幕上。部件关键属性设计如下： ClipSaveForm：CaptionSave Bitmap in Clipboard Panel1:Align = Top Image
15、1:Align = Client SaveDialog1:FileEditStyle = fsEditFileName = *.bmpFilter = Bitmap Files(*.bmp)|*.bmp|Any Files(*.*)|*.*InitialDir = c:bmpTitle = Save Bitmap 程序主窗口是 TForm 派生类 TClipSaveForm 的实例。TClipSaveForm 通过定义一些私有数据成员和过程，使响应和处理 Windows 的相应消息成为可能。下面是 TClipSaveForm 的类定义： typeTClipSaveForm = class(TForm)SaveDialog1: TSaveDialog;Image1: TImage;Panel1: TPan
