Cita:
Empezado por IVAND
pero no lee la info
|
Hola IVAND
Con esa información que das, no te puedo ayudar mucho...
¿Da error? si da error ¿que error es? ¿No lee nada?, ¿no hace ni dice nada? ...
A mi, en concreto y sobre este XML de ejemplo
Código:
<?xml version="1.0" encoding="UTF-8"?>
<autorizacion>
<estado>AUTORIZADO</estado>
<numeroAutorizacion>0307201600341817912561150018453454555</numeroAutorizacion>
<fechaAutorizacion>2016-07-03T00:34:18-05:00</fechaAutorizacion>
<ambiente>PRODUCCIÓN</ambiente>
<comprobante>
<razonSocial>rsocial</razonSocial>
<dato1>informacion1</dato1>
<dato2>info 2</dato2>
<dato3>info 3</dato3>
</comprobante>
</autorizacion>
y con este código, me lo lee sin problemas:
Código Delphi
[-]
procedure TForm2.Button1Click(Sender: TObject);
var
Autorizacion,Comprobante: IXMLNode;
begin
XMLDocument1.FileName := OpenDialog1.FileName;
XMLDocument1.Active := True;
try
Autorizacion := XMLDocument1.DocumentElement;
Memo1.Lines.add(Autorizacion.ChildNodes['estado'].Text);
Memo1.Lines.add(Autorizacion.ChildNodes['numeroAutorizacion'].Text);
Memo1.Lines.add(Autorizacion.ChildNodes['fechaAutorizacion'].Text);
Memo1.Lines.add(Autorizacion.ChildNodes['ambiente'].Text);
Comprobante := Autorizacion.ChildNodes['comprobante'];
Memo1.Lines.add(Comprobante.ChildNodes['razonSocial'].Text);
Memo1.Lines.add(Comprobante.ChildNodes['dato1'].Text);
Memo1.Lines.add(Comprobante.ChildNodes['dato2'].Text);
Memo1.Lines.add(Comprobante.ChildNodes['dato3'].Text);
finally
XMLDocument1.Active := False;
end;
end;