Здравствуйте!
Уже раз 20 пробовала прочитать xml-документ в делфи - не получается. Не могу понять, в чем проблема. Создать xml-документ получилось, но прочитать из него не получается. Помогите, пожалуйста!

Вот код сохранения:
var
  Xml: IXMLDocument;
begin
    Xml := TXMLDocument.Create (nil);
    Xml.Active := true;
    with Xml do
      begin
        with AddChild('Config') do
          begin
            with AddChild('User') do
              begin
                 ChildValues['Id'] := 1;
                 ChildValues['Name'] := 'ddd';
                 ChildValues['Status'] := 'Developer';
              end;
          end;
      end;
     Xml.SaveToFile(ExtractFilePath(Application.ExeName) + 'In.xml');
     Xml.Active := false;

Вот код чтения:

var
  Xml: IXMLDocument;
begin
  try
    XML := TXMLDocument.Create(nil);
    Xml.LoadFromFile(ExtractFilePath(Application.ExeName) + 'In.xml');
    Xml.Active := true;

    edit1.Text := VarToStr(Xml.DocumentElement.ChildNodes[0].ChildNodes['User'].ChildNodes['Id'].text);

Сохраняет вот так: <Config><User><Id>1</Id><Name>ddd</Name><Status>Developer</Status></User></Config>

(1) можно я ни черта в дельфийском коде не понял и не увидео объявление xml? положено бывать

var
  Xml: IXMLDocument;  - объявление документа xml
uses
  ... ComCtrls, XMLDoc, XMLIntf, xmldom;

Страдай.

Я это один раз победил через кровь и пот, когда встречусь второй раз - изучу xml data provider

(3) вар - это объявление переменной. в 1Ске говорят ЗаписатьОбъявлениеXML. от этого получается что-то в духе <?xml version="1.0" encoding="UTF-8"?> и всё такое. короче, выдаётся валидный документ. читай про валидность

(6) Дельфи похер на объявление

(7) ээ.. а как они с этим живут?

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

Считают если заголовка нет - то он дефолтнный

http://www.sql.ru/forum/61954/xml-parsing

(10) щас ветку найду. у товарища сервер не принимал с заголовокм

+(12) ну и как бы это..хмл без заголовка - текстовый документ с кучей тэгов

(12) вот она: Запись XML

Всем Спасибо! Все получилось!
Я, кажется, указывала лишний корень при обращении к элементу при чтении!

ВОт запись:

var
  Node: IXMLNode;
  Xml: IXMLDocument;
begin
  try
    Xml :=  NewXMLDocument();
    //Xml.Version := '1.0';
    Xml.Encoding := 'utf-8';
    Xml.Active := true;
    // ???????

    Node := Xml.AddChild('Main');
    Node.Attributes ['arr1'] := '111';
    Node.Attributes ['arr2'] := '222';
    Node.Attributes ['arr3'] := '333';

    Xml.SaveToFile('C:/input.xml');//ExtractFilePath(Application.ExeName) + 'In.xml');
    Xml.Active := false;


Вот чтение:

var
  Xml: IXMLDocument;
begin
  //?????? xml
  try
    XML := NewXMLDocument();
    Xml.Active := true;
    Xml.LoadFromFile('C:/input.xml');//ExtractFilePath(Application.ExeName) + 'In.xml');
    edit1.Text := VarToStr(Xml.DocumentElement.Attributes['arr1']); {??? ?? ??????? ??????}
    Xml.Active := false;

(15) >edit1.Text := VarToStr(Xml.DocumentElement.Attributes['arr1']); {??? ?? ??????? ??????}
что за едит1? ну помогло и помогло. на здоровье

(16) Это текстовое поле просто временное для того, чтобы посмотреть, что прочиталось.

>Xml.DocumentElement.Attributes['arr1']
как-то не вижу "лишний корень при обращении к элементу при чтении". спишем на близорукость. чего было-то?

(18) Я делала так, лишнее ChildNodes все время добавляла, думала, что нужно Xml.DocumentElement.ChildNodes['main'].Attributes['d1'])

ExtractFilePath(Application.ExeName) + "\" + 'In.xml'

(20)+ Точнее лучше сделать проверку на последний символ ExtractFilePath(Application.ExeName) и если <>"\" тогда добавляем

(21) ExtractFilePath(Application.ExeName) в делфи всегда прибавляет этот символ "\"

(22) Я тоже когда то так думал ))

(23)+ Но это мелочи что легко перепутать с ExtractFileDir, есть другая проблема иногда багов работы разных "дельфи" под разными ОСями.

(5) да ладно, где там особый кровь и пот... вроде нормально и читал и писал. Головная боль там начинается, когда хочешь использовать xpath - очень непрозрачное использование запросов. А так ничо

Я изучил Data Binder.
Работать с XML в Дельфи с DB еще проще, чем в 1С с его XDTO.