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); url:= Format(URLQuery,[_RUC,
edtConsPorRuc,
edtCaptcha]);
mmData.lines.Text:= IdHTTPSunat.Get(url);
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]