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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoGlob
    Integer iStatus
    String sTemp1

    Move False To iSuccess

    //  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:
    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 = False) 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