Create .p7m digital signature for a file

Download Delphi Project Files and Source Code

Create a .p7m digital signature for a PDF (works with any type of file).

// Create a .p7m digital signature for a PDF.
// Import the following ActiveX controls into Delphi:
// ChilkatCrypt, ChilkatUtil, ChilkatCert
// Then drop an instance of each of the following
// objects onto the form: ChilkatCrypt, CkData, ChilkatCert
procedure TForm1.Button1Click(Sender: TObject);
begin
       ChilkatCrypt1.UnlockComponent('UnlockCode');
       ChilkatCert1.LoadFromFile('matt.cer');
       ChilkatCrypt1.SetSigningCertificate(ChilkatCert1.DefaultInterface as CHILKATENCRYPTLib_TLB.IChilkatCert);
       CkData1.LoadBinary(ChilkatCrypt1.CreateSigFile2Var('sample.pdf'));
       CkData1.SaveToFile('sample.p7m');
end;