delphi - Delphi 中的 PDF 缩略图

Question

我想知道在Delphi中是否有一个简单的生成PDF文件缩略图的方法。基本上我想将 PDF 的第一页渲染为小位图(例如 100x100 或类似位图)。
我看到两个选项 1 使用 PDF 组件，2 以某种方式利用资源管理器生成预览/缩略图的方式。

Answer 1

使用像 QuickPDF 或 Gnostice 这样的库确实是最简单的选择。我相当确定资源管理器中的 PDF 缩略图实际上是由安装的任何 PDF 软件(例如 Adob​​e)生成的。除非您能保证每个工作站上都​​安装了正确的 PDF 阅读器，否则使用缩略图的想法可能无效。

编辑:这是一个完整的应用程序，使用 QuickPDF 将给定 PDF 文件的第一页渲染为 BMP 文件。在 10 DPI 下，我的输出 BMP 文件为 85 像素宽 x 110 像素高。

program PDFToBMP;
{$APPTYPE CONSOLE}
uses
  SysUtils, QuickPDF;
var
  Q : TQuickPDF;
begin
  Q := TQuickPDF.Create;
  try
    Q.LoadFromFile(ParamStr(1), '');
    Q.RenderPageToFile(10 {DPI}, 1 {PageNumber}, 0 {0=BMP}, ChangeFileExt(ParamStr(1),'.bmp'));
  finally
    Q.Free;
  end;
end.