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里里面EXCLE OLE调用怎么写?
- 雪地全裸跪求:trackbar控制视频进度问题
- 2007年,Delphi板块有什么亮点吗?
- 过年了放假了,程序员朋友新年快乐,(版主别删除)
- 奇怪,我这句怎么通不过呢:if assigned(FChild)<>nil then
- 怎样判断鼠标不在窗体上?
- filter 问题???
- 请教delphi的简单sql语句错误???
- 看样子江西的朋友们更能团结起来?
- asp调用delphi开发的asp对象方法时为什么老没法传递参数.
- 下载ADO程序员参考的地址在这里啊
- 毕业设计完成了!!!这段时间里,多谢各位给予的帮助!!!谢谢!我把所有的分送给大家!(只有这么多了)
请指教。