《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