Delphi DLL

PDF List Unsigned Signature Fields

See more PDF Signatures Examples

Demonstrates how to list the unsigned signature fields in a PDF.

Note: This example requires Chilkat v9.5.0.90 or greater.

Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Pdf, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
pdf: HCkPdf;
json: HCkJsonObject;
strVal: PWideChar;
i: Integer;
count_i: Integer;

begin
success := False;

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

pdf := CkPdf_Create();

// Load a PDF containing 2 remaining unsigned signature fields:
success := CkPdf_LoadFile(pdf,'qa_data/pdf/doctor_patient_parent.pdf');
if (success = False) then
  begin
    Memo1.Lines.Add(CkPdf__lastErrorText(pdf));
    Exit;
  end;

// Note: This example requires Chilkat v9.5.0.90 or greater.
json := CkJsonObject_Create();
CkPdf_GetUnsignedSigFields(pdf,json);

CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

// Result:
// {
//   "unsignedSigField": [
//     "doctor_signature",
//     "parent_signature"
//   ]
// }

// To iterate over the field names:

i := 0;
count_i := CkJsonObject_SizeOfArray(json,'unsignedSigField');
while i < count_i do
  begin
    CkJsonObject_putI(json,i);
    strVal := CkJsonObject__stringOf(json,'unsignedSigField[i]');
    Memo1.Lines.Add(strVal);
    i := i + 1;
  end;

CkPdf_Dispose(pdf);
CkJsonObject_Dispose(json);

end;