Ver Mensaje Individual
  #4  
Antiguo 17-04-2019
bucanero bucanero is offline
Miembro
 
Registrado: nov 2013
Ubicación: Almería, España
Posts: 208
Reputación: 11
bucanero Va camino a la fama
Cita:
Empezado por IVAND Ver Mensaje
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;
Responder Con Cita