事后用Delphi压缩PDF

Question

我的应用程序使用例程来生成使用PDF-in-the-box的PDF的例程。 PDF没有压缩，似乎没有办法用这个组件实现。 Rave组件实现了一个压缩事件处理程序，我已经成功地在其他使用Rave设计的应用程序中使用了它。我宁愿不重新编写PDF-in-the-box的东西。有没有使用Delphi的方法，我可以在生成PDF后压缩PDF。

（这不是图像压缩 - 这是PDF内容的无损压缩。通常会导致PDF大小减少3倍。）

我可以通过在Adobe Reader中打开使用PDF-in-the-box制作的PDF并再次保存来模拟我想要的效果。重新保存的PDF文件要小得多。我只是想在代码中做同样的事情。

Answer 1

如果在命令行中使用外部工具不是问题，您可以尝试：

• Ghostscript -dPDFSETTINGS选项（遗憾的是documented}
• QPDF --stream-data = compress选项。

QPDF对我来说似乎更快。