我要选择一个word文件先装入ole中,在保存到数据库中,还要读出来到ole中,ole怎样从文件装入???????150(100分)

  • 主题发起人 主题发起人 zqnet
  • 开始时间 开始时间
如果不从文件导数据,看前面的帖子,可以完成,可ole.loadfromfile则报错
 
为什么我已敲多字就提交失败,使我没法把事情说清楚
 
装入 oleContainer 后,好象不能保存。如果要编辑的话,还是直接打开 word 进行编辑,
编辑完存成文件,再把文件装入 olecontainer 显示。
装入 OleContainer 的操作如下:
procedure TfmSetPerson.ReadDoc(const i: byte);
var
BStream: TStream;
FStream: TFileStream;
begin
if OleContainer1.State <> osEmpty then OleContainer1.Close;
if tbKp01.FieldByName('Doc1').IsNull then begin
ShowMessage('该文档为空');
abort
end;
BStream := tbKp01.CreateBlobStream(tbKp01.FieldByName('Doc'+IntToStr(i)),bmRead);
FStream := TFileStream.Create('C:/tempdoc.doc',fmCreate); //存入临时文件
FStream.CopyFrom(BStream,BStream.Size); //从流中读入
BStream.Free;
FStream.Free;
OleContainer1.CreateObjectFromFile('C:/tempdoc.doc',false); //从文件创建ole对象
end;
 
再问一个问题,激活文件时word'文件'菜单没了,光有后面的菜单,大部分还是灰的,
如何,使其不这样
 
文件菜单没有是正常的,跟主菜单合到一起了,是自动的菜单合并功能,后面的菜单变灰
也是正常的。在 OleContainer 里激活的文档可以编辑,但我没用过存盘功能,也没试过。
也许是不让存盘吧,所以就把菜单做成了灰的。
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部