Ver Mensaje Individual
  #1  
Antiguo 20-01-2017
webmasterplc webmasterplc is offline
Miembro
 
Registrado: mar 2008
Posts: 274
Reputación: 17
webmasterplc Va por buen camino
Leer XML Sin Grabarlo a Disco

Buenas, ahorita estoy tratando de conectarme al portal web del SENIAT en Venezuela tratando de consultar los rif de los contribuyentes para registrar los datos en la base de datos, la consulta se hace via GET y uso el código siguiente.

Código Delphi [-]
begin
Stream := TMemoryStream.Create;
rif:=edt1.Text;
    try
    idhttp1.Get('http://contribuyente.seniat.gob.ve/getContribuyente/getrif?rif='+rif, Stream);
    Stream.Seek(0, soFromBeginning);
    Stream.SaveToFile('c:\proyectos\consulta\rif.xml');
    except on e: exception do
     begin
       ShowMessage('Error'+e.Message);
     end;

    end;



end;

El Portal me regresa un xml con la siguiente estructura
<?xml version="1.0" encoding="ISO-8859-1"?>
<rif:Rif xmlns:rif="rif" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" rif:numeroRif="V148276192"><rif:Nombre>BERTHGENIS SAMUEL DELGADO</rif:Nombre><rif:AgenteRetencionIVA>NO</rif:AgenteRetencionIVA><rif:ContribuyenteIVA>SI</rif:ContribuyenteIVA><rif:Tasa>100</rif:Tasa></rif:Rif>


este lo guardo en
Código Delphi [-]
Stream: TMemoryStream;
y lo grabo en disco si no hay error
Código Delphi [-]
Stream.SaveToFile('c:\proyectos\consulta\rif.xml');

la pregunta es que posibilidad de leer este xml sin necesidad de guardarlo a disco agradezco su ayuda.
Uso delphi XE8
Responder Con Cita