(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoGlob
    Boolean iSuccess
    Integer iStatus
    String sTemp1

    // 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:
    Get Create (RefClass(cComChilkatGlobal)) To hoGlob
    If (Not(IsComObjectCreated(hoGlob))) Begin
        Send CreateComObject of hoGlob
    End
    Get ComUnlockBundle Of hoGlob "Anything for 30-day trial" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoGlob To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComUnlockStatus Of hoGlob To iStatus
    If (iStatus = 2) Begin
        Showln "Unlocked using purchased unlock code."
    End
    Else Begin
        Showln "Unlocked in trial mode."
    End

    // The LastErrorText can be examined in the success case to see if it was unlocked in
    // trial more, or with a purchased unlock code.
    Get ComLastErrorText Of hoGlob To sTemp1
    Showln sTemp1


End_Procedure