(SQL Server) Decimal Integer List Encoding

The "decList" encoding was added in Chilkat v9.5.0.66 to encode and decode binary bytes from comma-separated decimal integers.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

-- 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)
    -- Note: This example requires Chilkat v9.5.0.66 or greater.

    DECLARE @byteVals nvarchar(4000)
    SELECT @byteVals = '84,104,101,32,116,114,117,101,32,115,105,103,110,32,111,102,32,105,110,116,101,108,108,105,103,101,110,99,101,32,105,115,32,110,111,116,32,107,110,111,119,108,101,100,103,101,32,98,117,116,32,105,109,97,103,105,110,97,116,105,111,110,46'

    -- Demonstrate encoding/decoding comma-separated decimal integrs to/from binary.
    DECLARE @binData int
    -- Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.BinData', @binData OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int
    EXEC sp_OAMethod @binData, 'AppendEncoded', @success OUT, @byteVals, 'decList'

    -- Examine the data in hex

    EXEC sp_OAMethod @binData, 'GetEncoded', @sTmp0 OUT, 'hex'
    PRINT 'HEX: ' + @sTmp0

    -- Decode to a StringBuilder
    DECLARE @sb int
    -- Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sb OUT

    EXEC sp_OAMethod @sb, 'AppendBd', @success OUT, @binData, 'us-ascii', 0, 0

    -- The bytes were actually the us-ascii char values for the string
    -- "The true sign of intelligence is not knowledge but imagination."
    EXEC sp_OAMethod @sb, 'GetAsString', @sTmp0 OUT
    PRINT @sTmp0

    -- Now get the bytes in decimal list format again:
    EXEC sp_OAMethod @binData, 'GetEncoded', @sTmp0 OUT, 'decList'
    PRINT @sTmp0

    -- The output of this example is:
    -- HEX: 5468652074727565207369676E206F6620696E74656C6C6967656E6365206973206E6F74206B6E6F776C656467652062757420696D6167696E6174696F6E2E
    -- The true sign of intelligence is not knowledge but imagination.
    -- 84,104,101,32,116,114,117,101,32,115,105,103,110,32,111,102,32,105,110,116,101,108,108,105,103,101,110,99,101,32,105,115,32,110,111,116,32,107,110,111,119,108,101,100,103,101,32,98,117,116,32,105,109,97,103,105,110,97,116,105,111,110,46

    EXEC @hr = sp_OADestroy @binData
    EXEC @hr = sp_OADestroy @sb


END
GO