delphi中OleContainer的使用总结
1:定义流的header , OleContainer要求流中要有Header
type
//流Header的结构
TStreamHeader = record
Signature: Integer; //$434F4442
DrawAspect: Integer; //1
DataSize: Integer; //stream.size;
end;
注:OleContainer要求的流=header + 内存流
2:从数据库中取出字段到内存流:
TBlobField(FADOQuery3.FieldByName('FContent')).SaveToStream(AMemoryStream);
保存:
TBlobField(FADOQuery3.FieldByName('FContent')).LoadFromStream(AMemoryStream);
3:从流中读出并显示:
procedure TFrameWord.DispFileContent(AMStream: TMemoryStream);
var
ft: string;
ms: TMemoryStream;
oMemoryStream : TMemoryStream;
Header : TStreamHeader;
begin
ms := AMStream;
if (ms = nil) or (ms.Size = 0) then Exit;
ms.Position := 0;
oMemoryStream := TMemoryStream.Create;
try
with Header do
begin
Signature := $434F4442;
DrawAspect := 1;
DataSize := ms.Size;
end;
ms.Position := 0;
oMemoryStream.WriteBuffer(Header,SizeOf(Header));
oMemoryStream.CopyFrom(ms, 0);
oMemoryStream.Position := 0;
OleContainer.LoadFromStream(oMemoryStream);
OleContainer.DoVerb(ovPrimary);
finally
oMemoryStream.Free;
end;
end;
4: 从文件中读出:
OleContainer.CreateObjectFromFile('D:\work\BidBuild_Client\doc\实用ASP组件介绍.DOC', False);
OleContainer.DoVerb(ovPrimary);
5:设置只读,并隐藏工具菜单和屏蔽右键菜单中的编辑功能:
Word文档:
OleContainer.OleObject.Application.ActiveDocument.Protect(2);
OleContainer.OleObject.application.CommandBars['Standard'].Visible:=false;
OleContainer.OleObject.application.CommandBars['Formatting'].Visible:=false;
OleContainer.OleObject.application.CommandBars['Reviewing'].Visible:=false;
或:
OleContainer.OleObject.Application.ActiveDocument.Protect(2);
OleContainer.OleObject.Application.ActiveWindow.ActivePane.DisplayRulers := False;
Excel文档:
OleContainer.OleObject.Application.ActiveSheet.Protect;
OleContainer.OleObject.application.CommandBars['Standard'].Visible:=false;
OleContainer.OleObject.application.CommandBars['Formatting'].Visible:=false;
OleContainer.OleObject.application.CommandBars['Reviewing'].Visible:=false;
注:以上代码放到OleContainer.DoVerb(ovPrimary)之后
6:关闭
if OleContainer.State <> osEmpty then
OleContainer.Close;
7:OLEContainer 控件的主要属性和方法
1) AllowInPlace property AllowInPlace:Boolean;
这个属性用于决定启动OLE对象服务程序的方式,如果为假,那么运行其间激活OLE对象时,打开整个OLE服务程序,即单独
开一个窗口,而为真时, 则把服务的菜单合并到应用程序中.
2) AutoActive type TAutoActivate=(aaManual,aaGetFocus,aaDoubleClick);
property AutoActivate: TAutoActivate;
找开方式. 其中aaManual时,要激活OLE对象,必须在程序中调用方法DoVerb(OnShow)
3) CanPaste property CanPaste:Boolean;
只读属性,如果剪贴板中的内容适合粘贴到一个OLE对象,则为true, 否则为false
4) CopyOnsave property CopyOnsave:boolean;
为真则表示把OLE对象临时写到一个文件中,反之表示全部留在内在中.
5) Iconic property Iconic:Boolean;
是否以图标方式显示以节省屏幕上的空间
6) Linked property Linked:Boolean;
只读属性,返回真表示OLE对象是连接到文档中,返回假表示OLE对象是嵌入到文档中.
7) Modify property modified:Boolean;
当OLE对象发生了变化时(包括这个对象被删除或被其他OLE对象所替代),这个属性被设置为真
8) NewInserted property NewInserted:Boolean;
只读,如果刚刚调用的InsertObjectDialog函数插入了一个OLE对象,返回真.这时可调用Doverb(OvShow)激活这个OLE对
象.
9) OleClassName property OleClassName:string;
只读. 返回OLE对象的类名, 当程序中有多个OLE对象时,可以用这个属性作为它们各自的标签.
10)OleObject property oleobject:Variant;
只读, 返回OLE容器中的OLE对象, 这个属性很重要,通过这个属性可以访问OLE服务程序.
11) OleObjectInterface property OleObjectInterface:IOleObject;
只读. 返回OLE对象的OleObject接口,在直接调用OLE的API需要用到这个接口.
12) OldStreamFormat property OldStreamFormat:Boolean;
如果为真, OLE对象就以OLE1的格式存储, 为假就以OLE2的格式存储.
13) PrimaryVerb property PrimaryVerb: integer;
只读. 返回OLE对象可进行的操作中主操作的索引号(序号)
14) SizeMode type TSizeMode = (smClip, smCenter, smScale, smStretch, smAutoSize);
property SizeMode:TSizeMode;
smClip, 超过容器的部分将被裁减.
smCenter, 中间.
smScale, 自动适应容器的大小
smStretch, 自动撑满
smAutoSize, 容器自动调整, 以适应OLE的大小.
15) State type TObjectState=(osEmpty,osLoaded,osRunning,osOpen,osInPlaceActive,osUIActive);
property State: TObjectState;
只读, 返回OLE对象的状态,可以是以下值.
osEmpty,容器中没有OLE对象.
osLoaded,容器中有OLE对象.但OLE服务程序没有运行.
osRunning,服务器正在运行.
osOpen,对象正在运行,OLE服务程序单独运行.
osInPlaceActive,对象正在运行,OLE服务程序菜单将要被合并到客户程序中运行.
osUIActive,对象正在运行,OLE服务程序菜单已经被合并到客户程序中运行.
OLEContainer 控件的主要方法
1) ChangeIconDialog function ChangeIconDialog:Boolean;
调用这个函数将打开一个更改图标的对话框. 当OLE对象以图标显示时,就以用户选择的图标显示.
2) Close 过程 procedure Close;
关闭. 如果OLE对象已修改,调用Close将首先保存OLE对象.
3) Copy 过程 procedure copy;
把OLE对象复制到剪贴板中
4) CteateLinkToFile方法 procedure CreateLinkToFile(FileName:string; Iconic:Boolean);
创建一个OLE对象,其内容从指定的文件中读取,创建的OLE对象链接到OLE容器中. 如果OLE容器中已经有一个OLE对象, 这个已有的OLE对象将被删除,未保存的修改也被作废. Iconic参数设为True表示OLE对象以图标显示.
5) CreateObject 过程. procedure CreateObject(const OleClassName:string;Iconic:Boolean);
这个过程用于创建一个OLE对象,OleClassName参数指定对象的识别名,创建后的OLE对象嵌入到OLE容器中,如果OLE容器中已经有一个OLE对象, 这个已有的OLE对象将被删除,未保存的修改也被作废. Iconic参数设为True表示OLE对象以图标显示.
6) CreateObjectFromFile 过程 procedure CreateObjectFromFile(const FileName:string; Iconic:Boolean);
创建一个OLE对象,其内容从指定的文件中读取,创建的OLE对象嵌入到OLE容器中. 如果OLE容器中已经有一个OLE对象, 这个已有的OLE对象将被删除,未保存的修改也被作废. Iconic参数设为True表示OLE对象以图标显示.
7) CreateObjectFromInfo 方法, procedure CreateObjectFromInfo(const CreateInfo:TCreateInfo);
创建一个OLE对象,其内容从CreateInfo参数年指定的记录中读取(这个参数是个记录类型,包含了创建OLE对象所需要的信息)
8) DoVerb 方法. procedure DoVerb(Verb:Integer);
用于对OLE对象进行操作,verb参数指定操作类型.
9) ObjectPropertiesDialog函数 function objectPropertiesDialog:Boolean;
用来打开Windows OLE对象属性对话框,用于修改OLE对象的属性.
10) Run 方法.procedure Run;
用于运行OLE服务程序,但并不激活OLE对象本身,当服务程序处于运行状态后激活OLE对象将非常快.
11) PasteSpecialDialog方法 function PasteSpecialDialog:Boolean;
该方法打开Windows的选择性粘贴对话框.
8:OLE方式Word中插入图片
我是在delphi中用olecontainer操作word,要向其中插入图片,使用粘贴板。但是图片放入后位置是这一行的开始位置,如下:
{ 将一副图片粘贴到word中 }
ClipBoard.Assign(aImage.Picture);
{ 以下为vba代码--可在word中利用录制宏的功能取得--------------------bagin }
{ 使用vba之前加 x.OleObject.application 例如:excel添加工作表 }
{ oc.OleObject.application.sheets.Add; }
intInlineShapesIndex:=ocDoc.OleObject.application.ThisDocument.InlineShapes.Count+1;
intShapesIndex:=ocDoc.OleObject.application.ThisDocument.Shapes.Count+1;
//从剪贴板添加一个图片
ocDoc.OleObject.application.Selection.Paste;
//转换为图形
ocDoc.OleObject.application.ThisDocument.InlineShapes(intInlineShapesIndex).ConvertToShape;
//设置文字环绕方式
ocDoc.OleObject.application.ThisDocument.Shapes(intShapesIndex).WrapFormat.Type := 'wdWrapThrough';
//将图片中的白色设为透明色
ocDoc.OleObject.application.Selection.InlineShapes(intShapesIndex).PictureFormat.TransparentBackground := 'msoTrue';
ocDoc.OleObject.application.Selection.InlineShapes(intShapesIndex).PictureFormat.TransparencyColor:='RGB(255,255,255)';
ocDoc.OleObject.application.Selection.InlineShapes(intShapesIndex).Fill.Visible := 'msoFalse';
{ 以上为vba代码--可在word中利用录制宏的功能取得----------------------end }
delphi中OleContainer的使用总结的更多相关文章
- DELPHI中四种EXCEL访问技术实现
一.引言 EXCEL在处理中文报表时功能非常强大,EXCEL报表访问也是信息系统开发中的一个重要内容,本文总结以往开发中所用到的几中EXCEL文件访问方法,在实际工作中也得到了很好的验证,本文列举了其 ...
- Delphi中stringlist分割字符串的用法
Delphi中stringlist分割字符串的用法 TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的. 常规的用法大家都知道,现在来讨论它的一些高级的用法. 1.CommaT ...
- delphi中exit,abort,break,continue 的区别
from:http://www.cnblogs.com/taofengli288/archive/2011/09/05/2167553.html delphi中表示跳出的有break,continue ...
- Delphi中使用比较少的一些语法
本文是为了加强记忆而写,这里写的大多数内容都是在编程的日常工作中使用频率不高的东西,但是又十分重要. ---Murphy 1,构造和析构函数: a,构造函数: 一般基于TComponent组件的派生类 ...
- 如何在 Delphi 中静态链接 SQLite
搞了我几个小时,终于成功在 Delphi 中静态链接了 SQLite (v3.5.4),下一步就是研究加密了,呵呵中间其实遇到很多问题,今天累了,就不说了,改天补上 下载测试工程 下面说说方法 1.当 ...
- 翻箱倒柜,《Delphi中建议使用的语句》
(*//标题:Delphi中建议使用的语句整理:Zswang连接:http://www.csdn.net/Expert/TopicView1.asp?id=724036日期:2002-06-22支持: ...
- delphi中break,continue, exit,abort, halt, runerror的异同
delphi中表示跳出的有break,continue, exit,abort, halt, runerror. 1.break 强制退出循环(只能放在循环中),用于从For语句,while语句或re ...
- delphi中midas是什么
Delphi中MIDAS到底是什么呢?和他相关组件是什么呢? MIDAS(Multitiered Distributed Application Services)多层分布式应用服务. Del ...
- Delphi中window消息截获的实现方式(2)
Delphi是Borland公司提供的一种全新的WINDOWS编程开发工具.由于它采用了具有弹性的和可重用的面向对象Pascal(object-orientedpascal)语言,并有强大的数据库引擎 ...
随机推荐
- tmp下莫名其妙生成root权限的缓存文件
现象: 原因:跟ngnix.conf有关,跟tmp的owner有关
- c sharp dll
1. generate dll building .cs file, for example: myDll.cs using System; using System.Collections.Gene ...
- idea窗口下方滚动条不明显设置
在使用idea时,下方的滚动条老是显示不明显,每次点击拖拽都很费劲,在网上找了很多相关设置,最后确定了一个最好的办法解决问题: Shift (上档) + 鼠标滚动,这样就可以横向翻滚了,很方便 此方 ...
- 2018年设计师都在用的PS切图插件--摹客iDoc
终于找到你,我梦寐以求的PS切图插件.曾几何时,设计师在完成设计稿之后高效的输出标注切图一直是设计师的噩梦.为什么这么说呢?开发要的那么多尺寸,我到底该怎么切图?iPhone的版本已经不少了,更别提安 ...
- sqlserver 数据分发复制 发布订阅
转载地址:https://www.cnblogs.com/lizejia/p/6062674.html
- html5 data-*自定义属性取值
demo: <!DOCTYPE HTML> <html> <head> <title></title> <meta http-equi ...
- NotificationMangerService处理显示通知
设置——>应用——>点击“已下载”列表中的任一APP,如图: 代码位置:Settings\src\com\android\settings\applications\InstalledA ...
- springboot配置il8n
springMvc下,配置il8n: 1.配置ResourceBundleMessageSource管理国际化资源文件 2.在页面使用fmt标签取出国际化内容 springBoot下,自动配置了il8 ...
- Python之tornado
一.快速了解Tornado框架 1)tornado简介 Tornado 和现在的主流 Web 服务器框架(包括大多数 Python 的框架)有着明显的区别:它是非阻塞式服务器,而且速度相当快.得利于其 ...
- unity3DGI
Realtime GI,实时全局光照, 1.构成 : 可实时更新的lightmap + 可实时更新的光照探头(light probe)+ 可实时更新的cubemap(Reflection probe) ...