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

[beegl]

см. эту статью DelphiHTMLParsers или этот компонент HTML DOM Parser

или этот компонент JvHTMLParser (JEDI), смотрите пример JvHTMLParser Demo

и вот какой-то Parse Easynet

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

Вы точно уверены что XML и HTML это одно и тоже?

Не знаете, то лучше идите дальше

[XE5]

Вы точно уверены что XML и HTML это одно и тоже?

Не одно и то же, но однозначно HTML парсеры без проблем разбирают простой XML

[eval]

а бывает не простой XML ?

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

а бывает не простой XML ?

Бывает гибрид XHTML. Бывает нечто на основе XHTML + XSL + HTML.

HTML парсер понятия не имеет, что же делать с CDATA, а XML знать не знает про атрибуты без значений.
Если XML валидировать значительно проще, по схемам, то с HTML'ем тут полный ахтунг, и не имеет значения DOCTYPE.
Ещё есть кодировки и всякое, прочее, что точно дает ясность, почему-же XML 1 а HTML совсем другое, и почему их гибрид XHTML вообще третье.

[Arkuz]

Спасибо, да это NPP... Блокнот всё нормально открывает и значения читаются корректно.

Подскажите как читать XML? Чтобы можно было проверить существует ли тэг? Как перебрать все записи с определённым тегом? NodeCount выдает странные количества, анализируя сам xml файл не могу понять как он их считает. Можете небольшой примерчик обработки при чтении дать? В докам по NativeXML что-то не нашёл.

[eval]

Бывает гибрид XHTML. Бывает нечто на основе XHTML + XSL + HTML.

это из серии "если бы у бабушки .."
всякое бывает, только нам то что? у нас xml

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

var 
 xml:TNativeXML;
 i:Integer;
begin
  xml:=TNativeXML.Create('MYSUPERROOT');
  for i:= xml.root.NodesCount -1 do
  ....
end;


XML:
<?xml .........>
<MYSUPERROOT>
  <Node>
     ...
  </Node>
  <Node>
     ...
  </Node>
  <Node>
     ...
  </Node>
  <Node>
     ...
  </Node>
  <Node>
     ...
  </Node>
  <Node>
     ...
  </Node>
  <Node>
     ...
  </Node>
  <Node>
     ...
  </Node>
  <Node>
     ...
  </Node>
</MYSUPERROOT>

Код перебирает все Node внутри MYSUPERROOT.

У MS XML куда круче, есть XPath:

   rootNode.selectNodes("//MYSUPERROOT/Node");

это из серии "если бы у бабушки .."

У меня суровая реальность....

[Arkuz]

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

Код перебирает все Node внутри MYSUPERROOT.

Хотелось бы проверить есть ли тег <DSHO_REGISTRY>, чтобы начать разбор, иначе сообщение "файл имеет неизвестный формат". Потом зайти в <HEADER> всё считать, потом перебрать каждый <PATIENT> и всё записать в таблицу. Нужно ли проверять на существование тега или же просто всё заключить в try except и обращаться к тегам в надежде, что они есть?

<?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>	
	<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>

[evg_m]

uses MSXML; // MS XML

var
  xml: IXMLDOMDocument;
  d: IXMLDOMNode;
  r: IXMLDOMnodeList;
begin
  xml:=CoDOmDocument.Create;
  xml.load('T:\Proxy\a.xml');

//Хотелось бы проверить есть ли тег <DSHO_REGISTRY>
  if xml.documentElement.tagName <>'DSHO_REGISTRY'  then raise Exeption.Create('неверный формат');

// Потом зайти в <HEADER> всё считать  
DecodeHeader( xml.documentElement.selectSingleNode('HEADER') );

//потом перебрать каждый <PATIENT> и всё записать в таблицу  
r:=xml.documentElement.selectNodes('PATIENT');
for j:=1 to r.count-1 do begin
  DecodePatient(r.items[j]);
end;


....
end;

procedure DecodeHeader(d: IXMLDomNode);

procedure DecodePatient(p: IXMLDomNode);