不想再写一行代码了，但是不行！

事情逼你要写，有些东西不太清晰了，需要复习！

如果用vfp 的话，可以这样使用filetostr() 和 strtofile().这两个函数．

如果用delphi 哪可以这样：

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;

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