请教：怎样把Word文件存入SQL server2000数据库中，在需要时可以取出重新编辑?

Question

怎样把Word文件存入SQL server2000数据库中，在需要时可以取出重新编辑?

Answer 1

//写入 
var
　MS: TFileStream;
begin
　if OpenDialog1.Execute then
　begin
　　MS:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
  　MS.Position:=0;
　  Table1.Append; 
　 //在数据库中添加一条记录
　  TBlobField(Table1.FieldbyName(’FieldDoc’)).LoadFromStream(MS);
　  Table1.Post; 
　　MS.Free;
　end;
end; 
//  读取
var
  FileSource ,FileDest : Tfilestream;
  fileStrd,FileStrs:string;
  F:File;
begin
　with Table1 do
　　FileSource:=CreateBlobStream(FieldbyName(’ fieldDoc’),bmRead);
  try
   if savedialog1.Execute then
  begin
     filestrd := savedialog1.FileName;
  end;
   if not FileExists(Filestrd) then//如不存在新建
   begin
   assignFile(F,Filestrd);
   Rewrite(f);
   CloseFile(F);
   end;   fileDest := TFileStream.Create(FileStrD,fmOpenWrite or fmShareDenyRead);
   try
   FileDest.CopyFrom(FileSource,FileSource.Size);
      finally
      FreeAndNil(FileDest);
      end;
    finally
    FreeAndNil(FileSource);               //释放文件流
    end;end;

Answer 2

To:newsofter(横空出世小霸王) 
谢谢！按你的方法问题解决，给分

Answer 3

To:newsofter(横空出世小霸王) 
保存到数据库后在打开时如何定位到你想要打开的word文件？？？？