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
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers

Reply via email to