ole and word

Question

你好，我有个问题向您请教一下。问题是这样的:
我的前台工具是Delphi,后台用的是SQL SERVER。
我用OLEContainer插入word文档对象，然后把OLEContainer中的word文档存入SQL
Server中，然后再把数据库中多条纪录数据(word文档)导入到同一个word文档中
(我在SQL SERVER 中用image类型来存储OLEContainer中的数据)
多谢指教，感激不尽，真心希望您的答复。

Answer 1

//save olecontainer to db
procedure TForm1.Button1Click(Sender: TObject);
var
  olestream:TMemorystream;
begin
  table1.Append;
  olestream:=TMemorystream.Create;
  olecontainer1.savetostream(olestream);
  olestream.position:=0;
  TBlobField(Table1.FieldByName('oledata')).LoadFromStream(olestream);
  Table1.Post;
  oleStream.Free;
end;
//load db to olecontainer
procedure TForm1.Button2Click(Sender: TObject);
var
  olestream:TMemorystream;
begin
  table1.Edit;
  OleContainer1.DestroyObject;
  olestream:=TMemorystream.Create;
  TBlobField(Table1.FieldByName('oledata')).SaveToStream(olestream);
  olestream.Position:=0; 
  OleContainer1.loadfromstream(olestream);
  oleStream.Free;
end;