QuickReport 3.0的导出文件 *.qrp 如何用代码的方式保存成图片格式
2005-05-01 21:36
716 查看
提供给大家共享共享。
procedure TForm1.Button1Click(Sender: TObject);
var
APage : TMetafile;
begin
if OpenDialog1.Execute then
begin
QRPreview1.QRPrinter:= TQRPrinter.Create(nil);
QRPreview1.QRPrinter.Load(OpenDialog1.FileName);
QRPreview1.Zoom:=100;
//QRPreview1.PreviewImage.Show;//.QRPrinter.Preview;
APage := QRPreview1.QRPrinter.GetPage(1);
Image1.Width:=QRPreview1.PreviewImage.Width;
Image1.Height:=QRPreview1.PreviewImage.Height;
Image1.Canvas.StretchDraw(Rect(0,0,QRPreview1.PreviewImage.Width,QRPreview1.PreviewImage.Height), APage);
Image1.Picture.SaveToFile(OpenDialog1.FileName+'.bmp');
APage.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
APage : TMetafile;
begin
if OpenDialog1.Execute then
begin
QRPreview1.QRPrinter:= TQRPrinter.Create(nil);
QRPreview1.QRPrinter.Load(OpenDialog1.FileName);
QRPreview1.Zoom:=100;
//QRPreview1.PreviewImage.Show;//.QRPrinter.Preview;
APage := QRPreview1.QRPrinter.GetPage(1);
Image1.Width:=QRPreview1.PreviewImage.Width;
Image1.Height:=QRPreview1.PreviewImage.Height;
Image1.Canvas.StretchDraw(Rect(0,0,QRPreview1.PreviewImage.Width,QRPreview1.PreviewImage.Height), APage);
Image1.Picture.SaveToFile(OpenDialog1.FileName+'.bmp');
APage.Free;
end;
end;
相关文章推荐
- 如何保存几何画板文件为图片格式
- 如何将你在FLASH 8.0里制作完成的动态图片保存成GIF格式的文件,我来教你!!!
- 如何将你在FLASH 8.0里制作完成的动态图片保存成GIF格式的文件,我来教你!!!
- simulink中如何将scope图像导出保存成图片格式
- ASP保存远程图片文件到本地代码
- 如何使用C#代码创建快捷方式文件详解
- 客户端上传一文件流stream,请问ASP如何保存成图片
- JPG,PNG等格式的图片转换的ICON保存为ICO文件
- iMindMap文件该如何导出为图片
- 如何从 Visual C++ UNIX 格式保存文件
- CxImage与OpenGL结合,用于读入多种格式的纹理以及用来把屏幕保存为各种格式的图像文件。 关于CxImage的文章,网上有许多,这里只介绍如何把CxImage与OpenGL结合起来,用于读
- 导出为Word Excel Text 文件格式代码(全) - 一看就明
- VC中如何将文件保存为EXCEL格式(CSpreadSheet)
- js 下载图片与下载文件的方式一样;保存至本地 ASP.NET 方式
- 如何将位图格式图片文件(.bmp)生成geotiff格式图片?
- 如何将位图格式图片文件(.bmp)生成geotiff格式图片?
- imageready 如何保存为gif格式图片总结.
- 如何保证在浏览器端打开文件(word格式),保存时仍能够进入原数据库!
- 如何在代码中调用“文件打开方式对话框”?
- 「JavaScript」梅花雪日历控件3.0-直接复制代码保存为html格式即可运行