PureBasic

Transition from Cert.GetValidToDt to Cert.ValidToStr

Provides instructions for replacing deprecated GetValidToDt method calls with ValidToStr. PureBasic

IncludeFile "CkDateTime.pb"
IncludeFile "CkCert.pb"

Procedure ChilkatExample()

    cert.i = CkCert::ckCreate()
    If cert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; ------------------------------------------------------------------------
    ; The GetValidToDt method is deprecated:

    ckdt1.i = CkCert::ckGetValidToDt(cert)
    If CkCert::ckLastMethodSuccess(cert) = 0
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ; ...
    ; ...

    CkDateTime::ckDispose(ckdt1)

    ; ------------------------------------------------------------------------
    ; Do the equivalent using the ValidToStr property

    ckdt2.i = CkDateTime::ckCreate()
    If ckdt2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkDateTime::ckSetFromRfc822(ckdt2,CkCert::ckValidToStr(cert))


    CkCert::ckDispose(cert)
    CkDateTime::ckDispose(ckdt2)


    ProcedureReturn
EndProcedure