用流将数据库里的文件导出到文件夹里

Question

文件主要是些OFFIC文件.都储存在数据库里面.现在要在前台中打开和修改数据库的文件,我知道是用流的形式将文件从数据库里面导出来,导到一个临时文件夹里面然后在文件夹里面打开.但是最近我试了好几次都没能成功!可能在下基础薄弱,实在是没法子了.不知有哪们大侠路过此地能够拔刀相助!!在下当感激不尽!!

Answer 1

Procedure FileCopy( Const sourcefilename, targetfilename: String );
Var
  S, T: TFileStream;
Begin
  S := TFileStream.Create( sourcefilename, fmOpenRead );  try
    T := TFileStream.Create( targetfilename,fmOpenWrite or fmCreate );
    try
      T.CopyFrom(S, S.Size ) ;
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
End;
procedure Tfrm_sjbf.Button1Click(Sender: TObject);
begin
    messagedlg('数据备份成功！',mtinformation,[mbok],0);
    showmessage(sourcedir);
    showmessage(dirlist.Directory);
    filecopy(sourcedir+'\data.mdb',dirlist.Directory+'\databak.mdb');
    dmodule.ADOConnection1.Connected:=true;
end;procedure Tfrm_sjbf.FormActivate(Sender: TObject);
begindmodule.ADOConnection1.Connected:=false;
end;procedure Tfrm_sjbf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frm_main.Enabled:=true;
end;procedure Tfrm_sjbf.FormCreate(Sender: TObject);
begin
sourcedir:=dirlist.Directory;
end;我以前的一个程序编写的代码，供你参考一下。

Answer 2

使用ADODataSet还是比较方便的，
ADODataSet.SaveToFile(...,pfXML);