Xbase++

Demonstrates the ChilkatPath XML Method

Demonstrates how to use the ChilkatPath method. This example uses the XML sample file pigs.xml. The pigs.xml file contains this content:
Xbase++

LOCAL nSuccess
LOCAL oXml
LOCAL cResult

nSuccess := 0

oXml := CreateObject("Chilkat.Xml")

nSuccess := oXml:LoadXmlFile("qa_data/xml/pigs.xml")
IF (nSuccess != 1)
    ? oXml:LastErrorText
    oXml:destroy()
    RETURN
ENDIF

//  Get the content of the "species" node for the 1st animal:

cResult := oXml:ChilkatPath("animal|species|*")
//  Output should be "pot belly pig"
? cResult

//  Get the content of the "type" node for the 2nd animal:
//  Indexing begins at 0.  Therefore, the 2nd direct child having
//  the tag "animal" is at index 1
cResult := oXml:ChilkatPath("animal[1]|type|*")
//  Output should be "House Pig"
? cResult

//  Find the pig having the name "Nigel" and display the
//  birth date.  To do this, we'll navigate to the node having
//  tag="name" with the exact content "Nigel", then navigate up, 
//  and finally navigate back down to the "birth" node:
cResult := oXml:ChilkatPath("/C/name,Nigel|..|birth|*")
//  Output should be "June, 1991"
? cResult

//  Navigate to the 1st animal's picture and print the filename,
//  description, and caption.
//  The "$" updates the caller's internal pointer to reference
//  the node that is the result of evaluating the path.
//  An empty string is returned for success, and a NULL/nil/0
//  pointer (reference) is returned on failure.  
cResult := oXml:ChilkatPath("animal|picture|$")
IF (oXml:LastMethodSuccess != 1)
    ? "Failed to navigate to animal|picture."
    oXml:destroy()
    RETURN
ENDIF

//  Display the contents of the file/description/caption child nodes
? "Picture Info:"
? oXml:GetChildContent("file")
? oXml:GetChildContent("description")
? oXml:GetChildContent("caption")

//  Return back to the root of the XML document:
oXml:GetRoot2()

//  Display the value of the "spay-neuter" attribute of the 1st animal:
? "----"
cResult := oXml:ChilkatPath("animal|gender|(spay-neuter)")
? cResult

oXml:destroy()