Delphi中使用Imageen控件将图像文件转换成PDF

最新推荐文章于 2024-07-22 22:55:20 发布

爱编程的老五

最新推荐文章于 2024-07-22 22:55:20 发布

阅读量2.1k

点赞数 1

分类专栏：笔记 Delphi应用心得文章标签： delphi jpeg转pdf

本文链接：https://blog.csdn.net/menliwxj/article/details/115915001

版权

Delphi应用心得同时被 2 个专栏收录

25 篇文章 2 订阅

订阅专栏

笔记

2 篇文章 0 订阅

订阅专栏

因为项目客户要求，要将扫描产生的图像文件转存为PDF。
Imageenio有一个方法savetopdf。这个方法可以生成一个PDF，不过生成的PDF文档体积比原来的图片文件大了10几倍，图像文件不到1M，产生的PDF却有接近20M。
之所以这样是没有设置输出的PDF参数。
Iamgeenio 有个params参数，这个参数里可以设置输出到PDF的压缩率，纸张大小等参数。调整后再次输出PDF，大小与原图像文件大小差不多。

ImageEnIO.Params.PDF_PaperSize := IEStrToPaperSize('A4', iepA4);  //设置纸张
ImageEnIO.Params.PDF_Compression := ioPDF_JPEG;                        //设置压缩方式（默认是ioPDF_RLE，这里改为jpeg)

如果不设置压缩率，输出后的PDF文件会大很多。