Re-Encode (How to convert encodings)

Demonstrates how to convert a string from one encoding to another.

Download Chilkat Crypt ActiveX

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)

    DECLARE @crypt int
    EXEC @hr = sp_OACreate 'Chilkat.Crypt2', @crypt OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    --  Any string argument automatically begins the 30-day trial.
    DECLARE @success int

    EXEC sp_OAMethod @crypt, 'UnlockComponent', @success OUT, '30-day trial'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @crypt, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END

    DECLARE @s1 nvarchar(4000)

    DECLARE @s2 nvarchar(4000)

    SELECT @s1 = 'This is a test / = abc 123'

    --  The ReEncode method converts a string from one encoding
    --  to another.
    --  Valid encodings are "url", "base64", "qp", "hex", and "ansi"
    --  Use "ansi" for an unencoded ANSI string.

    --  Encode to URL-encoding:
    EXEC sp_OAMethod @crypt, 'ReEncode', @s2 OUT, @s1, 'ansi', 'url'

    PRINT @s2

    --  Convert from URL-encoding to base64:
    DECLARE @b64 nvarchar(4000)

    EXEC sp_OAMethod @crypt, 'ReEncode', @b64 OUT, @s2, 'url', 'base64'

    PRINT @b64

    --  Convert from base64 to hex:
    DECLARE @hex nvarchar(4000)

    EXEC sp_OAMethod @crypt, 'ReEncode', @hex OUT, @b64, 'base64', 'hex'

    PRINT @hex


END
GO