(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loGlob
LOCAL lnSuccess
LOCAL lnStatus

* 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:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Global')
loGlob = CreateObject('Chilkat.Global')
lnSuccess = loGlob.UnlockBundle("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loGlob.LastErrorText
    RELEASE loGlob
    CANCEL
ENDIF

lnStatus = loGlob.UnlockStatus
IF (lnStatus = 2) THEN
    ? "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.
? loGlob.LastErrorText

RELEASE loGlob