Посоветуйте XML парсер для Delphi

[Arkuz]

Спасибо, но мне бы касаемо NativeXML...

[Человек_Борща]

Я вам дал пример. Показывайте свои наработки, у вас вообще видимо нет.

[Arkuz]

Сообщение от Человек_Борща

Я вам дал пример. Показывайте свои наработки, у вас вообще видимо нет.

Да, нет. На открытие и обработку ничего нет. Не совсем пойму как обойти весь файл. Как проверить наличие тегов и т.п.

Пользуясь Вашими примерами получаю вот это:
xml:

<?xml version="1.0" encoding="utf-8"?>
<DSHO_REGISTRY>
	<HEADER>
		<DATE>01.04.2014</DATE>
	</HEADER>
	<PATIENT>
		<CODE>11</CODE>
		<START_DATE>14.04.2014</START_DATE>
		<POLIS>1</POLIS>
		<FAMILY>1</FAMILY>
		<F_NAME>1</F_NAME>
		<L_NAME>1</L_NAME>
		<BIRTH_DATE>14.04.2014</BIRTH_DATE>
		<END_DATE/>
	</PATIENT>	
</DSHO_REGISTRY>

код:

 
  xml:= TNativeXml.Create(nil);
  xml.LoadFromFile(OpenDialog1.FileName);
  Memo1.Clear;
  for i:= 0 to xml.Root.NodeCount-1 do
  begin
   Memo1.Lines.Add(xml.Root.Nodes[i].Name);
  end;

результат:

WhiteSpace
HEADER
WhiteSpace
PATIENT
WhiteSpace

[Arkuz]

Пробовал вот так:

 for i:= 0 to xml.Root.NodeCount-1 do
  begin
   if xml.Root.Nodes[i].Name='PATIENT'
   then
   begin
     Memo1.Lines.Add(xml.Root.FindNode('CODE').Value);
     Memo1.Lines.Add(xml.Root.FindNode('START_DATE').Value);
     Memo1.Lines.Add(xml.Root.FindNode('POLIS').Value);
     Memo1.Lines.Add(xml.Root.FindNode('FAMILY').Value);
   end;
  end;

результат:

1
11.04.2014
1
1
1
11.04.2014
1
1

файл:

<?xml version="1.0" encoding="utf-8"?>
<DSHO_REGISTRY>
	<HEADER>
		<NAME_MO>алекс</NAME_MO>
		<DATE>01.04.2014</DATE>
	</HEADER>
	<PATIENT>
		<CODE>1</CODE>
		<START_DATE>11.04.2014</START_DATE>
		<POLIS>1</POLIS>
		<FAMILY>1</FAMILY>
		<F_NAME>1</F_NAME>
		<L_NAME>1</L_NAME>
		<BIRTH_DATE>14.04.2014</BIRTH_DATE>
		<END_DATE/>
	</PATIENT>
	<PATIENT>
		<CODE>2</CODE>
		<START_DATE>12.04.2014</START_DATE>
		<POLIS>2</POLIS>
		<FAMILY>2</FAMILY>
		<F_NAME>1</F_NAME>
		<L_NAME>1</L_NAME>
		<BIRTH_DATE>14.04.2014</BIRTH_DATE>
		<END_DATE/>
	</PATIENT>
</DSHO_REGISTRY>

Не пойму как работать...

[Человек_Борща]

Как-то так...

procedure TForm1.Button1Click(Sender: TObject);
var
  Xml: TNativeXml;
  Item: TXmlNode;
begin
  Xml := TNativeXml.CreateName('DSHO_REGISTRY');
  try
    Xml.LoadFromFile('lol4to');
    for i := 0 to Xml.Root.NodeCount - 1 do
    begin
      Item := Xml.Root.Nodes[i];
      if (Item.NameUnicode = 'HEADER') then
      begin
        // Читаем HEADER
      end;

      if (Item.NameUnicode = 'PATIENT') then
      begin
        // Читаем PATIENT
      end;

    end;
  finally
    FreeAndNil(Xml);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ccXml: CoDOMDocument;
  Xml: IXMLDOMDocument;
  xmlHeader: IXMLDOMNode;
  xmlPatients: IXMLDOMNodeList;

begin
  Xml := ccXml.Create;
  Xml.load('data.xml');
  xmlHeader := Xml.documentElement.selectSingleNode('//DSHO_REGISTRY/HEADER');
  if Assigned(xmlHeader) then
  begin
    { Читаем HEADER }
  end;
  xmlPatients := Xml.documentElement.selectNodes('//DSHO_REGISTRY/PATIENT');
  if Assigned(xmlPatients) then
  begin
    for i:=0 to xmlPatients.length -1 do
    begin
      { Читаем PATIENTов }
    end;
  end;
end;

Пример NativeXML и MS XML с использованием XPath.

[Arkuz]

Спасибо за помощь. Вот что получилось.

function XMLToSG(xml:TNativeXml; SG:TStringGrid):boolean;
var
  i,j,k:integer;
  Item: TXmlNode;
begin
  try
  k:=0;
  for i := 0 to Xml.Root.NodeCount - 1 do
    begin
      Item := Xml.Root.Nodes[i];
      if (Item.NameUnicode = 'HEADER') then
        for j:=0 to Item.ElementCount-1 do
        begin
         if (Item.Elements[j].NameUnicode='NAME_MO')
           then MainForm.NameORGEdit.Text:=Item.Elements[j].Value;
         if (Item.Elements[j].NameUnicode='DATE')
           then MainForm.ReestrDateTimePicker.Date:=StrToDate(Item.Elements[j].Value);
         end;
      if (Item.NameUnicode = 'PATIENT') then
      begin
       inc(k);
       SG.RowCount:=SG.RowCount+1;
       for j:=0 to Item.ElementCount-1 do
       begin
         if (Item.Elements[j].NameUnicode='CODE')
           then SG.Cells[j,k]:=Item.Elements[j].Value;
         if (Item.Elements[j].NameUnicode='START_DATE')
           then SG.Cells[j,k]:=Item.Elements[j].Value;
         if (Item.Elements[j].NameUnicode='POLIS')
           then SG.Cells[j,k]:=Item.Elements[j].Value;
         if (Item.Elements[j].NameUnicode='FAMILY')
           then SG.Cells[j,k]:=Item.Elements[j].Value;
         if (Item.Elements[j].NameUnicode='F_NAME')
           then SG.Cells[j,k]:=Item.Elements[j].Value;
         if (Item.Elements[j].NameUnicode='L_NAME')
           then SG.Cells[j,k]:=Item.Elements[j].Value;
         if (Item.Elements[j].NameUnicode='BIRTH_DATE')
           then SG.Cells[j,k]:=Item.Elements[j].Value;
         if (Item.Elements[j].NameUnicode='END_DATE')
           then SG.Cells[j,k]:=Item.Elements[j].Value;
       end;
      end;
    end;
  finally
   FreeAndNil;
  end;
end;