如何把一个Word文档流直接加载到OleContainer中?
来源:互联网 发布:mysql count(0) 编辑:程序博客网 时间:2024/04/27 13:24
procedure LoadOleCtnrFromStream(OleContainer: TOleContainer; Stream: TStream);
const
DataFormatCount = 2;
StreamSignature = $434F4442; {'BDOC'}
type
TStreamHeader = record
case Integer of
0: ( { New }
Signature: Integer;
DrawAspect: Integer;
DataSize: Integer);
1: ( { Old }
PartRect: TSmallRect);
end;
var
Header: TStreamHeader;
Mem: TMemoryStream;
begin
Mem:= TMemoryStream.Create;
try
Header.Signature := StreamSignature;
Header.DrawAspect := 1;
Mem.Write(Header, SizeOf(Header));
Mem.CopyFrom(Stream, 0);
Mem.Position := 0;
OleContainer.LoadFromStream(Mem);
//OleContainer.DoVerb(0);//就可以通过OleContainer.OleObject得到Word文档对象
finally
Mem.Free;
end;
end;
//测试代码,当然你也可以通过从数据库的一字段取出Word文档然后放到一个流里传给LoadOleCtnrFromStream函数
procedure TForm1.Button4Click(Sender: TObject);
var
fileStream: TFileStream;
begin
fileStream := TFileStream.Create('D:/1.doc', fmOpenReadWrite);
try
LoadOleCtnrFromStream(OleContainer, fileStream);
finally
fileStream.Free;
end;
end;
- 如何把一个Word文档流直接加载到OleContainer中?
- delphi中OleContainer加载word文档的几个问题
- 如何把数据库的内容写入到Word文档中
- 如何把数据库的内容写入到Word文档中?
- 如何把服务器上的多个Word文档合并到一个Word文档中并且动态填充指定的内容
- php中如何把html中的内容生成到word文档
- c#如何合并多个word文档中的内容到一个word中
- 在IE浏览器中如何直接显示word文档
- 请问如何把指定的内容写入到事先做好的word模板中,然后新生成一个word文件
- 如何把word文档按照单元格放进excel中
- 如何直接把文件夹刻录到dvd光盘中
- 用delphi吧一个word文档追加到另外一个word文档中
- word文档直接嵌入到jsp页面
- 如何在word文档中添加mathtype加载项
- 如何将一个word文档的样式应用到另一个word文档
- 如何将多个word文档的内容合并到一个文档 多html转word
- asp.net中如何存取到word文档中!
- 怎样把一个控件添加到文档视图中
- 改变下拉框中内容的顺序的方法.
- 美国凤凰号探测火星 ---评论
- Linux之x登录前后的变化
- 关于div中图片无法底部对齐的问题
- 大教堂与市集——Eric Raymond 选择自 iyanglian 的 Blog
- 如何把一个Word文档流直接加载到OleContainer中?
- 二层交换机,三层交换机,四层交换机的区别
- 表达式
- 限定 Override 父类方法 - Override
- 10款常用的JAVA测试工具
- JAVA中关于cookie的操作
- 如何释放c盘空间
- 多重幂计数问题
- 在DataTable中检索数据的几种方法的比较