Todo o ciclo de vida do PDF para Delphi, sem DLL para implantar

var
  oPDF: TsgcPDFDocument;
  oPage: TsgcPDFPage;
begin
  oPDF := TsgcPDFDocument.Create;
  try
    oPDF.Info.Title := 'Hello sgcPDF';
    // A4 retrato: 595 x 842 pontos
    oPage := oPDF.AddPage(595, 842);
    oPage.DrawTextColor('Hello sgcPDF', 50, 780, sfHelveticaBold, 24, 0, 0.2, 0.6);
    oPage.DrawLine(50, 770, 545, 770, 1.5);
    oPage.DrawText('A PDF written in pure Pascal.', 50, 740, sfHelvetica, 12);
    // a senha de usuário abre o arquivo, a senha de proprietário concede direitos totais
    oPDF.SetEncryption(emAES_256, 'user123', 'owner456');
    oPDF.SaveToFile('hello.pdf');
  finally
    oPDF.Free;
  end;
end;

var
  oSigner: TsgcPDFSignatureHandler;
begin
  oSigner := TsgcPDFSignatureHandler.Create;
  try
    oSigner.LoadCertificateFromPFX('signer.pfx', 'test123');
    oSigner.Reason := 'Document approval';
    oSigner.Location := 'Barcelona';
    oSigner.HashAlgorithm := shaSHA256;
    // campo de assinatura visível na página 1: Esquerda, Inferior, Direita, Superior
    oSigner.SetField('Signature1', 0, 50, 50, 250, 100);
    oSigner.SignDocument('contract.pdf', 'contract-signed.pdf');
  finally
    oSigner.Free;
  end;
end;

var
  oPDF: TsgcPDFDocument;
  oRenderer: TsgcPDFRendererRaster;
  oPage: TsgcPDFPage;
begin
  oPDF := TsgcPDFDocument.Create;
  try
    oPDF.LoadFromFile('report.pdf');
    oPage := oPDF.Pages[0];
    // rasterizador em Pascal puro: sem GDI, roda em servidores Windows e Linux
    oRenderer := TsgcPDFRendererRaster.Create;
    try
      oRenderer.RenderPageToPNG(oPDF.Parser, oPage.PageDict,
        Round(oPage.Width * 150 / 72), Round(oPage.Height * 150 / 72),
        'page1.png');
    finally
      oRenderer.Free;
    end;
  finally
    oPDF.Free;
  end;
end;