PureBasic

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