Разбор сложного xml файла

[aspire89]

Прошу помощи.
Есть xml файл вида:

<?xml version="1.0"?>
<DeviceProfile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Serial>24767</Serial>
  <Id>0</Id>
  <TerminalSerial>24767</TerminalSerial>
  <AnalogSensors>
    <AnalogSensor>
      <Name>Топливо</Name>
      <UnitText>л.</UnitText>
      <Enabled>true</Enabled>
      <AIN>0</AIN>
      <CalibrationPoints>
        <CalibrationPoint>
          <InputValue>0</InputValue>
          <OutputValue>880</OutputValue>
        </CalibrationPoint>
        <CalibrationPoint>
          <InputValue>21</InputValue>
          <OutputValue>550</OutputValue>
        </CalibrationPoint>
        <CalibrationPoint>
          <InputValue>25</InputValue>
          <OutputValue>500</OutputValue>
        </CalibrationPoint>
        <CalibrationPoint>
          <InputValue>42</InputValue>
          <OutputValue>450</OutputValue>
        </CalibrationPoint>
        <CalibrationPoint>
          <InputValue>59</InputValue>
          <OutputValue>400</OutputValue>
        </CalibrationPoint>
        <CalibrationPoint>
          <InputValue>76</InputValue>
          <OutputValue>350</OutputValue>
        </CalibrationPoint>
        <CalibrationPoint>
          <InputValue>90</InputValue>
          <OutputValue>300</OutputValue>
        </CalibrationPoint>
      </CalibrationPoints>
      <DI_Number>0</DI_Number>
      <FilterLength>20</FilterLength>
    </AnalogSensor>
    <AnalogSensor>
      <Name>Аналоговый вход 1</Name>
      <UnitText />
      <Enabled>false</Enabled>
      <AIN>1</AIN>
      <CalibrationPoints>
        <CalibrationPoint>
          <InputValue>0</InputValue>
          <OutputValue>0</OutputValue>
        </CalibrationPoint>
        <CalibrationPoint>
          <InputValue>1023</InputValue>
          <OutputValue>1023</OutputValue>
        </CalibrationPoint>
      </CalibrationPoints>
      <DI_Number>0</DI_Number>
      <FilterLength>20</FilterLength>
    </AnalogSensor>
....

Загрузку всех AnalogSensor в ListBox сделал следующим образом:

var
  i:integer;
begin
  CheckListBox1.Clear;
  _xml:=TXMLDocument.Create(self);
  if not FileOpenDialog1.Execute then Exit;
  XmlPath:=FileOpenDialog1.FileName;
  _xml.LoadFromFile(XmlPath);
  _xml.Active:=true;

  StatusBar1.Panels[0].Text:='Терминал: '+_xml.DocumentElement.ChildNodes.Nodes['TerminalSerial'].NodeValue;
  with _xml.DocumentElement.ChildNodes['AnalogSensors'] do
  begin
    if not (ChildNodes.FindNode('AnalogSensor')=nil) then
    begin
      for i:=0 to ChildNodes.Count-1 do
        if ChildNodes[i].NodeName='AnalogSensor' then
        begin
          if not (ChildNodes.Nodes[i].ChildNodes['Name']=nil) then
          CheckListBox1.Items.Add(ChildNodes.Nodes[i].ChildNodes['Name'].NodeValue);
          if not (ChildNodes.Nodes[i].ChildNodes['Enabled']=nil) then
          begin
            if ChildNodes.Nodes[i].ChildNodes['Enabled'].NodeValue=True then CheckListBox1.Checked[i]:=true;
          end;
        end;
    end;
  end;
  _xml.Free;

Столкнулся с трудностью, нужно при двойном клике по ListBox загружать соответствующие значения CalibrationPoint в StringGrid. Вот, что написал:

var
  i,j:integer;
  s: widechar;
begin
  i:=CheckListBox1.ItemIndex;
  _xml:=TXMLDocument.Create(self);
  _xml.LoadFromFile(XmlPath);
  _xml.Active:=true;

  with _xml.DocumentElement.ChildNodes['AnalogSensors'] do
  begin
    if not (ChildNodes.FindNode('AnalogSensor')=nil) then
    begin
        if ChildNodes[i].NodeName='AnalogSensor' then
        begin
          with _xml.DocumentElement.ChildNodes['CalibrationPoints'] do
          begin
            //if not (ChildNodes.FindNode('CalibrationPoint')=nil) then
            begin
              for j:=0 to ChildNodes.Count-1 do
              begin
                  //if ChildNodes[i].NodeName='CalibrationPoint' then
                  //with _xml.DocumentElement.ChildNodes['CalibrationPoint'] do
                  begin
                    if not (ChildNodes.Nodes[j].ChildNodes['InputValue']=nil) then
                      StringGrid1.Cells[1,j]:=ChildNodes.Nodes[j].ChildNodes['InputValue'].NodeValue;
                    if not (ChildNodes.Nodes[i].ChildNodes['OutputValue']=nil) then
                      StringGrid1.Cells[2,j]:=ChildNodes.Nodes[j].ChildNodes['OutputValue'].NodeValue;
                  end;
              end;
            end;
          end;
        end;
    end;

  end;
  _xml.free;

В ответ получаю Could not convert variant of type Null into type OleStr.
Подскажите, что я делаю не так и что можно почитать по разбору xml.

[evg_m]

твой пример работал без ошибок но не показывал ничего (Delphi 7)
вот мой смотри
держи код (он стал короче).
Зачем каждый раз (при каждом клике) заниматься полной разборкой XML. Гораздо проще хранить разобранный и разбирать дополнительно только нужный кусочек.

[aspire89]

Спасибо, понял как работать с xml. Переписал ваш код на место своего, все компилируется. При открытии xml файла Name из AnalogSensor добавляются на ListBox, но при клике на по любой строке появляется ошибка:

Delphi XE

[evg_m]

DelphiXЕ увы нет.
не видя кода сказать что-то определенное трудно.
проверьте на всякий случай. может вы случайно после заполнения Listbox сделали (оставили от предыдущего варианта).
_xml.active:=false;
_xml.Free;
этого делать не надо. файл должен быть открыт постоянно. А переменную _xml лучше сделать полем класса.

[aspire89]

Пробовал ваш проект запускал из архива и аналогичная ошибка.
Комментировал с конца до последней строчки и выяснил, что ошибка возникает на строчке:

r:=IXMLNode(Pointer(checklistbox1.Items.Objects[i]));

В прикрепленном файле исходный файл.

[evg_m]

ну если не нравится
r:=IXMLNODE(Pointer(CheckListBox1.I tems.Objects[i]));
давай попробуем чуток по другому.
j:=integer(CheckListBox1.Items.Obje cts[i]);

Во вложении твой модуль переделанный на новый вариант.
мои исправления выделены серией
///////////// ОТ
...........
//////////// ДО

P.S. сначала можешь поробовать заменить нашу проблемную строчку вот так.
убрать Pointer
r:=IXMLNODE(CheckListBox1.Items.Obj ects[i]);
у меня так не компилилось но вдруг у тебя сработает.

[aspire89]

Без Pointer тоже не компилировалось. Но то, что вы исправили в исходнике работает. Спасибо огромное.

[vasyaman]

Хотя теме и больше двух лет, но она нашлась в яндексе и хочется сказать большое спасибо evg_m за рабочий код