Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Распознавание атрибутов в XML

Автор: Valery 29.8.2007, 09:30

Привет всем. Кто может подсказать ? Допустим существует
следующий XML файл :
--------------------------------------------------------

Код


<?xml version="1.0" encoding="UTF-8"?>
<Weather ver="2.0">
<Head>
<Inf>текст</Inf>
</Head>
<cc>
<X1 Atr="0">текст</X1>
<X2 Atr1="aaa" Atr2="bbb">текст</X2>
</cc>
</Weather>

--------------------------------------------------------
Для распознавания данных XML я написал следующий код:
--------------------------------------------------------

Код


procedure ReadXML;
var 
mainNode: variant;
Atrib1,s1,s2,val1,val2,val3: string;
begin
     procedure LoadItems (Node: variant);
     var i: integer;
     begin
       if Node.nodeName <> '#text' then s1 := Node.nodeName;
       if Node.nodeName = '#text' then
          begin
          s2 := Node.nodeValue;
          if s1 = 'inf' then val1 := s2;
          if s1 = 'X1' then val2 := s2;
          if s1 = 'X2' then val3 := s2;
          end;
       for i:=0 to Node.childNodes.length-1 do LoadItems (Node.childNodes.item[i]);
     end;
XML := CreateOleObject('Microsoft.XMLDOM');
XML.load(NameFile);
mainNode := XML.documentElement;
for i:=0 to mainNode.attributes.length-1 do  //число атрибутов определяется 1
begin
if i=0 then Atrib1 := mainNode.attributes.item[0].text;   //данные атрибута Weather ver=
end;
LoadItems (mainNode);
end;

--------------------------------------------------------
У меня получается распознавание только всех первых атрибутов
Inf, X1, X2 и текст, а вложенные атрибуты Atr, Atr1, Atr2
не обнаруживаются.
Как на Delphi6 распознать и вложенные атрибуты Atr, Atr1, Atr2 ?
Не плохо было бы посмотреть пример или кто доработал бы мой код.
На примере все сразу понятно.

M
Alexeis

Модератор: используйте подсветку кода http://forum.vingrad.ru/index.php?show_typ...howtopic=126445

Автор: ALeXandrK 29.8.2007, 11:47

Цитата

mainNode.attributes.length

А ты уверен, что этот код определяет кол-во атрибутов, а не длину?
У меня дельфи вообще не выдает ни каких полей у attributes!

Проверь debuger-ом верно ли там определяется кол-во атрибутов!

И вообще получается что ты берешь кол-во атрибутов у главной ноды, а
хочешь взять их из дочерних! Алгоритм у тебя какой то странный мне кажется.

Вот посмотри как пример http://forum.vingrad.ru/forum/index.php?show_type=forum&showtopic=167101&kw=xml-%D0%B7%D0%B0%D0%B3%D1%80%D1%83%D0%B7%D0%BA%D0%B0-%D1%81%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B8%D0%B5.