Patrick, Please, test after Changelog v 1.6510.
regards, Eduardo --- Em dom, 19/7/09, Patrick Mast, xHarbour. <patrick.m...@xharbour.com> escreveu: > De: Patrick Mast, xHarbour. <patrick.m...@xharbour.com> > Assunto: [xHarbour-developers] XML Bug? > Para: "xHarbour Developers Mailing List" > <xharbour-developers@lists.sourceforge.net> > Data: Domingo, 19 de Julho de 2009, 21:08 > 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 > ____________________________________________________________________________________ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com ------------------------------------------------------------------------------ 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