Xbase++

Global Unlock

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

LOCAL nSuccess
LOCAL oGlob
LOCAL nStatus

nSuccess := 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:
oGlob := CreateObject("Chilkat.Global")
nSuccess := oGlob:UnlockBundle("Anything for 30-day trial")
IF (nSuccess == 0)
    ? oGlob:LastErrorText
    oGlob:destroy()
    RETURN
ENDIF

nStatus := oGlob:UnlockStatus
IF (nStatus == 2)
    ? "Unlocked using purchased unlock code."
ELSE
    ? "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.
? oGlob:LastErrorText

oGlob:destroy()