发布网友 发布时间:2022-08-25 13:17
共1个回答
热心网友 时间:2024-10-31 17:01
Mem.CopyFrom(Stream,0);Mem.Position :=0;OleContainer.LoadFromStream(Mem);//OleContainer.DoVerb(0);//就可以通过OleContainer.OleObject得到Word文档对象finallyMem.Free;end;end;//测试代码,当然你也可以通过从数据库的一字段取出Word文档然后放到一个流里传给LoadOleCtnrFromStream函数procedureTForm1.Button4Click(Sender: TObject);varfileStream: TFileStream;beginfileStream :=TFileStream.Create('D:/1.doc'热心网友 时间:2024-10-31 17:04
Mem.CopyFrom(Stream,0);Mem.Position :=0;OleContainer.LoadFromStream(Mem);//OleContainer.DoVerb(0);//就可以通过OleContainer.OleObject得到Word文档对象finallyMem.Free;end;end;//测试代码,当然你也可以通过从数据库的一字段取出Word文档然后放到一个流里传给LoadOleCtnrFromStream函数procedureTForm1.Button4Click(Sender: TObject);varfileStream: TFileStream;beginfileStream :=TFileStream.Create('D:/1.doc'