Hello,
This line of code:
,----
| oXmlSubNode3 := TXmlNode():new(, "customerID", {}, "test" )
`-----------
in the sample below writes this to the XML file:
,----
| <customerID> test </customerID>
`-------------
Notice the spaces before and after 'test'.
Is this a bug in the XML class?
Thanks!
This is the full sample:
//----------------------------------------------------------------------------------------------------//
#include "hbXml.ch"
PROCEDURE TestXML()
LOCAL oXmlNode, oXmlSubNode1, oXmlSubNode2, oXmlSubNode3
LOCAL nFileHandle, xTemp, cFile, XmlHTTP
oXmlDoc := TXmlDocument():new( '<?xml version="1.0"?>' )
oXmlNode := oXmlDoc:oRoot
oXmlSubNode1 := TXmlNode():new(, "soap:Envelope", { "xmlns:xsi" =>
"http://www.w3.org/2001/XMLSchema-instance";,;
"xmlns:xsd" =>
"http://www.w3.org/2001/XMLSchema";,;
"xmlns:soap" =>
"http://schemas.xmlsoap.org/soap/envelope/"}, "" )
oXmlNode:addBelow( oXmlsubNode1 )
oXmlNode := oXmlSubNode1
oXmlSubNode1 := TXmlNode():new(, "soap:Body", {}, "" )
oXmlNode:addBelow( oXmlsubNode1 )
oXmlSubNode2 := TXmlNode():new(, "test", { "xmlns" => "test" }, "" )
oXmlSubnode1:addBelow( oXmlSubNode2 )
oXmlSubNode3 := TXmlNode():new(, "customerID", {}, "test" )
oXmlSubnode2:addBelow( oXmlSubNode3 )
nFileHandle := FCreate( "Test.xml" )
oXmlDoc:write( nFileHandle, HBXML_STYLE_INDENT )
FClose( nFileHandle )
FClose( oXmlDoc )
RETURN
//----------------------------------------------------------------------------------------------------//
Patrick
------------------------------------------------------------------------------
Enter the BlackBerry Developer Challenge
This is your chance to win up to $100,000 in prizes! For a limited time,
vendors submitting new applications to BlackBerry App World(TM) will have
the opportunity to enter the BlackBerry Developer Challenge. See full prize
details at: http://p.sf.net/sfu/Challenge
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
