JUNIO CAMPOS
-
Total de ítens
1 -
Registro em
-
Última visita
Últimos Visitantes
2.257 visualizações
JUNIO CAMPOS's Achievements
-
[ Correção ] - ACBrConsultaCNPJ "Consulta CNPJ"
JUNIO CAMPOS replied to Pedro Henrique Oliveira's tópico in ACBrTCP
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