Question

delphi运行的时候出现这样的错，要怎么改？

procedure TForm36.Button6Click(Sender: TObject);
var
ext :string;
fn :string;
begin
try
with datamodule4.adoquery1 do
begin
Close;
SQL.Clear;
SQL.Text:='select * from files where filname='''+trim(edit2.text)+ '''';
Open;
//fn:=datamodule4.adoquery1.fieldbyname('filname').AsString;

savedialog1.Title:='文件另存为:';
savedialog1.Filter:='文本文件(*.txt)|.txt|文档(*.doc)|.doc|所有文件(*.*)|*.*';

if savedialog1.Execute then
begin
fn:=savedialog1.FileName;
TBlobField(datamodule4.adoquery1.FieldByName('context')).SaveToFile(fn);
end;
Close;
end;
finally
Free;
end;
end;

系统提示这样的错误。但是文件是有下载成功的，
这要怎么修改？

Answer 1

检查一下文件路径呢,blob字段的保存没试过，看你的代码应该没问题，看是否文件保存路径的问题

追问

我用断点调试了一下，把FREE去掉就没有问题，