在Delphi中,怎样把Word文件保存到数据库中?

Question

procedure TfrmLoadTemplate.OpenDocandSaveClick(Sender: TObject);
begin
  OpenDialog1.Filter:='WORD文档(*.DOC)|*.DOC';{从对话窗选择文件}
  if OpenDialog1.Execute then
  begin
    with cdsTemplate do //cdsTemplate:TClientdataSet
    begin
      Close;
      Open;
      Append;
      FieldByName('Filename').AsString:=ChangeFileExt(ExtractFileName(Opendialog1.Filename),'');
      FieldByName('Extname').AsString:=ExtractFileExt(Opendialog1.Filename);
      FieldByName('Filepath').AsString:=Opendialog1.Filename;
      with FieldByName('Filecontent') as TBlobField do
      begin
        BlobType:=ftBlob;
        LoadFromFile(Opendialog1.Filename);
      end;
      Post;
      ApplyUpdates(-1);
    end;
  end;
end;

Answer 1

在数据库中建一个 Blob 字段存放文档。TBlobField(Table1.FieldByName('Blob')).LoadFromFile(FileName);
.......................................SaveToFile(FileName);

Answer 2

请参考http://www.csdn.net/expert/topic/33/33966.shtm以及楼上两位的办法。