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. PureBasic

IncludeFile "CkGlobal.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  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. 
    ;  
    ;  <b>After licensing Chilkat, replace the "Anything for 30-day trial" with the purchased unlock code.</b>
    ;  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 = CkGlobal::ckUnlockBundle(glob,"Anything for 30-day trial")
    If success = 0
        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