(DataFlex) Using CDATA in XML

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>

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoXml
    Variant vChild1
    Handle hoChild1
    Variant vChild2
    Handle hoChild2
    Variant vChild3
    Handle hoChild3
    String sTemp1

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End

    Set ComTag Of hoXml To "root"

    Get ComNewChild Of hoXml "year" "2009" To vChild1
    If (IsComObject(vChild1)) Begin
        Get Create (RefClass(cComChilkatXml)) To hoChild1
        Set pvComObject Of hoChild1 To vChild1
    End

    Get ComNewChild Of hoXml "junk1" "abc .. < & > 123" To vChild2
    If (IsComObject(vChild2)) Begin
        Get Create (RefClass(cComChilkatXml)) To hoChild2
        Set pvComObject Of hoChild2 To vChild2
    End

    Get ComNewChild Of hoXml "junk2" "abc .. < & > 123" To vChild3
    If (IsComObject(vChild3)) Begin
        Get Create (RefClass(cComChilkatXml)) To hoChild3
        Set pvComObject Of hoChild3 To vChild3
    End
    Set ComCdata Of hoChild3 To True

    Send Destroy of hoChild1
    Send Destroy of hoChild2
    Send Destroy of hoChild3

    Get ComGetXml Of hoXml To sTemp1
    Showln sTemp1


End_Procedure