Delphi ActiveX

Using CDATA in XML

See more XML Examples

Demonstrates how to force the content of a node to be encapsulated in CDATA.

The output of the following program is an XML document that looks like this:

<root>
    <year>2009</year>
    <junk1>abc .. &lt; &amp; &gt; 123</junk1>
    <junk2><![CDATA[abc .. < & > 123]]></junk2>
</root>

Delphi ActiveX

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
xml: TChilkatXml;
child1: IChilkatXml;
child2: IChilkatXml;
child3: IChilkatXml;

begin
xml := TChilkatXml.Create(Self);

xml.Tag := 'root';

child1 := xml.NewChild('year','2009');

child2 := xml.NewChild('junk1','abc .. < & > 123');

child3 := xml.NewChild('junk2','abc .. < & > 123');
child3.Cdata := 1;

Memo1.Lines.Add(xml.GetXml());
end;