delphi添加pdf图章 Quick PDF Library

要在Delphi中使用Quick PDF Library添加PDF图章，可以使用以下代码示例：

uses
  QPDFDoc, QPLStamp;

var
  PDFDoc: TQPDFDocument;
  Stamp: TQPLStamp;
begin
  // 加载PDF文档
  PDFDoc := TQPDFDocument.Create(nil);
  PDFDoc.LoadFromFile('example.pdf');

  // 创建图章对象
  Stamp := TQPLStamp.Create(PDFDoc);
  Stamp.LoadFromFile('stamp.png'); // 设置图章图片
  Stamp.Page := 1; // 设置图章所在页码
  Stamp.X := 100; // 设置图章X坐标
  Stamp.Y := 100; // 设置图章Y坐标

  // 添加图章到文档
  PDFDoc.Stamps.Add(Stamp);

  // 保存修改后的PDF文档
  PDFDoc.SaveToFile('example_with_stamp.pdf');

  // 释放对象
  Stamp.Free;
  PDFDoc.Free;
end;

上面的示例代码加载了一个名为example.pdf的PDF文档，创建了一个图章对象，并将其添加到第一页的(100, 100)位置。然后，将修改后的文档保存为example_with_stamp.pdf。在示例中，图章图片为stamp.png，您需要将其替换为您自己的图章图片。