QuickReport 3.0的导出文件 *.qrp 如何用代码的方式保存成图片格式

最新推荐文章于 2021-01-24 17:14:01 发布

原创最新推荐文章于 2021-01-24 17:14:01 发布 · 3k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#image

Delphi 专栏收录该内容

1 篇文章

订阅专栏

博客分享了一段Delphi代码，在按钮点击事件中，通过OpenDialog选择文件，将文件加载到QRPreview并设置缩放，获取页面图像，调整Image控件大小并绘制图像，最后将图像保存为BMP文件。

提供给大家共享共享。

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;