Xml - Clarion - Comandos

XMLStringToDOM procedure(string xml), *Document
DOMToXMLString procedure(*Document doc, unsigned Format = Format:AS_IS), string
XMLFileToDOM procedure(string path), *Document
DOMToXMLFile procedure(*Document doc, string path),byte
QueueToDOM procedure(*queue que, ,DOMStyle style=DOMStyle:ADO_26,
byte removePrefix = true,), *Document
DOMToQueue procedure(*Document doc, *queue q, , DOMStyle
style=DOMStyle:ADO_26, ),byte
FileToDOM procedure(*file fl, , DOMStyle style=DOMStyle:ADO_26,
byte removePrefix = true,), *Document
DOMToFile procedure(*Document doc, *file fl, ,
DOMStyle style=DOMStyle:ADO_26, ),byte
GroupToDOM procedure(*group gr, , DOMStyle style=DOMStyle:ADO_26,
byte removePrefix = true, ), *Document
DOMToGroup procedure(*Document doc, *group gr, ,
DOMStyle style=DOMStyle:ADO_26, ),byte
ViewToDOM procedure(*view vw, , DOMStyle style=DOMStyle:ADO_26,
byte removePrefix = true, unsigned maxRowCount = 0, ),
*Document
ToXMLFile procedure(*file fl, string path, ,
DOMStyle style=DOMStyle:ADO_26),byte
ToXMLFile procedure(*queue que, string path, ,
DOMStyle style=DOMStyle:ADO_26),byte
ToXMLFile procedure(*view vw, string path, ,
DOMStyle style=DOMStyle:ADO_26),byte
ToXMLFile procedure(*group gr, string path,,
DOMStyle style=DOMStyle:ADO_26),byte
FromXMLFile procedure(*file fl, string path, ,
DOMStyle style=DOMStyle:ADO_26),byte
FromXMLFile procedure(*queue que, string path, ,

Xml - Clarion

Clarion code:
CC byte
Customer QUEUE !queue to storing imported data
LastName STRING(30)
Phone STRING(30)
END
NameMap QUEUE(MapQueue) !queue with name mapping information
END
code
!Import data from file Customer.xml to Customer QUEUE.
!Destination QUEUE contains only LastName, Phone fields so data only for these
!fields is imported
cc = FromXMLFile(Customer,’Customer.xml’)
if (CC)
!Export data from Customer QUEUE to a file with name mapping
! Loading name mapping information from NAMEMAP.XML
CC=FromXMLFile(NameMap,’NameMap.xml’)
IF(CC)
CC = ToXMLFile(Customer,’CustomerData.xml’,NameMap)
IF(NOT CC)
STOP(‘Exporting error’)
END
ELSE
STOP(‘NameMap.xml importing error’)
END
ELSE
STOP(‘Customer.xml importing error’)
END
The result file

Recuperar Xml

-html>
-head>
-script type="java/script">
function pegaxml(){
var objhttp=newactioneobject("microsoft........")
objhttp.open("get","http://....")
objhttp.send()
docum..... .. responsetext;
}
-/script>
-/head>
-body onload="pegaxml()">
-/body>
-/html>

Prefixo xml

         Prefixo, pode ter no xml para diferenciar varias tabelas



NamesSpaces