Парсинг XML

[Predatore]

Доброго времени суток!
Помогите пожалуйста разобраться с парсингом xml документа. Я нашёл по этой теме такую ссылку http://naviart.ru/read-xml-from-nav но что-то не получается у меня сделать как там описано. Возможно из-за непонимания неких основ XML. Как мне кажется getAttributeNode это чтение именно атрибута тега, если так, то в моё xml документе не используются атрибуты.
По сути, я сделал более менее работающее решение, но мне кажется, что это можно сделать правильней, а соответственно и лучше. Ну а если лучше не получится, может кому пригодиться
И так, на входе у меня xml с вложенной структурой, в тегах не используются параметры. Выглядит этот xml примерно так:

<?xml version="1.0" standalone="no" ?> 
<Exports>
   <Parameters>
      <PeriodStartingDate>11.10.2011</PeriodStartingDate> 
      <PeriodEndingDate>11.10.2011</PeriodEndingDate> 
   </Parameters>

   <Contragents>
      <Contragent>
         <ContragentNo>123456789</ContragentNo>
         <ContragentType>0</ContragentType> 
      </Contragent>
      <Contragent>
         <ContragentNo>987654321</ContragentNo>
         <ContragentType>1</ContragentType> 
      </Contragent>
   </Contragents>
</Exports>

Для примера достаточно.
Распарсиваю я его следующим образом:

XMLNodeList1 := XMLDOMDoc.childNodes();
XMLDOMElement1 := XMLNodeList1.item(1);
IF XMLDOMElement1.nodeName = 'Exports' THEN BEGIN
   XMLNodeList2 := XMLDOMElement1.getElementsByTagName('Parameters');
      XMLDOMElement2 := XMLNodeList2.item (0);
         XMLNodeList3 := XMLDOMElement2.getElementsByTagName('PeriodStartingDate');
            XMLDOMElement3 := XMLNodeList3.item (0);
               MESSAGE (XMLDOMElement3.text);

         XMLNodeList3 := XMLDOMElement2.getElementsByTagName('PeriodEndingDate');
            XMLDOMElement3 := XMLNodeList3.item (0);
               MESSAGE (XMLDOMElement3.text);

   XMLNodeList2 := XMLDOMElement1.getElementsByTagName('Contragents');
      XMLDOMElement2 := XMLNodeList2.item (0);
         XMLNodeList3 := XMLDOMElement2.getElementsByTagName('Contragent');
            FOR i := 0 TO XMLNodeList3.length-1 DO BEGIN
               XMLDOMElement3 := XMLNodeList3.item (i);
                  XMLNodeList4 := XMLDOMElement3.getElementsByTagName('ContragentNo');
                     XMLDOMElement4 := XMLNodeList4.item (0);
                     MESSAGE (XMLDOMElement4.text);

                  XMLNodeList4 := XMLDOMElement3.getElementsByTagName('ContragentType');
                     XMLDOMElement4 := XMLNodeList4.item (0);
                     MESSAGE (XMLDOMElement4.text);
            END;
END;

Вот. Как то очень громоздко, а потому немного запутанно. И это ещё тут нет проверок на существование тегов. Добавим их и получится вообще монстр! Может всё-таки существует более элегантный подход?

[InTacto]

Работа с 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

[rmv]

Цитата:

Сообщение от Predatore

Вот. Как то очень громоздко, а потому немного запутанно. И это ещё тут нет проверок на существование тегов. Добавим их и получится вообще монстр! Может всё-таки существует более элегантный подход?

Это ничего - все начинали с hello world .
Поставьте задачу залить в XML и из XML половину таблицу Навижна в структурированном виде (заказы продажи и покупки к примеру со всеми связанными справочниками) и откройте для себя мэппинг, генерацию и предвалидацию XSD схемами и множество других интересных вещей.

[Predatore]

Цитата:

Сообщение от InTacto

Работа с xml реализована в кодеюните 6224 XML DOM Management (проверка существования нодов, получения их значений и атрибутов, дочерних нодов).
И да вложенность получается большая. Сам сейчас воюю с ними.

Спасибо! Так гораздо лучше!