Работа с xml реализована в кодеюните 6224 XML DOM Management (проверка существования нодов, получения их значений и атрибутов, дочерних нодов).
И да вложенность получается большая. Сам сейчас воюю с ними.
Код:
//пример проверки
IF FindNode(XMLRootNode, 'Parameters', XMLNodeFound) THEN BEGIN
XMLRootNode := XMLNodeFound;
IF FindNode(XMLRootNode, 'PeriodStartingDate', XMLNodeFound) THEN BEGIN
XMLRootNode := XMLNodeFound;
// получение значения
IF (STRLEN(XMLNodeFound.text) > 0) THEN
curr:=XMLNodeFound.text
.....
END
END;
Name DataType Subtype Length
xmlNodeFound Automation 'Microsoft XML, v6.0'.IXMLDOMNode
xmlRootNode Automation 'Microsoft XML, v6.0'.IXMLDOMNode