user function tstXmlErr()
Local cXML := ""
Local oXML
oXML := TXMLManager():New()
cXML += '<book isNew="true">' + CRLF
cXML += ' <title>A Clash of Kings</title>' + CRLF
cXML += ' <author>George R. R. Martin</author>' + CRLF
cXML += ' <price>9.99</price>' + CRLF
cXML += ' <origin>US</origin>' + CRLF
cXML += '</look>' + CRLF
// Vai exibir "Error: Opening and ending tag mismatch: book line 1 and look"
//"[xmlParseMemory]Failed Parse XML."
if !oXML:Parse( cXML )
conout( "Error: " + oXML:Error() )
else
conout( "No errors on Parse!" )
endif
return
|