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

因为项目客户要求,要将扫描产生的图像文件转存为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
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。
点赞