(PureBasic) Global Unlock

Demonstrates how to unlock the Chilkat API with a global (Bundle) purchased unlock code, or with a 30-day trial unlock code.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkGlobal.pb"

Procedure ChilkatExample()

    ; The Chilkat API can be unlocked for a fully-functional 30-day trial by passing any
    ; string to the UnlockBundle method.  A program can unlock once at the start. Once unlocked,
    ; all subsequently instantiated objects are created in the unlocked state. 
    ; 
    ; After licensing Chilkat, replace the "Anything for 30-day trial" with the purchased unlock code.
    ; To verify the purchased unlock code was recognized, examine the contents of the LastErrorText
    ; property after unlocking.  For example:
    glob.i = CkGlobal::ckCreate()
    If glob.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkGlobal::ckUnlockBundle(glob,"Anything for 30-day trial")
    If success <> 1
        Debug CkGlobal::ckLastErrorText(glob)
        CkGlobal::ckDispose(glob)
        ProcedureReturn
    EndIf

    status.i = CkGlobal::ckUnlockStatus(glob)
    If status = 2
        Debug "Unlocked using purchased unlock code."
    Else
        Debug "Unlocked in trial mode."
    EndIf

    ; The LastErrorText can be examined in the success case to see if it was unlocked in
    ; trial more, or with a purchased unlock code.
    Debug CkGlobal::ckLastErrorText(glob)


    CkGlobal::ckDispose(glob)


    ProcedureReturn
EndProcedure