(Delphi ActiveX) PDF Get Encryption and Permissions Information

See more PDF Signatures Examples

Determine if a PDF is encrypted, and the associated user permissions.

Note: Some PDFs are encrypted but not password-protected. In such cases, encryption is used primarily for preventing unauthorized modifications to the document, but it doesn't restrict access. Therefore, you can open and read the document without a password.

Note: This example requires Chilkat v9.5.0.96 or later.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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;
ljd: IChilkatJsonObject;
pdfVersion: WideString;
Filter: WideString;
KeyLength: Integer;
V: Integer;
R: Integer;
P: Integer;
PrintLowResolution: WideString;
PrintHighResolution: WideString;
ModifyOther: WideString;
ModifyAnnotations: WideString;
ModifyForms: WideString;
FillInForms: WideString;
AssembleDoc: WideString;
ExtractAnyPurpose: WideString;
ExtractAccessibility: WideString;
Method: WideString;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

pdf := TChilkatPdf.Create(Self);

// Open a PDF.
// Starting in Chilkat v9.5.0.96, the LastJsonData will contain information about encryption and permissions.
success := pdf.LoadFile('c:/someDir/sample.pdf');
if (success = 0) then
  begin
    Memo1.Lines.Add(pdf.LastErrorText);
    Exit;
  end;

// Examine the LastJsonData
ljd := pdf.LastJsonData();
ljd.EmitCompact := 0;

Memo1.Lines.Add(ljd.Emit());

// Sample output:

// {
//   "pdfVersion": "1.6",
//   "encrypt": {
//     "filter": "/Standard",
//     "keyLength": 128,
//     "V": 4,
//     "R": 4,
//     "P": -1340,
//     "perm": {
//       "printLowResolution": "allowed",
//       "printHighResolution": "allowed",
//       "modifyOther": "not allowed",
//       "modifyAnnotations": "allowed",
//       "modifyForms": "not allowed",
//       "fillInForms": "allowed",
//       "assembleDoc": "allowed",
//       "extractAnyPurpose": "not allowed",
//       "extractAccessibility": "not allowed"
//     },
//     "method": "AESV2"
//   }
// }

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

pdfVersion := ljd.StringOf('pdfVersion');
Filter := ljd.StringOf('encrypt.filter');
KeyLength := ljd.IntOf('encrypt.keyLength');
V := ljd.IntOf('encrypt.V');
R := ljd.IntOf('encrypt.R');
P := ljd.IntOf('encrypt.P');
PrintLowResolution := ljd.StringOf('encrypt.perm.printLowResolution');
PrintHighResolution := ljd.StringOf('encrypt.perm.printHighResolution');
ModifyOther := ljd.StringOf('encrypt.perm.modifyOther');
ModifyAnnotations := ljd.StringOf('encrypt.perm.modifyAnnotations');
ModifyForms := ljd.StringOf('encrypt.perm.modifyForms');
FillInForms := ljd.StringOf('encrypt.perm.fillInForms');
AssembleDoc := ljd.StringOf('encrypt.perm.assembleDoc');
ExtractAnyPurpose := ljd.StringOf('encrypt.perm.extractAnyPurpose');
ExtractAccessibility := ljd.StringOf('encrypt.perm.extractAccessibility');
Method := ljd.StringOf('encrypt.method');
end;