关于QuickReport的保存到文件如何实现？

Question

用QuickReport预览后，在那个预览的窗口里有一个保存和打开快捷按钮
如何编程实现！比如，每预览一次自动将预览结果保存到一个文件中
.........我的是Delphi7

Answer 1

我有一个写临时文件的例子，在Delphi下调试通过，你参考一下。
function TDLG_SQL.write_ini:boolean;
var temp_ini:tinifile;
    filename,filename2:string;
    i_count,col_sum,col_width,pagesize,prt_orient:integer;
    btn_return:integer;
    width_rate:single;
begin
  filename:=sys_default.rept_save+'\sql_rept.tmp';//临时文件
  if FileExists(FileName) then DeleteFile(FileName);
  filename2:= sys_default.rept_save+'\sql_rept.rep';
  if FileExists(FileName2) then DeleteFile(FileName2);
  temp_ini:=tinifile.Create(filename);
  //写报表文件的rep_detail部分
  rept_title:=inputbox('系统输入','请输入报表标题','');
  temp_ini.WriteString('rep_detail','Title',rept_title);
  temp_ini.WriteString('rep_detail','Page',inttostr(pagesize));
  temp_ini.WriteString('rep_detail','Orientation',inttostr(prt_orient));
  temp_ini.WriteString('rep_detail','columns',inttostr(col_sum));
  //写query语句
  temp_ini.WriteString('QureyData','Sql_command',mysql_clause.select+mysql_clause.from+mysql_clause.where);
  
  //关闭文件
  temp_ini.Free;
  result:=true;
end;