本文介绍了一种将报告页面转换为JPEG图片的方法。通过使用TMetaFile和TBitmap组件，可以将报告的每一页捕捉并转化为图像。接着利用TJPEGImage组件调整图像质量并保存为JPEG格式。
procedure TForm1.btnPrintClick(Sender: TObject);
var
E: TMetaFile;
B: TBitmap;
MyJpg: TJPEGImage;
I, N: Integer;
FN: FileName;
if sdgJpg.Execute then
begin
N := QRpreview1.QRPrinter.PageCount;
FN := Copy(sdgJpg.FileName, 1, Pos('.', sdgJpg.FileName)-1);
for I := 1 to N do
begin
E := QRPreview1.QRPrinter.GetPage(I);
B := TBitmap.Create;
try
with TMetaFile.Canvas.Create(E, 0) do
try
B.Height := E.Height;
B.Width := E.Width;
B.Canvas.Draw(0, 0, E);
finally
free;
end;
MyJpg := TJPEGImage.Create;
with MyJpg do
begin
Assign(B);
CompressionQuality := 100; //设置压缩比
Compress;
SaveToFile(FN+IntToStr(I)+'.jpg'); //将图片保存为文件名加第几页
Free;
end;
finally
B.free;
end;
end;
end;
扫一扫
320
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
