llenar datos en una WEB y obtener resultados

[Casimiro Noteví]

Empezado por oscarac

sale un mensaje de error en esta linea

Y el error es...

[[oscarac]]

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]

[cloayza]

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

[[oscarac]]

Empezado por cloayza

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

[[oscarac]]

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?

[dec]

Hola a todos,

Empezado por oscarac

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?

El componente "IdHttp" nos permite realizar peticiones HTTP y obtener "información de una web" (mejor dicho, obtener la respuesta del servidor de dicha página web a nuestra petición HTTP). Existen otros componentes que realizan peticiones HTTP, pero, en principio, estaríamos hablando de lo mismo, es decir, al final se trataría de realizar dichas peticiones HTTP.

[Teto10]

Gracias por esa informacion. Me ha funcionado muy bien.