Erro Capturar Captcha Cnpj

[AlexandreADC]

Pessoal, a receita mudou o modo de pegar o captcha do CNPJ, deixando igual do CPF

 

agora é possível recuperar pela URL: http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/captcha/gerarCaptcha.asp

 

 

ATENÇÃO

 

Retorno do Captcha agora é PNG e não mais JPG

 

em anexo fontes

ACBrConsultaCNPJ.pas

[ademar-datalan]

Boa tarde,

 

Atualizando o arquivo ACBrConsultaCNPJ.pas corre o seguinte erro:

 

JPG erro #53

[MVScarpelli]

Caros amigos,

 

Primeira parte do problema era a exibição do Captcha sem dar erro e resolvi desta forma:

 

procedure TACBrConsultaCNPJ.Captcha(Stream: TStream);

var

  Img64, ImgBin, DataClientID: AnsiString;

  P: Integer;

begin

  try

    HTTPGet('http://www.receita.f...rCaptcha.asp');

    if HTTPSend.ResultCode = 200 then

    begin

      HTTPSend.Document.Position := 0;

      Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size);

 

      Stream.Position := 0;

    end;

  Except

    on E: Exception do begin

      raise EACBrConsultaCNPJException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message);

    end;

  end;

end;

 

 

Antes estava assim:

 

procedure TACBrConsultaCNPJ.Captcha(Stream: TStream);

var

  Img64, ImgBin, DataClientID: AnsiString;

  P: Integer;

begin

  try

    HTTPGet(GetCaptchaURL);

    if HttpSend.ResultCode = 200 then

    begin

      HTTPSend.Document.Position := 0;

      Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size);

      Stream.Position := 0;

    end;

  Except on E: Exception do begin

    raise EACBrConsultaCNPJException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message);

  end;

  end;

end;

 

 

Na rotina de consulta deve estar da mesma forma ue a usada na Consulta CPF e, para isto, basta olhar o exemplo de consulta CPF.

 

 

Por fim estou tentando resolver a parte de consulta, mas até agora não consegui progredir em nada.

 

Espero ter ajudado a dar um caminho para iniciarmos uma solução final.

 

Atenciosamente...

 

Marcus Vinicius Scarpelli

[Junior Bindaco]

boa tarde Marcus Vinicius Scarpelli

o problema esta na hora de abrir a imagem para exibir em tela ....

[barrys]

tb estou com este erro.

 

a consulta CPF (retornando .Png) está tudo ok

[MVScarpelli]

Esta parte resolvi com este procedimento:
 

procedure TfrmPrincipal.LabAtualizarCaptchaClick(Sender: TObject);

var

  Stream: TMemoryStream;

  ImgArq: String;

begin

  Stream := TMemoryStream.Create;

  try

    ACBrConsultaCNPJ1.Captcha(Stream);

    ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png';

    Stream.SaveToFile( ImgArq );

    Image1.Picture.LoadFromFile( ImgArq );

 

    EditCaptcha.Clear;

    EditCaptcha.SetFocus;

  finally

    Stream.Free;

  end;

end;

[MVScarpelli]

O problema esta sendo na hora de consultar....

 

Não está funcionando...

[barrys]

acho que seu Delphi nao é o 7.

 

aqui no meu ainda continua o erro de download do captcha

[MVScarpelli]

Acho que vou esperar mais um pouco....
 

Estou de cabeça quente aqui...

 

Ainda não consegui resolver...

 

Se alguém tiver mais alguma forma de ajudar eu agradeço...

 

Abraços...

 

Marcus Vinicius Scarpelli

[hugo_lmf]

Aqui está dando erro na hora de consultar o cnpj.

Erro de List Index Out Of Bounds

Alguém está com esse problema também ?

[russocorp]

Bom, fiz duas mudanças no ACBrConsultaCNPJ.pas e consegui pegar o resultado. Segue os 2 trechos que modifiquei e o arquivo .pas final, se quiserem ver e modificar.

Lembrando que, precisa mudar, como já dito anteriormente, o carregamento do componente TImage para aceitar PNG agora. Acima ai já foi postado solução para isso.

 

 

1 - procedure TACBrConsultaCNPJ.Captcha(Stream: TStream);

procedure TACBrConsultaCNPJ.Captcha(Stream: TStream);

