(Delphi DLL) XML Inclusive Canonicalization

Demonstrates how to convert XML to the Inclusive XML Canonicalization form as specified in http://www.w3.org/TR/xml-c14n/

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, Http, StringBuilder, XmlDSig;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
sbXml: HCkStringBuilder;
canon: HCkXmlDSig;
canonVersion: PWideChar;
withComments: Boolean;
url: PWideChar;
success: Boolean;
xmlInclCanon: PWideChar;
xmlExclCanon: PWideChar;

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

// The XML digital signature verification class provides utility methods for
// XML canonicalization.  This example demonstrates how to do inclusive XML canonicalization.

http := CkHttp_Create();
sbXml := CkStringBuilder_Create();
canon := CkXmlDSig_Create();

// Use inclusive XML canonicalization.
canonVersion := 'C14N';
withComments := False;

url := 'https://www.chilkatsoft.com/exampleData/c14n/test7.xml';
success := CkHttp_QuickGetSb(http,url,sbXml);

// This is the input XML:
// The XML comment is referring to when exclusive XML canonicalization is applied.  With inclusive canonicalization, the namespace nodes
// are kept, as we'll see below..

// <doc>
// <!-- A namespace node N is ignored if the nearest ancestor element of the node's parent element that is in the node-set has a namespace node in the node-set with the same local name and value as N. -->
// 	<animal xmlns:aa="https://www.animal.com/">
// 		<reptile xmlns:bb="https://www.reptile.com/">
//   			<lizard xmlns="" type="african fat tailed" abc="xyz" xmlns:aa="https://www.animal.com/" />
//   			<snake type="poisonous rattler" xmlns:bb="https://www.reptile.com/" >
//   			</snake>
//   		</reptile>
//   	</animal>
// </doc>

xmlInclCanon := CkXmlDSig__canonicalizeXml(canon,CkStringBuilder__getAsString(sbXml),canonVersion,withComments);
Memo1.Lines.Add(xmlInclCanon);

// The C14N (inclusive) canonicalization is:

// <doc>
// 
// 	<animal xmlns:aa="https://www.animal.com/">
// 		<reptile xmlns:bb="https://www.reptile.com/">
//   			<lizard abc="xyz" type="african fat tailed"></lizard>
//   			<snake type="poisonous rattler">
//   			</snake>
//   		</reptile>
//   	</animal>
// </doc>

// To see the difference, let's do exclusive canonicalization..
canonVersion := 'EXCL_C14N';

xmlExclCanon := CkXmlDSig__canonicalizeXml(canon,CkStringBuilder__getAsString(sbXml),canonVersion,withComments);
Memo1.Lines.Add(xmlExclCanon);

// // The C14N (exclusive) canonicalization is:
// 
// <doc>
// 
// 	<animal>
// 		<reptile>
//   			<lizard abc="xyz" type="african fat tailed"></lizard>
//   			<snake type="poisonous rattler">
//   			</snake>
//   		</reptile>
//   	</animal>
// </doc>

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbXml);
CkXmlDSig_Dispose(canon);

end;