procedure Tform1.btnSaveAsClick(Sender: TObject);
var
ExportFilter : TQRAbstractExportFilter;
begin
if SaveDialog1.Execute then
begin
if ExtractFileExt(savedialog1.FileName) = '.htm' then
begin
ExportFilter := TQRHTMLDocumentFilter.Create
(SaveDialog1.FileName);
end
else
begin
Application.MessageBox(
'无法处理您所要保存的文件类型,请您重新选择!',
'提示信息',
MB_OK + MB_ICONINFORMATION + MB_ICONINFORMATION +
MB_DEFBUTTON1);
exit;
end;
ExportFile(quickrep1,ExportFilter,form1);
end;
end;procedure ExportFile(qrep : Tquickrep; FileName : TQRAbstractExportFilter; sender : TForm);
begin
try
try
qrep.ExportToFilter(filename);
except
on e : exception do
begin
Application.MessageBox(
pchar('文件保存错误!'#13'错误信息:' +
e.Message),
'提示信息',
MB_OK + MB_ICONINFORMATION + MB_ICONINFORMATION
+ MB_DEFBUTTON1);
if not(qrep.Available) then sender.Close;
end;
end;
finally
filename.Free;
end;
end;
var
ExportFilter : TQRAbstractExportFilter;
begin
if SaveDialog1.Execute then
begin
if ExtractFileExt(savedialog1.FileName) = '.htm' then
begin
ExportFilter := TQRHTMLDocumentFilter.Create
(SaveDialog1.FileName);
end
else
begin
Application.MessageBox(
'无法处理您所要保存的文件类型,请您重新选择!',
'提示信息',
MB_OK + MB_ICONINFORMATION + MB_ICONINFORMATION +
MB_DEFBUTTON1);
exit;
end;
ExportFile(quickrep1,ExportFilter,form1);
end;
end;procedure ExportFile(qrep : Tquickrep; FileName : TQRAbstractExportFilter; sender : TForm);
begin
try
try
qrep.ExportToFilter(filename);
except
on e : exception do
begin
Application.MessageBox(
pchar('文件保存错误!'#13'错误信息:' +
e.Message),
'提示信息',
MB_OK + MB_ICONINFORMATION + MB_ICONINFORMATION
+ MB_DEFBUTTON1);
if not(qrep.Available) then sender.Close;
end;
end;
finally
filename.Free;
end;
end;
解决方案 »
- 在Delphi中调用VC动态库,回调函数如何定义
- 编译文件被感染,生成软件报毒,delphi朋友请查看自己的编译器!
- 系统服务 /install 可以在开发环境下安装,如何在用户电脑上安装呢?
- TAcroPDF.PaintTo 只能获得一个Whitepage,有没有其他pdf控件或其他解决办法
- 请大家分析这个系统的数据库如何建立~
- 如何使DBGrid支持拉动滑动块的同时滚动表格中的数据?
- 请教:用ADO连接数据库,除了SQL_SERVER...
- 高分请教高难问题,解决者将是恩人。
- 这个C++Dll文件结口怎么在DELPHI中调用???????
- 如何在窗口中动态创建控件
- 下载ADO程序员参考的地址在这里啊
- 毕业设计完成了!!!这段时间里,多谢各位给予的帮助!!!谢谢!我把所有的分送给大家!(只有这么多了)
请指教。