(Perl) PDF List Unsigned Signature Fields
Demonstrates how to list the unsigned signature fields in a PDF.
Note: This example requires Chilkat v9.5.0.90 or greater.
use chilkat();
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$pdf = chilkat::CkPdf->new();
# Load a PDF containing 2 remaining unsigned signature fields:
$success = $pdf->LoadFile("qa_data/pdf/doctor_patient_parent.pdf");
if ($success == 0) {
print $pdf->lastErrorText() . "\r\n";
exit;
}
# Note: This example requires Chilkat v9.5.0.90 or greater.
$json = chilkat::CkJsonObject->new();
$pdf->GetUnsignedSigFields($json);
$json->put_EmitCompact(0);
print $json->emit() . "\r\n";
# Result:
# {
# "unsignedSigField": [
# "doctor_signature",
# "parent_signature"
# ]
# }
# To iterate over the field names:
$i = 0;
$count_i = $json->SizeOfArray("unsignedSigField");
while ($i < $count_i) {
$json->put_I($i);
$strVal = $json->stringOf("unsignedSigField[i]");
print $strVal . "\r\n";
$i = $i + 1;
}
|