(Tcl) PDF List Unsigned Signature Fields

See more PDF Signatures Examples

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set pdf [new_CkPdf]

# Load a PDF containing 2 remaining unsigned signature fields:
set success [CkPdf_LoadFile $pdf "qa_data/pdf/doctor_patient_parent.pdf"]
if {$success == 0} then {
    puts [CkPdf_lastErrorText $pdf]
    delete_CkPdf $pdf
    exit
}

# Note: This example requires Chilkat v9.5.0.90 or greater.
set json [new_CkJsonObject]

CkPdf_GetUnsignedSigFields $pdf $json

CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

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

# To iterate over the field names:

set i 0
set count_i [CkJsonObject_SizeOfArray $json "unsignedSigField"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set strVal [CkJsonObject_stringOf $json "unsignedSigField[i]"]
    puts "$strVal"
    set i [expr $i + 1]
}

delete_CkPdf $pdf
delete_CkJsonObject $json