Visual FoxPro

Example: Crypt2.GetSignatureSigningTimeStr method

Demonstrates how to call the GetSignatureSigningTimeStr method. Visual FoxPro

LOCAL lnSuccess
LOCAL loCrypt
LOCAL lnNumSigners
LOCAL i

lnSuccess = 0

loCrypt = CreateObject('Chilkat.Crypt2')

lnSuccess = loCrypt.VerifyP7M("qa_data/cades/CAdES-T/Signature-C-T-1.p7m","qa_output/out.dat")
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    CANCEL
ENDIF

lnNumSigners = loCrypt.NumSignerCerts
? "Num Signers = " + STR(lnNumSigners)

i = 0
DO WHILE i < lnNumSigners
    IF (loCrypt.HasSignatureSigningTime(i) = 1) THEN
        ? STR(i + 1) + ": " + loCrypt.GetSignatureSigningTimeStr(i)
    ELSE
        ? STR(i + 1) + ": has no signing time."
    ENDIF

    i = i + 1
ENDDO

* Sample output:

* Num Signers = 1
* 1: Sun, 03 Dec 2013 06:57:41 GMT

RELEASE loCrypt