关于SaveToFile的用法

Question

求教问题原因！！
function TfrmMain.SaveToLocal(strFileName: string): boolean;
begin 
  TBlobField(qry_FileData.FieldByName('FileData')).SaveToFile(strFileName);
end;
执行的时候提示无法创建文件（cannot create file）
但是将strFileName在函数中赋值就没有问题。

Answer 1

用showmessage检查一下strFileName的内容对不对

Answer 2

... FUNCTION 是必须要有返回值的

Answer 3

如果是文本文件或者可执行文件，可以成功。
但是如果是报表文件（.FRF），则提示失败！

Answer 4

function TfrmMain.SaveToLocal(strFileName: string): boolean; 
begin 
  TBlobField(qry_FileData.FieldByName('FileData')).SaveToFile(strFileName);
  result:=true; 
end;

Answer 5

function TfrmMain.SaveToLocal(strFileName: string): boolean; 
begin
  strFileName:=SysUtils.ExtractShortPathName(strFileName);//取短路径名
  TBlobField(qry_FileData.FieldByName('FileData')).SaveToFile(strFileName);
  result:=true;
end;

Answer 6

function TfrmMain.SaveToLocal(strFileName: string): boolean; 
begin
  result:=false;  
  strFileName:=SysUtils.ExtractShortPathName(strFileName);//取短路径名
  TBlobField(qry_FileData.FieldByName('FileData')).SaveToFile(strFileName);
  result:=true;
end;

Answer 7

function TfrmMain.SaveToLocal(strFileName: string): boolean; 
begin
  strFileName:=SysUtils.ExtractShortPathName(strFileName);//取短路径名
  TBlobField(qry_FileData.FieldByName('FileData')).SaveToFile(strFileName);
  result:=true;
end;这段代码应该能帮你搞定