Leer Xml

[chrids506]

Disculpen, mi pregunta va enfocada a ficheros XML, existe alguna función para leerlos? o cual es la forma mas facil? porque podría leerlo caracter por caracter pero me imagino que habrán mejores formas, gracias

[dec]

Hola,

Existen componentes de terceros, y, a partir de cierta versión de Delphi (creo que la 6, la 7 seguro) se incluye el componente "TXmlDocument", que, junto con algunas interfaces (como "IXMLNode") te permiten trabajar con archivos XML.

El componente "TXmlDocument" si no recuerdo mal está en la pestaña "Internet" de la paleta de componentes. En todo caso puedes usarlo "a mano", si no me equivoco se implementa en la unidad "XMLDoc", pero hay otras implicadas, como "XmlIntf".

Si buscas por los foros encontrarás más información sobre "TXmlDocument".

[[poliburro]]

Empezado por dec

Hola,

Existen componentes de terceros, y, a partir de cierta versión de Delphi (creo que la 6, la 7 seguro) se incluye el componente "TXmlDocument", que, junto con algunas interfaces (como "IXMLNode") te permiten trabajar con archivos XML.

El componente "TXmlDocument" si no recuerdo mal está en la pestaña "Internet" de la paleta de componentes. En todo caso puedes usarlo "a mano", si no me equivoco se implementa en la unidad "XMLDoc", pero hay otras implicadas, como "XmlIntf".

Si buscas por los foros encontrarás más información sobre "TXmlDocument".

Efectivamente con delphi 7 puedes manipular Xml, la bronca es que con documentos muy pesados, la lectura es lenta.

[chrids506]

Gracias, lo he resuelto con esto:

Código Delphi [-]
var
  nodoClave,
  nodoSeccion: IXMLNode;
begin
   XMLDocument1.FileName := ExtractFilePath(ParamStr(0)) + '\fincas\'+ENomb.Text+'.xml';
   XMLDocument1.Active := true;
   XMLDocument1.Version := '1.0';
   with XMLDocument1.DocumentElement do
   begin
      nodoSeccion := ChildNodes.FindNode('datos');
      with nodoSeccion do
      begin
         nodoClave := ChildNodes.FindNode('ubi');
         EUbi.Text := nodoClave.Text;
         nodoClave := ChildNodes.FindNode('tam');
         ETam.Text := nodoClave.Text;
         nodoClave := ChildNodes.FindNode('otros');
         MOtros.Lines.Text := nodoClave.Text;
         nodoClave := ChildNodes.FindNode('precio');
         EPrecio.Text := nodoClave.Text;
      end;
   end;
end;

Probablemente no es la mejor manera, pero trabaja bien, gracias!

[emeritos]

Hola, Con el codigo Delphi de chrids506 tambien me devuelto el contenido pero solo el primero, como puedo seguir leyendo las etiquetas sucesivas para que me devuelta las siguientes.

Pongo un ejemplo por si no me he explicado

<profesor>
<dni>99999</dni>
<nombre>aaaaaa</nombre>
</profesor>
<profesor>
<dni>88888</dni>
<nombre>bbbbbb</nombre>
</profesor>
.
.
.
.
Solo me devuelve el dni = 99999 y el nombre = aaaaa el siguiente y los sucesivos no.

Gracias