(PureBasic) Handling Namespaces in XML Tags

See more XML Examples

Demonstrates new features added in Chilkat v9.5.0.77 for helping with namespace prefixed tags.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkXml.pb"

Procedure ChilkatExample()

    ; First create some XML using namespace prefixed tags.

    ; Create this XML. 
    ; Use this online tool to generate the code from sample XML: 
    ; Generate Code to Create XML

    ; <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
    ;    xmlns:scm="http://www.springcm.com/atlas/webservices/v201308/scm/">
    ;    <soapenv:Header/>
    ;    <soapenv:Body>
    ;       <scm:AccountGetCurrent>
    ;          <scm:token>123</scm:token>
    ;       </scm:AccountGetCurrent>
    ;    </soapenv:Body>
    ; </soapenv:Envelope>

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

    CkXml::setCkTag(xml, "soapenv:Envelope")
    CkXml::ckAddAttribute(xml,"xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
    CkXml::ckAddAttribute(xml,"xmlns:scm","http://www.springcm.com/atlas/webservices/v201308/scm/")
    CkXml::ckUpdateChildContent(xml,"soapenv:Header","")
    CkXml::ckUpdateChildContent(xml,"soapenv:Body|scm:AccountGetCurrent|scm:token","123")

    ; Go to the "Body" tag, regardless of namespace prefix.
    xmlBody.i = CkXml::ckFindChild(xml,"*:Body")
    If CkXml::ckLastMethodSuccess(xml) <> 1
        Debug "Body child not found."
        CkXml::ckDispose(xml)
        ProcedureReturn
    EndIf

    ; Get the full tag w/ namespace prefix:
    ; Output is "soapenv:Body"
    Debug CkXml::ckTag(xmlBody)

    ; Get the namespace prefix:
    ; Output is "soapenv"
    Debug CkXml::ckTagNsPrefix(xmlBody)

    ; Get the unprefixed tag:
    ; Output is "Body"
    Debug CkXml::ckTagUnprefixed(xmlBody)

    ; Check to see if the unprefixed tag equals "Body"
    isBodyTag.i = CkXml::ckTagUnpEquals(xmlBody,"Body")
    Debug "isBodyTag = " + Str(isBodyTag)

    ; Check to see if the namespace prefix equals "soapenv";
    isSoapenv.i = CkXml::ckTagNsEquals(xmlBody,"soapenv")
    Debug "isSoapenv = " + Str(isSoapenv)

    ; Change just the namespace prefix of the tag
    CkXml::setCkTagNsPrefix(xmlBody, "se")
    ; The tag has changed from "soapenv:Body" to "se:Body"
    Debug CkXml::ckTag(xmlBody)

    ; Change the unprefixed part of the tag.
    CkXml::setCkTagUnprefixed(xmlBody, "Bodie")
    ; The tag has changed from "se:Body" to "se:Bodie"
    Debug CkXml::ckTag(xmlBody)

    CkXml::ckDispose(xmlBody)



    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure