Как работать с XML?

[Никки]

Привет всем!

Мне необходимо прочитать данные из XML файла в массив записей! Я пытался разобраться с XMLDocument но у меня не получилось!! Подскажите, как это сделать!

Вот XML:

<?xml version="1.0"?>
<music>
	<muz>
	<name>No Artist - No Album</name>
		<filename>c:/Muz/NoArtist.mp3</filemane>
		<length>247</length>
	</muz>
	<muz>
		<name>No Artist - No Album</name>
		<filename>c:/Muz/NoArtist1.mp3</filemane>
		<length>203</length>
	</muz>
</music>

А вот в этом должно всё быть:

Muz=Record
	name:String;
	filename:String;
	length:Word;
end;

Music=Array of Muz;

[mutabor]

Тут все очевидно - нужен парсер, либо самописный либо стандартный. Так как это XML, ясно что есть стандартные, ты не первый кому это надо.
Если вышеуказаная структура это все что требуется, за полчаса можно самому написать, чтоб теги читал. Ключевая функция Pos, ну и еще для копирования одна две понадобятся.

[Никки]

А можно пример использованя стандартного парсера?

[Alar]

Я пишу сам парсер в обе стороны, жду, возможно кто-то в тему универсальный быстрый способ скинет

[mutabor]

Сообщение от Никки

А можно пример использованя стандартного парсера?

Чего не знаю того не знаю, могу функцию свою написать, но это будет велосипед сто процентов
Стандартный я имел ввиду в общем, все таки распространенный формат XML. Если никто не ответит ищи по ключевым словам XML Delphi или XML Дельфи

[Alar]

Кидаем на форму 4 компонента
1. TClientDataSet
2. TDataSource
3. TDBGrid
4. TDBNavigator

В результате :
1. DataSource1
2. ClientDataSet1
3. DBGrid1
4. DBNavigator1

Настраиваем их свойства так чтобы получилось примерно так:
DBNavigator1.DataSource = DataSource1
DBGrid1.DataSource = DataSource1
DataSource1.DataSet = ClientDataSet1
ClientDataSet1.FileName = 'D:I\www\customer.cds'
ClientDataSet1.Active = True (самое главное этого не забыть :-))

http://www.programmersclub.ru/ahillesbd1

это старинные технологии. в примере база cds, с xml должно также работать.

[BOBAH13]

Спасибо за разьяснение из личного опыта пишу:

// моя функция - копирайт :)
function XMLGetChild(Root: IXMLDOMNode; NodeName: String): IXMLDOMNode;
var
  Elem: IXMLDOMNode;
begin
  Elem := Root.firstChild;
  while (Elem <> NIL) do
  begin
    if (Elem.nodeName = NodeName) then
      Break;
    Elem := Elem.nextSibling;
  end;
  Result := Elem;
end;

var
  coDoc: CoDOMDocument;
  Doc: IXMLDOMDocument;
  Root: IXMLDOMElement;
  Elem: IXMLDOMNode;
begin
  Doc := coDoc.Create;
  Doc.Set_async(False);
  Doc.loadXML(Ваш xml текст);
  Root := Doc.Get_documentElement;
  Elem := XMLGetChild(Root, Имя узла тобиш вашего Muz);
  // остальные узлы по аналогии разгребаем в цикле
end;

[Квэнди]

SimDesign NativeXml v2.37 for.Delphi
http://delphi.pp.ru/index.php?showtopic=437
и подобных компонент есть еще множество ) просто этот наиболее функционален