llenar datos en una WEB y obtener resultados
 

desde hace mucho tiempo tuve problemas en resolver un tema que tenia con una pagina llamada SUNAT, en donde obtenia el tipo de cambio

debo reconocer que me costo bastante trabajo entender el uso de IdHttp y de como "lee" una web

es este de aqui http://www.clubdelphi.com/foros/showthread.php?t=91912

ahora tengo un problema "similar" al cual intente darle el mismo tratamiento que utilice para el primer problema, pero no me da resultado

la pagina es

https://e-consultaruc.sunat.gob.pe/c...uc/jcrS00Alias

si se dan cuenta hay que colocar 2 datos RUC y CAPTCHA, luego de presionar buscar "devuelve datos los cuales debo interpretar"


cuando aplico el mismo procedimiento del post adjunto me aparece un mensaje de error que dice

"IOHandler value is not valid"


esta pagina no es muy diferfente a la otra, en ambas debo colocar datos, pero esta ultima al parecer tiene algo especial que no logro entender

si alguien me entendio, espero pueda darme una mano

por lo pronto estoy investigando como "leer" un captcha y convertirlo en texto para "ingresarlo" en la web

Hola a todos,

El error "IOHandler value is not valid" ocurra, probablemente, porque estás intentando una petición HTTPS, pero, no cuentas con lo necesario para tratar con este tipo de conexiones, diferentes de las HTTP "normales". Busca información al respecto: con Indy se pueden usar las DLL adecuadas para evitar el problema, mejor dicho, para poder trabajar con peticiones HTTPS.

Además de lo que apunta dec, me pregunto, ¿cómo vas a colocar el captcha? Uno e los objetivos de un captcha es, precisamente, evitar este tipo de atomatizaciones.

// Saludos

La web pertenece al estado peruano, es el ente recaudador de impuestos y tambien contiene el numero de RUC (registro unico de contribuyentes) de todos los contribuyentes valga la redundancia.

entonces la idea es que cuando un cliente/proveedor nuevo sea registrado en el sistema, se busque el numero de RUC, en esa web y obtener automaticamente los datos (ahora solo RUC y razon social y/o nombre de la empresa - anterioemnete venia con direccion / ubicacion etc)

un amigo me paso un procedimiento donde abro la web en cuestion y lleno los datos manualmente y luego "obtengo" la informacion solicitada, funciona, pero queria ver si hay una opcion mas automatizada

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...

voy a probar la forma como tu indicas CLoayza, pero crees que tambien puedas compartir la fuente?

si, perfecto
funciona
en el memo se "carga" el contenido de la web

existe una forma de ver mas amigable la información contenida en el memo?

¡Vaya! ¡Qué buen sistema de captcha! :D

// Saludos

tambien me parecio muy bueno

estuve revisando los resultados de la web, no conozco mucho HTML pero he encontrado esta tabla
forminfoHist

y hay 2 "campos"

nroRUC y desRUC

algun procedimiento para "capturar" esa informacion?

ojo que estoy usando idHttp y que los valores los estoy almacenando en un memo, imagino que el resultado deberia almacenarlo en un componente que maneje HTML

Buenísimo, pongamos la mejor cerradura del mercado, pero deja la llave puesta en la misma.

También lo pensé, pero no quise comentarlo...:D

Creo que hay espacio para mejorar la seguridad...:D

Saludos

Estimado Oscarac, me intereso el tema y le di un par de vueltas, a ver que le parece...



Código Fuente

Saludos cordiales

las cosas que puedes hacer cuando sabes lo que haces

muchas Gracias

He subido el ejemplo a nuestro "FTP", para que no se pierda.

sale un mensaje de error en esta linea

Código Delphi [-]
          key  :=mmStripHTML.Strings.KeyNames[i];

Y el error es...

hola Cloayza

estuve revisando el codigo fuente que colocaste aqui
estoy intentando colocarlo en una libreria, pero no entiendo porque me sale un error

Código Delphi [-]
function _buscarRUC (var _RUC, _RazonSocial, _Direccion :String; _bRUC : Boolean) : string;
var URLCaptcha : string;
    URLQuery : string;
    url:String;
    edtCaptcha, edtConsPorRuc : string;
    _Cadena : WideString;
    i: Integer;
    SRazon : string;
    position, vContador : Integer;
    vCHAR, vCadena: string;
    IdHTTPSunat : TIdHTTP;
    mmData : TMemo;
begin
  _bRUC := False;
  if (_RUC <> '') and (Length (_RUC) = 11) then
  Begin
    _bRUC := true;
    IdHTTPSunat := TIdHTTP.Create();
    edtConsPorRuc := 'consPorRuc';
    URLCaptcha := 'http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/captcha?accion=random';
    edtCaptcha :=IdHTTPSunat.Get(URLCaptcha);
    URLQuery := 'http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?nroRuc=%s&accion=%s&numRnd=%s';
    mmData := TMemo.Create(nil);  // si coloco self no me lo compila
    url:= Format(URLQuery,[_RUC,  {Número de RUC}
                           edtConsPorRuc, {El contenido debe ser "consPorRuc"}
                           edtCaptcha]);   {Numero aleatorio correspondiente al Captcha}

     mmData.lines.Text:= IdHTTPSunat.Get(url);   //// aqui sale error

     mmData.lines.Text:= replace_char_with_codes(mmData.lines.Text);

     _RUC := GetValues('xxxxxxxxx">Número de RUC: ',mmData.lines.Text);
  End;

mmData.lines.Text:= IdHTTPSunat.Get(url); //// aqui sale error


en esta linea aparece el error

EinvalidOperation with mensage 'Control' has no parent window`

el xxxxxx en la funcion getValues
va esto

[text](<td width="18%"[ ]*colspan=1[ ]*class="bgn"*>[/text]

Estimado Oscarac, realice las siguientes modificaciones.

Código Delphi [-]
var
...
mmData : TStrings; //TMemo;
begin
...
     mmData := TStringList.create; //TMemo.Create(nil);  // si coloco self no me lo compila
...
    mmData.Text:= IdHTTPSunat.Get(url);   //// aqui sale error
    mmData.Text:= replace_char_with_codes(mmData.Text);   
     _RUC          := GetValues('xxxxxxxxx">Número de RUC: ',mmData.Text);
end;

Saludos cordiales

Nota: El error le indica que el TMemo es un componente visual y por lo tanto requiere tener un padre (ParentControl)...

ah ok
el TMemo necesito un "contenedor" para ser mostrado, eso es lo q entiendo...
voy a probar
gracias

Se me ocurre una pregunta


solo con idHttp se puede acceder a la informacion de una web?

existen otros componentes que me permitan hacer lo mismo?