(Delphi ActiveX) 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 ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
sbXml: TChilkatStringBuilder;
canon: TChilkatXmlDSig;
canonVersion: WideString;
withComments: Integer;
url: WideString;
success: Integer;
xmlInclCanon: WideString;
xmlExclCanon: WideString;

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 := TChilkatHttp.Create(Self);
sbXml := TChilkatStringBuilder.Create(Self);
canon := TChilkatXmlDSig.Create(Self);

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

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

// 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 := canon.CanonicalizeXml(sbXml.GetAsString(),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 := canon.CanonicalizeXml(sbXml.GetAsString(),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>
end;