知识大全对象链接与嵌入（一）[4]

Posted 2022-07-21 知

篇首语：常识是本能，有足够的常识便是天才。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全对象链接与嵌入（一）[4]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：对象链接与嵌入（一）[4] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　fmtName表示是对象的名字用以定义出现在粘贴对话框中列表框内的对象名称在例程中把 %S 匹配给fmtName OLE服务器自动地把格式化的名字代替 %S 参数例如如果OLE服务器是画笔在程序运行时 Paintbrush Picture Object 将代替 %S

　　fmtResultName 定义出现在粘贴对话框中结果检查框内的名字在例程中把 %S 传给了fmtResultName OLE服务器自动地把格式结果名称代替 %S 参数例如如果OLE服务器是画笔程序运行时 Paintbrush Picture 将代替 %S

　　fmtMedium是BOLEMedium类型是Windows决定对象格式的数据类型例如 OLE 联

　　接对象的格式是BOLE_MED_STREAM OLE嵌入对象的格式是BOLE_MED_STORAGE BOLEMedium函数可计算出需要的BOLEMedium类型

　　fmtIsLinkale决定对象格式是否可联连联连对象的fmtIsLinkable为真值嵌入对象的fmtIsLinkable为假值

　　参数HelpContext 为粘贴对话框定义在线帮助如果应用程序没有在线帮助 HelpContext的值为零对话框中将不出现帮助按钮

　　参数Form用以定义剪粘板上的格式是由PasteSpecialDlg函数进行修改因为使用粘贴对话框时应用程序并不知道剪贴板的格式因而用Format来处理剪贴板的数据在本章例程中 PasteSpecialDlg 函数把format 变量修改成FEmbedClipFmt 或FLinkClipFmt格式这两种格式是在主窗体的OnCreate事件中定义的如果剪贴板上的数据不是OLE对象 Format将被修改成其它类型的格式如CF_TEXT等

　　参数Landle定义剪贴板上的数据句柄由PasteSpecialDlg函数进行修改当剪贴板的数据类型不是OLE对象时需用Handle参数访问剪贴板数据 Handle是句柄类型

　　参数PInitInfo是一个指向OLE对象初始化结构的指针前面在讲述初始化OLE应用程序部件时也用到了这种指针 PasteSpecialDlg函数将修改PInitInfo指针以使其指向一个有效的数据结构该结构包括了粘贴对话框中被选中的OLE对象的初始化信息

　　下面介绍粘贴对话框中的部件

　　● 将剪贴板上的数据插入OLE应用程序以实现对象嵌入须选择 Paste ;

　　● 在OLE服务器资源文件与OLE应用程序之间建立联连以实现对象联连须选择 Paste Line;

　　● 要将闻连与嵌入的对象显示成图标选择 Display As Icon 若这个检查框被选中改变图标（ Chang Icon ）按钮将显示通过这个按钮可改变OLE对象的缺省图标或标签

　　● 如果数据不是注册的格式 Paste Paste link 选择键将变灰用户无法从剪贴板上粘贴数据在本章例程中剪贴板上的数据只能是FEmbedClipFmt（嵌入对象）和FlinkClipFmt（链接对象）

　　● 用户在列表框中选择数据类型有时数据被解释成多种类型例如在包含OLE服务器功能的字处理器中把文本复制到剪贴板中应用程序可以以文本和OLE对象两种方式粘贴对象列表框中出现的选择项由OLE服务器决定

　　用户在粘贴对话框中选择OK按钮 PasteSpecialDlg返回真值关于OLE 应用程序的初始化信息贮存在PInitInfo所指向的结构中

　　 在剪贴板中使用OLE对象

　　要把OLE对象粘贴到OLE应用程序中必须用Windows的 RegisterClipboardFormat函数为链连对象嵌入对象注册两种新的剪贴板格式这些格式将在BOLEFormat记录的fmtIdt域中被用到

　　本章例程中程序在OnCreate事件中注册OLE对象的剪贴板格式以下代码是主窗体的OnCreate事件

　　procedure TOLEFrameForm FormCreate（Sender: TObject）

　　begin

　　FEmbedClipFmt := RegisterClipboardFormat（ Embedded Object ）

　　FLinkClipFmt := RegisterClipboardFormat（ Link Source ）

　　Fmts[ ] fmtId := FEmbedClipFmt;

　　Fmts[ ] fmtMedium := BOLEMediumCalc（FEmbedClipFmt）

　　Fmts[ ] fmtIsLinkable := False;

　　StrPCopy（Fmts[ ] fmtName %s ）

　　StrPCopy（Fmts[ ] fmtResultName %s ）

　　Fmts[ ] fmtId := FLinkClipFmt;

　　Fmts[ ] fmtMedium := BOLEMediumCalc（FLinkClipFmt）

　　Fmts[ ] fmtIsLinkable := True;

　　StrPCopy（Fmts[ ] fmtName %s ）

　　StrPCopy（Fmts[ ] fmtResultName %s ）

　　RegisterFormAsOleDropTarget（Self Fmts）

　　end;

　　程序传给RegistClipBroardFormat函数一个描述格式的参数它返回一个Word类型的值该值能唯一的辨识新注册的格式 FEmbdeClipFmt FlinkClipFmt 是TOLEFormat类的私有数据成员声明如下

　　TYPE

　　TOLEForaneForm = Class（TForm）

　　…

　　private

　　FEmbedClipFmt: Word;

　　FLinkClipFmt: Word;

　　function CreateChild: TOLEObjectForm;

　　public

　　Fmts: array[ ] of BOleFormat;

　　end;

　　在注册剪贴板格式后还必须定义OLE 格式才能进行对象粘贴每种格式定义在BOLEFormat记录中程序中可能注册标准剪贴板格式并用这种格式进行粘贴例如注册文本作为粘贴格式将BOLEFormat记录为fmtId域定义为CF_TEXT fmt Medium 域定义为BOLE_MED_HGLOBOL BOLEMediumCalc 函数可以根据定义的剪贴板格式计算出fmtMedium值在本章例程中程序注册了两种格式一种是链接OLE对象的格式另一种是嵌入OLE对象的格式

cha138/Article/program/Delphi/201311/25222

知识大全 对象链接与嵌入（一）[4]

知识大全对象链接与嵌入（一）[4]