如何将word文件导入或打开后保存进oracle中？并能再次打开浏览、修改、保存（存入oracle或普通word文件）？

Question

如题

Answer 1

将文档作为blob类型,通过oracle的包写入读出实现。

Answer 2

用wordapplication worddocument实现对word的保存和显示（从oracle中取出到word），但是原有的文件格式、字体、表格都没有了。
为什么？oracle没有保存这些信息吗？
//保存
procedure TForm1.Button4Click(Sender: TObject);
begin
  qryInsert.Prepare;
  qryInsert.ParamByName('wordfile').AsBlob :=worddocument.Range.Text ;
  qryInsert.ExecSQL;
  showmessage('save ok');
end;
//显示
procedure TForm1.Button5Click(Sender: TObject);
var itemindex:olevariant;
begin
  itemindex:=1;
  wordapplication.Documents.Add(emptyparam,emptyparam,emptyparam,emptyparam);
  worddocument.ConnectTo(wordapplication.Documents.Item(itemindex));
  wordapplication.options.checkspellingasyoutype := false;
  wordapplication.options.checkgrammarasyoutype := false;
  qryQuery.Close;
  qryQuery.Open;
  worddocument.Range.InsertAfter(qryquery.fieldbyname('wordfile').AsVariant);
end;