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

2024年2月9日 204次阅读来源: 爱编程的老五

因为项目客户要求，要将扫描产生的图像文件转存为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文件会大很多。

    原文作者：爱编程的老五
    原文地址: https://blog.csdn.net/menliwxj/article/details/115915001
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。