(SQL Server) UU Encoding and Decoding

Demonstrates how to UU encode and decode.

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)
    -- This example assumes the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @crypt int
    -- Use "Chilkat_9_5_0.Crypt2" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Crypt2', @crypt OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @s1 nvarchar(4000)

    DECLARE @s2 nvarchar(4000)

    DECLARE @s3 nvarchar(4000)

    SELECT @s1 = 'This string is to be UU encoded'

    EXEC sp_OASetProperty @crypt, 'UuMode', '666'
    EXEC sp_OASetProperty @crypt, 'UuFilename', 'something.txt'

    -- UU encode:
    EXEC sp_OAMethod @crypt, 'EncodeString', @s2 OUT, @s1, 'ansi', 'uu'

    -- Note: Call crypt.Encode instead of crypt.EncodeString
    -- to UU encode binary bytes (i.e. non-text binary data).


    PRINT @s2

    -- UU decode:
    DECLARE @crypt2 int
    -- Use "Chilkat_9_5_0.Crypt2" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Crypt2', @crypt2 OUT

    EXEC sp_OAMethod @crypt2, 'DecodeString', @s3 OUT, @s2, 'ansi', 'uu'

    -- Note: Likewise, call crypt.Decode to decode non-text binary data.


    PRINT @s3

    -- Show the file permissions mode and filename found
    -- in the UU encoded data:

    EXEC sp_OAGetProperty @crypt2, 'UuMode', @sTmp0 OUT
    PRINT 'UuMode = ' + @sTmp0

    EXEC sp_OAGetProperty @crypt2, 'UuFilename', @sTmp0 OUT
    PRINT 'UuFilename = ' + @sTmp0

    EXEC @hr = sp_OADestroy @crypt
    EXEC @hr = sp_OADestroy @crypt2


END
GO