» Работа с XML в Delphi

Сенькс за советы.
Буду пробовать.

Есть XML файл с такой структурой, нужно его трансформировать в 2 Data Packet-a.(Header.db, Records.db)

Код:
<Document-Order>
<Order-Header>
<OrderNumber>TEST01</OrderNumber>
<OrderDate>2003-08-20</OrderDate>
</Order-Header>

<Order-Lines>
<Line>
<Line-Item>
<LineNumber>1</LineNumber>
<EAN>1111111111111</EAN>
<BuyerItemCode>123456</BuyerItemCode>
<OrderedQuantity>23.000</OrderedQuantity>
<UnitOfMeasure>KG</UnitOfMeasure>
<TaxRate>20.00</TaxRate>
</Line-Item>
</Line>
<Line>
<Line-Item>
<LineNumber>2</LineNumber>
<EAN>112222222111111</EAN>
<BuyerItemCode>1000456</BuyerItemCode>
<OrderedQuantity>77.000</OrderedQuantity>
<UnitOfMeasure>KG</UnitOfMeasure>
<TaxRate>20.00</TaxRate>
</Line-Item>
</Line>
</Order-Lines>

Подскажите, как мне прочитать значение тегов status, text, ids, mess

D2007



Код:
<?xml version="1.0" encoding="utf-8"?>
<response>
<status>OK</status>
<text>Сообщения отправлены</text>
<ids>
<mess tel="380502084020">p000ccf5f4</mess>
</ids>
</response>

X11
Попробуй так.
aNode := XMLDocument1.DocumentElement.ChildNodes.FindNode('status');
if (Assigned(aNode)) then
ShowMessage(VarToStr(aNode.NodeValue));

а как объявить aNode? Какого типа?


Добавлено:
зачем делать find, если по коду видно, что такой тег присутствует?

Добавлено:
Сделал по твоему примеру, всё равно Invalid Pointer Operation.

Добавлено:
та же самая ошибка на ShowMessage:


Код: XMLDocument1.LoadFromStream(XMLResponse, xetUTF_8);
XMLDocument1.Active := true;

ShowMessage(IntToStr(XMLDocument1.DocumentElement.ChildNodes.Count));

X11
Вот работающий пример

Код:
uses XMLDoc, XMLIntf;

procedure TForm1.Button1Click(Sender: TObject);
var
aXMLDoc: IXMLDocument;
begin
aXMLDoc := LoadXMLData('<?xml version="1.0" encoding="utf-8"?><response><status>OK</status><text>111111</text><ids><mess tel="380502084020">p000ccf5f4</mess></ids></response>');
ShowMessage(IntToStr(aXMLDoc.DocumentElement.ChildNodes.Count));
end;

Код: var
XMLDocument: TXMLDocument;
Node: IXMLNode;
begin
XMLDocument.Active := True;
XMLDocument.SetNodeIndentStr(#9);
XMLDocument.Options := XMLDocument.Options + [doNodeAutoIndent];
XMLDocument.DocumentElement := XMLDocument.CreateNode('Root', ntElement, '');
XMLDocument.DocumentElement.AddChild('Node');
Node.AddChild('Child');
end;

Всё. Нашёл: FormatXMLData.

Народ, а как вам XMLParser c http://www.destructor.de/xmlparser/download.htm ?

Добавлено:
Это все для разбора XML. А есть-ли готовые продукты для выгрузки данных из таблицы в XML формат? В сети ни одного примера выгрузки грида в XML не нашел Тот же EHLib умеет строить древовидную структуру, а вот выгрузить в XML - проблема

Tabu13
Дело в том, что сам по-себе вгруженный xml ни кому не нужен. Нужно что бы xml соответствовал некоторой схеме которую кто-то разработал (насколько корректно зависит от этого кого-то), а там уж в одном xmlе может быть несколько таблиц и ещё и справочники к ним до кучи.

http://www.sqlmanager.net/products/tools/advancedexport
http://www.scalabium.com/sme/