(SQL Server) Compress EBICS SignaturePubKeyOrderData XML

This example provides a note about how to compress the SignaturePubKeyOrderData XML for EBICS.

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

    -- We have this XML to be compressed and then encoded in Base64.

    -- <?xml version="1.0" encoding="UTF-8"?>
    -- <SignaturePubKeyOrderData xmlns="http://www.ebics.org/S001" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.ebics.org/S001 http://www.ebics.org/S001/ebics_signature.xsd">
    -- <SignaturePubKeyInfo>
    -- <ds:X509Data>
    -- <ds:X509IssuerSerial>
    -- <ds:X509IssuerName>ABCDEF eID User</ds:X509IssuerName>
    -- <ds:X509SerialNumber>153594950300874710199347185895388116050</ds:X509SerialNumber>
    -- </ds:X509IssuerSerial>
    -- <ds:X509Certificate>MIIJTzCC...xzKyukE=</ds:X509Certificate>
    -- </ds:X509Data>
    -- <PubKeyValue>
    -- <ds:RSAKeyValue><ds:Modulus>zedQEG0gNItQRG17p7CwiSv/N9YUBOzswEnfNSiNirQgb0bfWWAvCXOg7057WTCBMxOe7AHE7rLTTQFRHY2AEqSV1fj8iL7i186XnGQOFjsdVP3LBLV319HhoUIugaZOC5AbnDouq2Femr53NDK4fqYVI6skrvNo9LO4+8IBRNtR8lQudG+ABHCqIkrNjai1pXrjfEhvyAhz0URhqP00i3AUGD3BasM28uFhcNztqSfO/jp5xQOTAjSr2gCgwg9hJV5mVnOazwAEbWmKkW+NZGICrSdoyrJ+UKjbbhL6VI1woe2YufCYqYF0ec8bXdE9KlhHj+XjeaME3k/uBq22Kw==</ds:Modulus><ds:Exponent>AQAB</ds:Exponent></ds:RSAKeyValue>
    -- <TimeStamp>2015-03-06T18:42:24.376+01:00</TimeStamp>
    -- </PubKeyValue>
    -- <SignatureVersion>A005</SignatureVersion>
    -- </SignaturePubKeyInfo>
    -- <PartnerID>XKB99999</PartnerID>
    -- <UserID>XKB99999</UserID>
    -- </SignaturePubKeyOrderData>  

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

    DECLARE @strXml nvarchar(4000)
    EXEC sp_OAMethod @fac, 'ReadEntireTextFile', @strXml OUT, 'qa_data/ebics/SignaturePubKeyOrderData.xml', 'utf-8'
    -- Assuming the above statement succeeded...

    DECLARE @compress int
    -- Use "Chilkat_9_5_0.Compression" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Compression', @compress OUT

    -- EBICS wants the deflate algorithm with the zlib header...
    EXEC sp_OASetProperty @compress, 'Algorithm', 'zlib'
    EXEC sp_OASetProperty @compress, 'EncodingMode', 'base64'

    DECLARE @b64CompressedStr nvarchar(4000)
    EXEC sp_OAMethod @compress, 'CompressStringENC', @b64CompressedStr OUT, @strXml


    PRINT @b64CompressedStr

    EXEC @hr = sp_OADestroy @fac
    EXEC @hr = sp_OADestroy @compress


END
GO