PureBasic Requires Chilkat v11.0.0+

Transition from Email.GetDt to Email.EmailDateStr

Provides instructions for replacing deprecated GetDt method calls with EmailDateStr. PureBasic

IncludeFile "CkDateTime.pb"
IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

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

    ;  ...
    ;  ...

    ;  ------------------------------------------------------------------------
    ;  The GetDt method is deprecated:

    dateTimeObj.i = CkEmail::ckGetDt(email)
    If CkEmail::ckLastMethodSuccess(email) = 0
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ;  ...
    ;  ...

    CkDateTime::ckDispose(dateTimeObj)

    ;  ------------------------------------------------------------------------
    ;  Do the equivalent using EmailDateStr.

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

    CkDateTime::ckSetFromRfc822(dt,CkEmail::ckEmailDateStr(email))


    CkEmail::ckDispose(email)
    CkDateTime::ckDispose(dt)


    ProcedureReturn
EndProcedure