delphi - 使用 Delphi 事后压缩 PDF

Question

我有一些应用程序使用例程来生成 PDF，这些 PDF 使用一种称为 PDF-in-the-box 的东西。 PDF 没有被压缩，并且似乎没有办法用这个组件来实现这一点。 Rave 组件实现了一个压缩事件处理程序，我已经在其他使用 Rave 重新设计的应用程序中成功地使用了它。我不想重新编码 PDF-in-the-box 的东西。 Delphi 有什么方法可以在生成 PDF 后对其进行压缩吗？

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

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

Answer 1

如果从命令行使用外部工具没有问题，您可以尝试:

• Ghostscript -dPDFSETTINGS 选项(不幸的是，这不太好 documented )
• QPDF --stream-data=压缩选项。

QPDF 对我来说似乎工作得更快。