Ver Mensaje Individual
  #5  
Antiguo 07-05-2019
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 913
Reputación: 22
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Talking

Estimado Oscarac puede intentar lo siguiente:

Fuente de consulta: https://github.com/JossMP/sunatphp

1) Se debe obtener el numero aleatorio correspondiente al captcha, para ello se utiliza el siguiente enlace

http://e-consultaruc.sunat.gob.pe/cl...?accion=random

Código Delphi [-]
Const
URLCaptcha='http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/captcha?accion=random';
var
  retval:String;
begin
    {Ejemplo...}
     edtCaptcha.Text:=IdHTTP1.Get(URLCaptcha);
end;

2) Lo siguiente es formar el URL para realizar la consulta.
Código Delphi [-]
URLQuery='http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?nroRuc=%s&accion=%s&numRnd=%s';

var
   url:String;
begin
     url:= Format(URLQuery,[edtRUC.Text,  {Número de RUC}
                               edtConsPorRuc.Text, {El contenido debe ser "consPorRuc"}
                               edtCaptcha.Text]);   {Numero aleatorio correspondiente al Captcha}

     memo1.lines.Text:=IdHTTP1.Get(url);
end;

En memo1 quedara el contenido de la pagina web, lo siguiente es buscar la información...


Espero le ayude...

Última edición por Casimiro Notevi fecha: 08-05-2019 a las 01:05:43. Razón: Comillas " por '
Responder Con Cita