Считывание значений из XML

[artemavd]

Еще вопрос . Как считать из xml файла все значения определнного поля и занести их в столбец StringGrid-a?

[Stilet]

Загляни на http://www.delphiworld.narod.ru/_all_articles_.html
в раздел XML - [15]

[artemavd]

Мне нужен простенький пример с кодом для считывания необходимой информации из xml в StringGrid в столбец)

[Stilet]

Так особо не разбирался но вот:http://xpoint.ru/forums/internet/XML/thread/40293.xhtml
http://yandex.ua/yandsearch?text=TXM...&tld=ua&lr=187

[artemavd]

А как надо объявить TXMLDocument, чтобы при компиляции не ругалась Delphi? И можно ли код из первой ссылки переделать для загрузки значения из xml файла в StringGrid?

[Stilet]

XMLDocument это компонент. У меня он на вкладке Internet.

Вот смотри:

var e,n:IXMLNode;
begin
 XMLDocument1.LoadFromFile('D:\Ok\Aqua.xml');
 n:=XMLDocument1.DocumentElement.ChildNodes[0];
 if n<>nil then repeat
  e:=n.ChildNodes[1];
  ListBox1.Items.Add(e.NodeValue);
  n:=n.NextSibling;
 until n=nil;
end;

XML типа

<?xml version="1.0" encoding="UTF-8"?>
<DownloadList Version="5"
NextID="24">
<DownloadFile>
<ID>0</ID>
<URL>http://www.mp3real.ru/mp3/aqua/aquarium/01_aqua_happy_boys_girls.mp3</URL>
<FileName>D:\Download\Aqua\1997-Aquarium\01_aqua_happy_boys_girls.m p3.exe</FileName>
<State>2</State>
<Size>7008415</Size>
<SaveDir>D:\Download\Aqua\1997-Aquarium\</SaveDir>
<DownloadedSize>7008415</DownloadedSize>
<Referer>http://www.mp3real.ru/mp3/aqua/aquarium/</Referer>
<ResumeMode>2</ResumeMode>
<Date>06/30/2009 10:19:47</Date>
<DownloadTime>190</DownloadTime>
<NodeID>23</NodeID>
<ContentType>application/octet-stream</ContentType>
<NotRead>1</NotRead>
<stodt>1</stodt>
</DownloadFile>
<DownloadFile>
<ID>1</ID>
<URL>http://www.mp3real.ru/mp3/aqua/aquarium/02_aqua_my_oh_my.mp3</URL>
<FileName>D:\Download\Aqua\1997-Aquarium\02_aqua_my_oh_my.mp3.exe</FileName>
<State>2</State>
<Size>6718753</Size>
<SaveDir>D:\Download\Aqua\1997-Aquarium\</SaveDir>
<DownloadedSize>6718753</DownloadedSize>
<Referer>http://www.mp3real.ru/mp3/aqua/aquarium/</Referer>
<ResumeMode>2</ResumeMode>
<Date>06/30/2009 10:19:48</Date>
<DownloadTime>150</DownloadTime>
<NodeID>23</NodeID>
<ContentType>application/octet-stream</ContentType>
<NotRead>1</NotRead>
<stodt>1</stodt>
</DownloadFile>
...

Получит из него все значения из URL поля

[artemavd]

Stilet, я думаю, что твой код сработает на примере твоего xml файла . Но у меня то структура файла по-сложнее. Для наглядности что мне нужно, я нарисовал схему. То есть на данный момент нужно чтобы создавалсь таблица StringGrid с такими колонками. Вот как определить какой номер у меня поле Number Contract, а какой номер у поля NumberLS?

[Stilet]

 e:=n.ChildNodes[1];
 e:=n.ChildNodes[1];

Всего-то дважды получишь ребенка

[artemavd]

А Зачем дважды один и тот же код? . Написал так:

procedure TForm1.BtnClick(Sender: TObject);
var
 e,n: IXMLNode;
begin
 XMLDocument1.LoadFromFile('B0000183.xml');
 n:=XMLDocument1.DocumentElement.ChildNodes[1];
 if n <> nil then repeat
  e:=n.ChildNodes[1];
//  e:=n.ChildNodes[1];
  ListBox1.Items.Add(e.NodeValue);
  n:=n.NextSibling;
  until n=nil;
end;

Получил ошибкой "List index out of bounds(1)" в лоб

Товарищи! Ну подскажите как мне сделать-то??). Я с xml раньше не работал.

[Stilet]

Камраде, ану-ка прикрепи-ка сюда-ка свой-ка XML-ка.
Мы его пощупать будем. Ты где-то чего-то просто не учитываешь по запарке.