llPDFLib,TPDFDocument
2016开始开源。
procedure TForm2.Button1Click(Sender: TObject); var lPdf : TPdfDocument; lPage : TPdfPage; begin lPdf := TPdfDocument.Create; try lPdf.Info.Author := 'Tester'; lPdf.Info.CreationDate := Now; lPdf.Info.Creator := 'Tester'; lPdf.DefaultPaperSize := psA4; lPage := lPDF.AddPage; lPDF.Canvas.SetFont('宋体',10.0,[]); lPDF.Canvas.SetLeading(lPDF.Canvas.Page.FontSize); lPDF.Canvas.SetLineWidth(0.1); lPdf.Canvas.BeginText; lPdf.Canvas.TextOut( 300, 700, 'This is some text.'); lpdf.Canvas.TextOut(10,200,'你好'); lpdf.Canvas.TextOutW(10,300,'你好'); lPdf.Canvas.EndText; lPdf.SaveToFile('test.pdf'); finally lPdf.Free; end; end;