Xojo Plugin

Example: Crypt2.GetSignatureSigningTimeStr method

Demonstrates how to call the GetSignatureSigningTimeStr method. Xojo Plugin

Dim success As Boolean
success = False

Dim crypt As New Chilkat.Crypt2

success = crypt.VerifyP7M("qa_data/cades/CAdES-T/Signature-C-T-1.p7m","qa_output/out.dat")
If (success = False) Then
    System.DebugLog(crypt.LastErrorText)
    Return
End If

Dim numSigners As Int32
numSigners = crypt.NumSignerCerts
System.DebugLog("Num Signers = " + Str(numSigners))

Dim i As Int32
i = 0
While i < numSigners
    If (crypt.HasSignatureSigningTime(i) = True) Then
        System.DebugLog(Str(i + 1) + ": " + crypt.GetSignatureSigningTimeStr(i))
    Else
        System.DebugLog(Str(i + 1) + ": has no signing time.")
    End If

    i = i + 1
Wend

// Sample output:

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