Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) Sign a PDF using Certificate from Windows Certificate StoreSee more PDF Signatures ExamplesThis example demonstrates how to a sign a PDF using a certificate from the Windows Certificate Store. Note: This example requires Chilkat v9.5.0.85 or greater.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var pdf: TChilkatPdf; success: Integer; json: TChilkatJsonObject; cert: TChilkatCert; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. pdf := TChilkatPdf.Create(Self); // Load a PDF to be signed. // The "hello.pdf" is available at https://chilkatsoft.com/hello.pdf success := pdf.LoadFile('qa_data/pdf/hello.pdf'); if (success = 0) then begin Memo1.Lines.Add(pdf.LastErrorText); Exit; end; // Options for signing are specified in JSON. json := TChilkatJsonObject.Create(Self); // In most cases, the signingCertificateV2 and signingTime attributes are required. json.UpdateInt('signingCertificateV2',1); json.UpdateInt('signingTime',1); // Put the signature on page 1, top left json.UpdateInt('page',1); json.UpdateString('appearance.y','top'); json.UpdateString('appearance.x','left'); // Use a font scale of 10.0 json.UpdateString('appearance.fontScale','10.0'); // In this example, the appearance of the digital signature will contain three lines: // 1) The signing certificate's common name // 2) The current date/time // 3) Some arbitrary text. // The keyword "cert_cn" is replaced with the Certificate's Subject Common Name. // The keyword "current_dt" is replaced with the current date/time. // Any number of appearance text lines can be added. json.UpdateString('appearance.text[0]','Digitally signed by: cert_cn'); json.UpdateString('appearance.text[1]','current_dt'); json.UpdateString('appearance.text[2]','The crazy brown fox jumps over the lazy dog.'); // Load a certificate by specifying the common name ("CN" part of the certificate's Subject) cert := TChilkatCert.Create(Self); success := cert.LoadByCommonName('Xyz Widgets, Inc.'); if (success = 0) then begin Memo1.Lines.Add(cert.LastErrorText); Exit; end; // Tell the pdf object to use the certificate for signing. success := pdf.SetSigningCert(cert.ControlInterface); if (success = 0) then begin Memo1.Lines.Add(pdf.LastErrorText); Exit; end; success := pdf.SignPdf(json.ControlInterface,'qa_output/hello_signed.pdf'); if (success = 0) then begin Memo1.Lines.Add(pdf.LastErrorText); Exit; end; Memo1.Lines.Add('The PDF has been successfully cryptographically signed.'); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.