delphi将word文件存到数据库

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

满意答案

qing来自 Delphi乐园 - 开发者的家园 2013-10-05

procedure TfrmLoadTemplate.OpenDocandSaveClick(Sender: TObject);begin OpenDialog1.Filter:='WORD文档(*.DOC)|*.DOC';{大大对话窗选择文件} if OpenDialog1.Execute then begin with cdsTemplate do //cdsTemplate:TClientdataSet FieldByName('Filename').AsString:=ChangeFileExt(ExtractFileName(Opendialog1.Filenam e),''); begin Open; Append;

FieldByName('Extname').AsString:=ExtractFileExt(Opendialog1.Filename); FieldByName('Filepath').AsString:=Opendialog1.Filename; Post; Close; with FieldByName('Filecontent') as TBlobField do begin BlobType:=ftBlob;

LoadFromFile(Opendialog1.Filename); end; ApplyUpdates(-1); end; end;end;

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