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);
varPdf: TPdfDocumentGDI;
begin//创建PDF文档Pdf := TPdfDocumentGDI.Create;try//新增页面
    Pdf.AddPage;//向Canvas输出内容with Pdf.VCLCanvas dobeginPen.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 dobeginFont.Name := '宋体';Font.Size := 20;TextOut(200, 120, '新增页面');end;//保存文件Pdf.SaveToFile('C:\ceshi.pdf');finallyPdf.Free;end;
end;

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