[ACBrConsultaCNPJ Erro na consulta]

1 hora atrás, eduardowak disse:

Exatamente isso, valeu amigo !!!

quem precisar do receitaws como alternativa segue passos:

IdHttp1 := TidHTTP.Create;
IdHttp1.ProtocolVersion := pv1_0;
IdHttp1.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
IdHttp1.Request.UserAgent := 'Mozilla/3.0 (compatible; Indy Library)';

HtmlCode := IdHttp1.Get('https://www.receitaws.com.br/v1/cnpj/'+OnlyNumber(sCNPJ));
   HtmlCode :=Memo1.Text;

 RespHTTP.Text := IdHttp1.Get('https://www.receitaws.com.br/v1/cnpj/'+OnlyNumber(ACNPJ));

   if (Pos('situacao', HtmlCode) > 0) then
   begin
      FSituacao :=copy(HtmlCode,(Pos('"situacao":', HtmlCode)) , 200 );
      FSituacao :=copy(FSituacao,(Pos('"situacao":', FSituacao)+(Length('situacao')+5)),(Pos('",', FSituacao) )- (Length('situacao')+6));
   end;

   if (Pos('bairro', HtmlCode) > 0) then
   begin
      Fbairro :=copy(HtmlCode,(Pos('"bairro":', HtmlCode)) , 200 );
      Fbairro :=copy(Fbairro,(Pos('"bairro":', Fbairro)+(Length('bairro')+5)),(Pos('",', Fbairro) )- (Length('bairro')+6));
   end;

   if (Pos('logradouro', HtmlCode) > 0) then
   begin
      Flogradouro :=copy(HtmlCode,(Pos('"logradouro":', HtmlCode)) , 200 );
      Flogradouro :=copy(Flogradouro,(Pos('"logradouro":', Flogradouro)+(Length('logradouro')+5)),(Pos('",', Flogradouro) )- (Length('logradouro')+6));
   end;

   if (Pos('numero', HtmlCode) > 0) then
   begin
      Fnumero :=copy(HtmlCode,(Pos('"numero":', HtmlCode)) , 200 );
      Fnumero :=copy(Fnumero,(Pos('"numero":', Fnumero)+(Length('numero')+5)),(Pos('",', Fnumero) )- (Length('numero')+6));
   end;

 

assim por diante

[ACBrConsultaCNPJ Erro na consulta]

41 minutos atrás, Renato Gil disse:

Bom dia pessoa, fiz um teste aqui e aparentemente está funcionando.

na unit acbrconsultacnpj.pas alterei as seguintes linhas:

//    HTTPGet('https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/captcha/gerarCaptcha.asp');  // GetCaptchaURL
    HTTPGet('https://servicos.receita.fazenda.gov.br/Servicos/cnpjreva/captcha/gerarCaptcha.asp');  // GetCaptchaURL

e

//    HTTPSend.Headers.Add('Referer: https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/Cnpjreva_solicitacao3.asp');
//    HTTPPost('https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/valida.asp');
    HTTPSend.Headers.Add('Referer: https://servicos.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_solicitacao3.asp');
    HTTPPost('https://servicos.receita.fazenda.gov.br/Servicos/cnpjreva/valida.asp');

 

Exatamente isso, valeu amigo !!!

[ACBrConsultaCNPJ Erro na consulta]

mesmo com esse link o erro permanece

[Problemas ao consultar com ACBRConsultaCNPJ]

33 minutos atrás, Renato Gil disse:

Também estou com problemas.

 O site de consulta foi alterado e a url acima está sendo direcionada para o novo site de consulta.

Alguma solução ou opção para contorna esse problema ?

Obrigado

tbm estou com mesmo problema