代码片段如下,保存文件到数据库没问题,但是读取文件到本地的时候,为什么读取出来的文件打开后全是同一个文件?应该如何做,请高手指教,谁有没有可用的代码?AdoQuery1.SQL.Add('update T_dropdownexp set addition=:p');  //保存附件至数据库
    Adoquery1.Parameters.ParamByName('p').LoadFromFile(extractfilename(opendialog1.FileName),ftBlob);
    AdoQuery1.ExecSQL;
procedure TForm1.Button11Click(Sender: TObject);    //载入附档
var MS: TMemoryStream;
ext:string;
begin
  AdoQuery1.Close;
  AdoQuery1.SQL.Add('select * from T_dropdownexp');
  AdoQuery1.Open;
  Ms:=TMemoryStream.Create;
  //Ms.Position:=0;
  ext:=trim(edit24.Text);                        //edit中显示的为数据库中文件的扩展名,通过双击记录显示出来   
  savedialog1.Filter:='*'+ext;
  if savedialog1.Execute then begin                 //将附件保存至本地
    if extractfileext(savedialog1.FileName)<>ext then
    savedialog1.FileName:=changefileext(savedialog1.FileName,ext);
    TBlobField(AdoQuery1.FieldByName('addition')).SaveToFile(savedialog1.FileName);
end;
//MS.Free;
end;