delphi添加pdf图章(

要在 Delphi 中添加 PDF 图章，可以使用第三方库 iTextSharp。

首先，确保已经安装了该库。然后，按照以下步骤操作：

1. 导入 iTextSharp 库

uses
  iTextSharp.text.pdf, iTextSharp.text.pdf.draw;

2. 定义一个添加图章的函数

procedure AddStampToPDF(PDFFile, StampFile, OutputFile: string);
var
  PDFReader: TPDFReader;
  PDFStamper: TPDFStamper;
  Stamp: TPDFStamp;
  ImageStream: TFileStream;
begin
  // 创建 PDF 阅读器对象
  PDFReader := TPDFReader.Create(PDFFile);
  try
    // 创建 PDF 盖章对象
    PDFStamper := TPDFStamper.Create(PDFReader);
    try
      // 创建图章对象
      Stamp := TPDFStamp.Create;
      try
        // 读取图章图片
        ImageStream := TFileStream.Create(StampFile, fmOpenRead);
        try
          // 设置图章属性
          Stamp.Image := TImage.GetInstance(ImageStream);
          Stamp.ScalePercent := 50;
          Stamp.SetLocation(100, 100);
        finally
          ImageStream.Free;
        end;
        // 添加图章到 PDF 文件中
        PDFStamper.AddAnnotation(Stamp, 1);
      finally
        Stamp.Free;
      end;
      // 保存 PDF 文件
      PDFStamper.Close;
    finally
      PDFStamper.Free;
    end;
  finally
    PDFReader.Free;
  end;
end;

3. 调用添加图章的函数

AddStampToPDF('C:\test.pdf', 'C:\stamp.png', 'C:\output.pdf');

这个函数将在指定的 PDF 文件上添加一个图章，并将结果保存到指定的输出文件中。你需要将第二个参数 `StampFile` 替换为实际的图章文件路径，将第一个和第三个参数 `PDFFile` 和 `OutputFile` 替换为实际的 PDF 文件路径和输出文件路径。