SQL Server

Unlocks the Chilkat Ftp2 Class

Demonstrates how to unlock the Chilkat Ftp2 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.

SQL Server

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 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:
    DECLARE @glob int
    EXEC @hr = sp_OACreate 'Chilkat.Global', @glob OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OAMethod @glob, 'UnlockBundle', @success OUT, 'Anything for 30-day trial'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @glob, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @glob
        RETURN
      END

    DECLARE @status int
    EXEC sp_OAGetProperty @glob, 'UnlockStatus', @status OUT
    IF @status = 2
      BEGIN

        PRINT 'Unlocked using purchased unlock code.'
      END
    ELSE
      BEGIN

        PRINT '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.
    EXEC sp_OAGetProperty @glob, 'LastErrorText', @sTmp0 OUT
    PRINT @sTmp0

    EXEC @hr = sp_OADestroy @glob


END
GO