begin

    try

        //Passando só a URL do captcha, dava erro depois, na leitura dos campos. - Rafael

        HTTPGet('http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao2.asp');

        HTTPGet('http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/captcha/gerarCaptcha.asp');

        if HttpSend.ResultCode = 200 then

        begin

            HttpSend.Document.Position := 0;

            Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size);

            Stream.Position := 0;

        end;

    Except

        on E: Exception do

        begin

            raise EACBrConsultaCNPJException.Create('Erro na hora de fazer o download da imagem do captcha.' + #13#10 + E.Message);

        end;

    end;

end;

 

2 - o inicio da function TACBrConsultaCNPJ.Consulta(const ACNPJ, ACaptcha: String;

function TACBrConsultaCNPJ.Consulta(const ACNPJ, ACaptcha: String;

    ARemoverEspacosDuplos: Boolean): Boolean;

var

    Post: TStringStream;

    Erro: String;

    Resposta: TStringList;

    StrAux: String;

begin

    Erro := ACBrValidadorValidarCNPJ(ACNPJ);

    if Erro <> '' then

        raise EACBrConsultaCNPJException.Create(Erro);

 

    Clear;

    Post := TStringStream.Create('');

    try

        Post.WriteString('origem=comprovante&');

        Post.WriteString('cnpj=' + OnlyNumber(ACNPJ) + '&');

        Post.WriteString('txtTexto_captcha_serpro_gov_br=' + Trim(ACaptcha) + '&');

        Post.WriteString('submit1=Consultar&');

        Post.WriteString('search_type=cnpj');

        Post.Position := 0;

..........

 

 

ACBrConsultaCNPJ.pas

[hugo_lmf]

 

Bom, fiz duas mudanças no ACBrConsultaCNPJ.pas e consegui pegar o resultado. Segue os 2 trechos que modifiquei e o arquivo .pas final, se quiserem ver e modificar.

Lembrando que, precisa mudar, como já dito anteriormente, o carregamento do componente TImage para aceitar PNG agora. Acima ai já foi postado solução para isso.

 

 

1 - procedure TACBrConsultaCNPJ.Captcha(Stream: TStream);

procedure TACBrConsultaCNPJ.Captcha(Stream: TStream);

begin

    try

        //Passando só a URL do captcha, dava erro depois, na leitura dos campos. - Rafael

        HTTPGet('http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao2.asp');

        HTTPGet('http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/captcha/gerarCaptcha.asp');

        if HttpSend.ResultCode = 200 then

        begin

            HttpSend.Document.Position := 0;

            Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size);

            Stream.Position := 0;

        end;

    Except

        on E: Exception do

        begin

            raise EACBrConsultaCNPJException.Create('Erro na hora de fazer o download da imagem do captcha.' + #13#10 + E.Message);

        end;

    end;

end;

 

2 - o inicio da function TACBrConsultaCNPJ.Consulta(const ACNPJ, ACaptcha: String;

function TACBrConsultaCNPJ.Consulta(const ACNPJ, ACaptcha: String;

    ARemoverEspacosDuplos: Boolean): Boolean;

var

    Post: TStringStream;

    Erro: String;

    Resposta: TStringList;

    StrAux: String;

begin

    Erro := ACBrValidadorValidarCNPJ(ACNPJ);

    if Erro <> '' then

        raise EACBrConsultaCNPJException.Create(Erro);

 

    Clear;

    Post := TStringStream.Create('');

    try

        Post.WriteString('origem=comprovante&');

        Post.WriteString('cnpj=' + OnlyNumber(ACNPJ) + '&');

        Post.WriteString('txtTexto_captcha_serpro_gov_br=' + Trim(ACaptcha) + '&');

        Post.WriteString('submit1=Consultar&');

        Post.WriteString('search_type=cnpj');

        Post.Position := 0;

..........

 

 

Muito bom.. Deu certinho.. Muito obrigado cara. Resolveu meu problema.

[tiagofelipebones]

Galera e quanto ao que foi modificado o CNAE2 para stringlist q dá erro?

[MVScarpelli]

Blz meu amigo....
 

Aqui deu tudo certo...

 

Conferi e testei  e 100% ok...

 

Quanto ao CNAE2 olha o exemplo e faz a adaptação no seu sistema que dá certinho...

 

Atenciosamente...

 

Marcus Vinicius Scarpelli

[Juliomar Marchetti]

Boa tarde

peguei o código para comparar e subir ao svn mas com o merge marcou o arquivo todo!

usou algum formatador de código? se sim favor somente altera o necessário para funcionar e anexar novamente a unit para poder efetuar o merge!

[Aurino]

Alguem sabe como resolver esse problema?

 

Ao abrir o aplicativo apresenta esse erro:  JPEG error: #53.

 

Alguem

[Juliomar Marchetti]

Bom dia!

está relacionando ao problema já mencionado aqui e em outros posts!

[russocorp]

Juliomar, desculpe, acabei realmente apertando Ctrl + D aqui

Já já dou um revert aqui e modifico somente as partes que alterei e subo novamente para comparação.

[russocorp]

Segue novamente o arquivo que modifiquei, sem fazer a formatação dos fontes.

Os 2 trechos que mudei coloquei um comentario com o nome Rafael, para facilitar a busca para quem se interessar em ver o que foi modificado.

ACBrConsultaCNPJ.pas

[barrys]

deu tudo certo aqui.   obrigado!

 

aproveitando....  existe alguma forma de obter a inscrição estadual?

[Dempsey]

deu tudo certo aqui.   obrigado!

 

aproveitando....  existe alguma forma de obter a inscrição estadual?

 

Opa... Eu utilizo o AcbrNFe pra puxar a IE.

 

var lCnpj: String;

begin

    ACBrNFe1.Configuracoes.WebServices.UF            := 'MG';

    ACBrNFe1.WebServices.ConsultaCadastro.UF      := 'MG';

    ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := '14.757.209/0001-09';

    ACBrNFe1.WebServices.ConsultaCadastro.Executar;

 

    lCnpj := ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].IE;

    ...

end;

[barrys]

Upalêlê!!

 

obrigado.

[jdazevedo]

Oi Rafael, 

Peguei o ACBrConsultaCNPJ que vc postou e testei, só que agora apareceu o erro: JPEG error #53. 

[jdazevedo]

Olá Rafael, 

Ignore o meu post anterior. O erro estava na minha rotina. 

Funcionou perfeitamente. Parabéns.

Abraço,

[Juliomar Marchetti]

Segue novamente o arquivo que modifiquei, sem fazer a formatação dos fontes.

Os 2 trechos que mudei coloquei um comentario com o nome Rafael, para facilitar a busca para quem se interessar em ver o que foi modificado.

Boa noite

ainda assim não entendi como é que após você chamar uma vez a tela e depois passar o capctha ele sabe de qual sessão está sendo passado

pois foi removido as informações?