(Delphi DLL) Compress EBICS SignaturePubKeyOrderData XML

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

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Compression, FileAccess;

...

procedure TForm1.Button1Click(Sender: TObject);
var
fac: HCkFileAccess;
strXml: PWideChar;
compress: HCkCompression;
b64CompressedStr: PWideChar;

begin
// 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>  

fac := CkFileAccess_Create();
strXml := CkFileAccess__readEntireTextFile(fac,'qa_data/ebics/SignaturePubKeyOrderData.xml','utf-8');
// Assuming the above statement succeeded...

compress := CkCompression_Create();

// EBICS wants the deflate algorithm with the zlib header...
CkCompression_putAlgorithm(compress,'zlib');
CkCompression_putEncodingMode(compress,'base64');

b64CompressedStr := CkCompression__compressStringENC(compress,strXml);

Memo1.Lines.Add(b64CompressedStr);

CkFileAccess_Dispose(fac);
CkCompression_Dispose(compress);

end;