%%%%%%%%%如何用OLE的文件流来读一个WORD文档(万分紧急啊) %%%%%%%%%%%%

Question

1:将WORD文件导入OLE中：
procedure Tfrmdyqk1.BitBtn2Click(Sender: TObject);
begin
  if Opendialog1.execute then
     begin
        OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false);
        Olecontainer1.Doverb(ovShow);
       // OleContainer1.Run;
     end;
end;

Answer 1

2：将OLE中的WORD文件保存到数据库中：
procedure Tfrmdyqk1.BitBtn3Click(Sender: TObject);
var  ms:TMemoryStream;
begin
  ms:= TMemoryStream.create;
  OleContainer1.SaveToStream (ms);
  ms.Position := 0;  Query1.close;
  Query1.sql.clear;
  Query1.sql.text:='select *  from oadbo.bw_qwb';
  Query1.open;
  Query1.append;
  Query1.fieldbyname('wjid').value:=77777777 ;
  Query1.fieldbyname('wjdid').value:=7;
  Query1.fieldbyname('kzm').value:='txt';
  TBlobField(Query1.fieldbyname('qw')).loadfromstream(ms);
  ms.free;
  Query1.post;
  //Query1.applyupdates;
  Query1.close;
end;

Answer 2

3：从数据库中读出WORD文件：
procedure Tfrmdyqk1.Button2Click(Sender: TObject);
 var  strstream:Tmemorystream;
      //ls_qw:string;
begin    OleContainer1.DestroyObject;
    strstream := Tmemorystream.Create;    query1.Close;
    query1.sql.clear;
    query1.SQL.Add('select qw from oadbo.bw_qwb where wjid =' + inttostr(77777777));
    query1.open ;
    query1.First;
    
    
    Tblobfield(query1.fieldbyname('qw')).savetostream(strstream);
    strstream.position:=0;
    OleContainer1.loadfromstream(strstream);    strstream.free;
end;

Answer 3

我是问 OLE用文件流的方法导入WORD文档    OleContainer1.loadfromstream()能不能不通过数据库呢??????????/   继续帮忙吧  谢谢了  

Answer 4

TO WWWWWWWW(我):   给你的40分看见了吗// TO rufujian(rufujian):谢谢UP 也给了你12分了//

Answer 5

就是在OLE中载入WORD文档的时候不要显示什么菜单啊,工具条什么的.只显示页面  

Answer 6

你可以用WORD先打开你的文件，然后用鼠标移到菜单点击右键，把那些选项全部删除，保存；
  再用OLE打开就可以了！！！

Answer 7

关键是要客户用  不能要客户把WORD整改吧把你的EMAIL给我 我发过去我做的程序 你老兄帮我修改修改 OK？

Answer 8

老兄，如何在程序里面将ＷＯＲＤ打开时没有ＷＯＲＤ自己的菜单（在我自己的程序里面将菜单去掉），是否可以。能不能告诉我，我也很想知道Ｅ－ＭＡＩＬ：[email protected]谢谢！

Answer 9

wwwwwwwwww(我我),帮帮我啦！我也想在ＯＬＥ载入ＷＯＲＤ的时候不显示什么菜单之类的啦，谢谢！
E-mail:[email protected]