(DataFlex) Unlocks the Chilkat Crypt2 Class

Demonstrates how to unlock the Chilkat Crypt2 functionality. The UnlockComponent method should be called once at the beginning of the program. Once unlocked, all subsequent objects are created in the unlocked state. There is no need to call UnlockComponent for every instance of a Chilkat object.

The object that called UnlockComponent may be discarded (deleted, deallocated, etc.). It does not need to remain in existence for subsequent objects to be already unlocked when created.

Also, the LastErrorText method can be examined to verify that a purchased unlock code was indeed recognized.

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