JUNIO CAMPOS
-
Total de ítens
1 -
Registro em
-
Última visita
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.
[ Correção ] - ACBrConsultaCNPJ "Consulta CNPJ"
em ACBrTCP
Postado
Pessoal , fiz da seguinte forma:
begin
try
Self.HTTPGet('http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/Cnpjreva_solicitacao3.asp');
Html := Self.RespHTTP.Text;
AURL := 'https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/' +
StrEntreStr(Html, '<img id="imgCaptcha" src="','"');
FViewState := StrEntreStr(Html, '<input type=hidden id=viewstate name=viewstate value='+'''', '''');
Result := StringReplace(AURL, 'amp;', '', []);
except
on E: Exception do
begin
raise EACBrConsultaCNPJException.Create('Erro na hora de obter a URL do captcha.'+#13#10+E.Message);
end;
end;
end;
e estar funcionando ok