(Delphi DLL) Create EBICS SignaturePubKeyOrderData XML

See more EBICS Examples

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, PublicKey, Xml, Cert;

...

procedure TForm1.Button1Click(Sender: TObject);
var
cert: HCkCert;
success: Boolean;
xml: HCkXml;
pubkey: HCkPublicKey;
xmlPubKey: HCkXml;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// The goal of this example is to create the XML shown below from the certificate to be used for signing.

// <?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/S002">
//   <SignaturePubKeyInfo>
//     <ds:X509Data>
//       <X509IssuerSerial>
//         <ds:X509IssuerName>C=FR, O=Example, OU=1234, CN=Example eID User, OrganizationID=SI:FR-1234</ds:X509IssuerName>
//         <ds:X509SerialNumber>73FFFFB881F1629982F787DF161EFFFF</ds:X509SerialNumber>
//       </X509IssuerSerial>
//       <ds:X509Certificate>
//         MIIJT...kE=
//       </ds:X509Certificate>
//     </ds:X509Data>
//     <PubKeyValue>
//       <ds:RSAPublicKey>
//        <ds:Modulus>wedQ...22Kw==</ds:Modulus>
//         <ds:Exponent>AQAB</ds:Exponent>
//       </ds:RSAPublicKey>
//     </PubKeyValue>
//     <SignatureVersion>A005</SignatureVersion>
//   </SignaturePubKeyInfo>
//   <PartnerID/>
//   <UserID/>
// </SignaturePubKeyOrderData>

cert := CkCert_Create();
success := CkCert_LoadPfxFile(cert,'qa_data/pfx/cert_test123.pfx','test123');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

xml := CkXml_Create();
CkXml_putTag(xml,'SignaturePubKeyOrderData');
CkXml_AddAttribute(xml,'xmlns','http://www.ebics.org/S001');
CkXml_AddAttribute(xml,'xmlns:ds','http://www.w3.org/2000/09/xmldsig#');
CkXml_AddAttribute(xml,'xmlns:xsi','http://www.w3.org/2001/XMLSchema-instance');
CkXml_AddAttribute(xml,'xsi:schemaLocation','http://www.ebics.org/S002');
CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|ds:X509Data|X509IssuerSerial|ds:X509IssuerName',CkCert__issuerDN(cert));
CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|ds:X509Data|X509IssuerSerial|ds:X509SerialNumber',CkCert__serialNumber(cert));
CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|ds:X509Data|ds:X509Certificate',CkCert__getEncoded(cert));

pubkey := CkCert_ExportPublicKey(cert);
xmlPubKey := CkXml_Create();
CkXml_LoadXml(xmlPubKey,CkPublicKey__getXml(pubkey));
CkPublicKey_Dispose(pubkey);

// The public key XML will look like this:
// 
// <RSAPublicKey>
//   <Modulus>...</Modulus>
//   <Exponent>...</Exponent>
// </RSAPublicKey>

CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|PubKeyValue|ds:RSAPublicKey|ds:Modulus',CkXml__getChildContent(xmlPubKey,'Modulus'));
CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|PubKeyValue|ds:RSAPublicKey|ds:Exponent',CkXml__getChildContent(xmlPubKey,'Exponent'));
CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|SignatureVersion','A005');
CkXml_UpdateChildContent(xml,'PartnerID','');
CkXml_UpdateChildContent(xml,'UserID','');

Memo1.Lines.Add(CkXml__getXml(xml));

CkCert_Dispose(cert);
CkXml_Dispose(xml);
CkXml_Dispose(xmlPubKey);

end;