SynPDF下载安装

没有安装包，直接放在EXE目录下即可

通过网盘分享的文件：SynPDF Delphi7-10.4 Full Source.rar
链接: https://pan.baidu.com/s/1EfqDdKhQzXb4_MoVZxBFMg?pwd=bau9 提取码: bau9

 uses SynPdf;

procedure TForm2.FormCreate(Sender: TObject);
var
  Pdf: TPdfDocumentGDI;
begin
  //创建PDF文档
  Pdf := TPdfDocumentGDI.Create;
  try
    //新增页面
    Pdf.AddPage;
    //向Canvas输出内容
    with Pdf.VCLCanvas do
    begin
      Pen.Color := clRed;
      Pen.Width := 2;
      Brush.Color := clInfoBk;
      Rectangle(100, 100, 400, 200);
      Font.Name := '宋体';
      Font.Size := 20;
      TextOut(200, 120, '测试内容');
      Pen.Color := clYellow;
      Pen.Width := 5;
      MoveTo(100, 250);
      LineTo(400, 250);
    end;
    //添加新页面，Canvas指向新增页面
    Pdf.AddPage;
    with Pdf.VCLCanvas do
    begin
      Font.Name := '宋体';
      Font.Size := 20;
      TextOut(200, 120, '新增页面');
    end;
    //保存文件
    Pdf.SaveToFile('C:\ceshi.pdf');
  finally
    Pdf.Free;
  end;
end;

 delphi SynPDF 常用功能 - txgh - 博客园