关于delphi操作ACCESS 存取word文档的问题

来源：百度知道 编辑：UC知道 时间：2024/06/01 17:51:07
我想在delphi中把一个word的文档保存进access数据库（用ADO），并且可以用delphi读取出来，并显示在delphi的OLeContanier中，不知道怎么操作？
如何写入？如何读出？读出来又如何用OLECOntanier显示？

谢谢大家,如果回答的好，我会加分。

首先把WORD文档放入OleContanier里面显示
OleContainer1.CreateObjectFromFile('C:\aa.doc',False);
OleContainer1.DoVerb(ovPrimary);

存入数据库为：
var
F: TMemoryStream;
begin
F:= TMemoryStream.Create;
OleContainer1.SaveToStream(F);
F.Position:= 0;
ADOTable1.Append;
ADOTable1.FieldByName('name').AsString:= 'aa.doc';
TBlobField(ADOTable1.FieldByName('data')).LoadFromStream(F);
ADOTable1.Post;
end;

取出并显示为：
var
F: TMemoryStream;
begin
F:= TMemoryStream.Create;
TBlobField(ADOTable1.FieldByName('data')).SaveToStream(F);
F.Position := 0;
OleContainer1.LoadFromStream(F);
OleContainer1.DoVerb(ovPrimary);
end;