delphi報表存為JPG圖片

最新推荐文章于 2022-01-19 17:00:08 发布

diavy

最新推荐文章于 2022-01-19 17:00:08 发布

阅读量868

点赞数

分类专栏： delphi 文章标签： delphi integer string forms windows image

本文链接：https://blog.csdn.net/diavy/article/details/4404316

版权

delphi 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, DB, DBTables, QRCtrls, QuickRpt, Psock,
NMsmtp, ComCtrls, jpeg, comobj;

var
JPG: TJPEGImage;
BMP: TBitMap;
StoredUnits: TQRUnit;
i: integer;
StoreDir: string;
IMAGE1: TIMAGE;
SQLTEXT: string;

QRP_01.Prepare;
StoredUnits := QRP_01.Units;
QRP_01.Units := Pixels;
try
    BMP := TBitMap.Create;
    try
      BMP.Width := Round(QRP_01.Page.Width);
      BMP.Height := Round(QRP_01.Page.Length);
      QRP_01.QRPrinter.PageNumber := 1;
      BMP.Canvas.Draw(0, 0, QRP_01.QRPrinter.Page);
      BMP.SaveToFile('D:/' + ED03.Text + '.BMP');
    finally
      BMP.Free;
    end;
finally
    QRP_01.Units := StoredUnits;
end;

BMP := TBitmap.Create;
try
    BMP.LoadFromFile('D:/' + ED03.Text + '.BMP'); //你的圖片位置
    DeleteFile('D:/' + ED03.Text + '.JPG');
    JPG := TJPEGImage.Create;
    JPG.Assign(BMP);
    JPG.CompressionQuality := 95; //縮放比例
    JPG.Compress;
    JPG.SaveToFile('D:/' + ED03.Text + '.JPG'); //保存路徑
    JPG.Free;
finally
    BMP.Free;
    DeleteFile('D:/' + ED03.Text + '.BMP');
end;