Delphi PDF

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;

llPDFlib3.6

llPDFlib5.2

V6.4.0.1389

http://www.sybrex.com/products/development/

http://www.sybrex.com/products/development/llpdflib/download.php

 合作伙伴有trichview

SynPdf

1.18

http://blog.synopse.info/category/Open-Source-Projects/Synopse-PDF-engine

HotPDF，VisPDFLib

10.1，收费的

http://www.loslab.com/HotPDF.html

10/19/2015
llPDFLib Releases Its Version 6.0
Delphi library for creating PDF documents on the fly was released.
Whats new:
JBIG2 Compression for b/w images
Digital signatures
Some changes in engine

 

 PDFCreator

http://www.pdfforge.org/

eDocEngine(gtPDFEngine)

gtPDFEngine,eDocEngine VCL 5.0.0.81，2016.8.3

PDFtoolkit VCL  打印和阅读

TgtPDFDocument, TgtPDFOutlineViewer, TgtPDFPrinter, TgtPDFSearchPanel, TgtPDFViewer

http://www.gnostice.com/eDocEngine%5FVCL.asp

http://www.gnostice.com/nl_article.asp?id=83&t=How_To_Convert_Image_Files_To_PDF_Using_eDocEngine_VCL

http://www.gnostice.com/nl_article.asp?id=213&t=How_To_Convert_XML_To_PDF_Using_Delphi

https://www.gnostice.com/nl_article.asp?id=244&t=Export_From_TRichView_and_ScaleRichView_To_PDF_And_Other_Formats

https://www.gnostice.com/nl_article.asp?id=126&t=Exporting_TRichView_(_RVF)_Files_to_PDF_Using_eDocEngine_VCL

 印度Gnostice制造

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute() then begin
    Edit1.Text := OpenDialog1.FileName;
    SRichViewEdit1.Clear;
    SRichViewEdit1.RichViewEdit.LoadRTF(Edit1.Text);
    SRichViewEdit1.Format;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  gtPDFEngine1.FileName := OpenDialog1.FileName + '.pdf';
  gtScaleRichViewInterface1.RenderDocument(SRichViewEdit1);
end;

html转pdf

HtmlViewer1,gtHtmlViewInterface1,gtPDFEngine1;3个控件

  HtmlViewer1.LoadFromFile('test.html');
  gtHtmlViewInterface1.Engine := gtPDFEngine1;
  gtPDFEngine1.Preferences.ShowSetupDialog := False;
  gtPDFEngine1.Preferences.OpenAfterCreate := False;
  gtPDFEngine1.FileName := 'test.pdf';
  gtHtmlViewInterface1.RenderDocument(HtmlViewer1);

ThtmlViewer

 http://www.pbear.com/