PureBasic

Transition from Cert.GetValidFromDt to Cert.ValidFromStr

Provides instructions for replacing deprecated GetValidFromDt method calls with ValidFromStr. 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 GetValidFromDt method is deprecated:

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

    ; ...
    ; ...

    CkDateTime::ckDispose(ckdt1)

    ; ------------------------------------------------------------------------
    ; Do the equivalent using the ValidFromStr property

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

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


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


    ProcedureReturn
EndProcedure