(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkXml.pb"

Procedure ChilkatExample()

    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i
    ; The sample input XML is available at http://www.chilkatsoft.com/data/compress2.xml
    success = CkXml::ckLoadXmlFile(xml,"compress2.xml")
    If success <> 1
        Debug CkXml::ckLastErrorText(xml)
        CkXml::ckDispose(xml)
        ProcedureReturn
    EndIf

    ; Zip compress the root node's entire subtree:
    success = CkXml::ckZipTree(xml)

    ; Examine the new XML document:
    Debug CkXml::ckGetXml(xml)

    ; 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:
    success = CkXml::ckUnzipTree(xml)
    Debug CkXml::ckGetXml(xml)


    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure