(PowerBuilder) Compress XML Tree

Demonstrates how to compress and restore the entire subtree rooted at an XML node.

The input XML, available at http://www.chilkatsoft.com/data/compress2.xml, is this:

<root>
    <lazydog>
        <fox>The quick brown fox jumps over the lazy dog</fox>
    </lazydog>
    <fox>The quick brown fox jumps over the lazy dog</fox>
    <child>
        <grandchild>The quick brown fox jumps over the lazy dog</grandchild>
    </child>
    <child>
        <grandchild>The quick brown fox jumps over the lazy dog</grandchild>
    </child>
</root>

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

integer li_rc
oleobject loo_Xml
integer li_Success

loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// The sample input XML is available at http://www.chilkatsoft.com/data/compress2.xml
li_Success = loo_Xml.LoadXmlFile("compress2.xml")
if li_Success <> 1 then
    Write-Debug loo_Xml.LastErrorText
    destroy loo_Xml
    return
end if

// Zip compress the root node's entire subtree:
li_Success = loo_Xml.ZipTree()

// Examine the new XML document:
Write-Debug loo_Xml.GetXml()

// This is the XML w/ the compressed subtree in Base64 encoded format:

// <root><![CDATA[4+WyKcrPL7Hj5VIAApucxKrKlPx0KBcslJZfYReSkapQWJqZnK2QVJRfnqcAFFPIKs0tKFbIL0st
// UigBSoN0KgC12uiDNECN00c1jyKzkjMyc1KQHZZelJiXAhElyUwkfTBnovDoYZGNPjTUAQ==
// ]]></root>

// Now uncompress and show that the original subtree was restored:
li_Success = loo_Xml.UnzipTree()
Write-Debug loo_Xml.GetXml()


destroy loo_Xml