(DataFlex) XML EmitCompact

Demonstrates the XML EmitCompact property to generate XML that is not pretty-printed, but is instead compact with whitespace removed.

Note: This example requires Chilkat v9.5.0.64 or later.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoXml
    String sTemp1

    // Note: This example requires Chilkat v9.5.0.64 or later.
    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End

    Set ComTag Of hoXml To "aaa"
    Send ComNewChild2 To hoXml "red|green|blue" "sky"

    // Show the XML in normal indented (pretty-printed) format:
    Get ComGetXml Of hoXml To sTemp1
    Showln sTemp1

    // The output:

    // 	<?xml version="1.0" encoding="utf-8" ?>
    // 	<aaa>
    // 	    <red>
    // 	        <green>
    // 	            <blue>sky</blue>
    // 	        </green>
    // 	    </red>
    // 	</aaa>

    // Now set the EmitCompact property.
    Set ComEmitCompact Of hoXml To True

    // Show the XML in compact form:
    Get ComGetXml Of hoXml To sTemp1
    Showln sTemp1

    // The compact output:

    // 	<?xml version="1.0" encoding="utf-8" ?>
    // 	<aaa><red><green><blue>sky</blue></green></red></aaa>
    // 


End_Procedure