Ir para conteúdo
  • Cadastre-se

dev botao

Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Consulta De Cpf (Receita Fazenda)

schrsistemas

Por schrsistemas
em ACBrTCP

 Compartilhar
Ver Solução Respondido por Gelson Borsoi,
  • Este tópico foi criado há 3346 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

jonas37 Rookie

jonas37

Postado
Postado

Ok.. subi para o SVN modificações que devem resolver o problema...

 

Aparentemente o site de consulta da Receita para o CPF, modificou totalmente a forma de obter o Captcha

 

Com a ajuda do "FireBug" fui capaz de interpretar as chamadas GET e POST necessárias...

 

Oi Daniel, peguei do trunk as novas unit's do acbrConsultaCpf, mas a consulta continua não funcionando.

Pode me orientar o q está acontecendo?

  • Respostas 132
  • Created
  • Última resposta

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

Daniel Simoes
Daniel Simoes

Eita... só agora vi que se tratava do ACBrConsultaCPF...  Vou tentar analisar...

Daniel Simoes
Daniel Simoes

Ok.. subi para o SVN modificações que devem resolver o problema...   Aparentemente o site de consulta da Receita para o CPF, modificou totalmente a forma de obter o Captcha   Com a ajuda do "FireB

Gelson Borsoi
Gelson Borsoi

Substitui a Procedure Captcha da ACBRConsultaCPF pela abaixo: Nos testes rápidos que fiz no XE3 funcionou.     procedure TACBrConsultaCPF.Captcha(Stream: TStream); begin   try     HTTPGet('http://

jonas37 Rookie

jonas37

Postado
Postado (editado)

Pessoal,

 

desconsidere os meus dois últimos comentários.

 

O problema estava ocorrendo pois o firewall estava bloqueando o site.

 

Obrigado :)

Editado por jonas37
  • 2 semanas depois ...
wilmar Apprentice

wilmar

Postado
Postado

Pessoal estou com esse erro

 

 chance exception at $752A9617. Exception class EACBrConsultaCPFException with message 'Os caracteres da imagem não foram preenchidos corretamente.'. Process

 

 Eu digito as informações do captcha e do cpf corretamente mas sempre esse erro

JEFFERSON rabelo Apprentice

JEFFERSON rabelo

Postado
Postado

Ok Daniel, aguardaremos.

 

segue o erro completo:

 

Erro HTTP: 503 Service temporarily Unvaliable
 
Resposta HTTP:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title><body>
<h1>Servide Temporarily Unavaliable</title>
</head></body>
<h1>The server is Temporarily unable to service yuor request due to maintenance downtime or capacity problems, Please try again later. </p>
</body></html>
Gelson Borsoi Newbie

Gelson Borsoi

Postado
Postado (editado)

Substitui a Procedure Captcha da ACBRConsultaCPF pela abaixo:

Nos testes rápidos que fiz no XE3 funcionou.

 

 

procedure TACBrConsultaCPF.Captcha(Stream: TStream);
begin
  try
    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 EACBrConsultaCPFException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message);
  end;
  end;
end;
 
Nada mais é do que o código antigo (igual do CNPJ) sem a busca pelo captchaURL. Passei a URL nova fixa.
Editado por Gelson Borsoi
  • Curtir 2
  • 1 mês depois ...
RafaelRR Rookie

RafaelRR

Postado
Postado

Boa tarde a todos.

 

Estava com problemas na consulta do CPF também, porém seguindo os passos desse tópico consegui fazer-lo funcionar novamente, recentemente fui testar não estava retornando os dados, fazendo um debug e salvando o resultado da consulta em um arquivo txt para analisar, sempre me retornava que o CAPTCHA estava errado.

 

Cheguei a resolução que na função "TACBrConsultaCPF.Consulta" do arquivo ACBrConsultaCPF.pas ele cria os campos para o envio dos dados por POST para que o servidor valide e retorne os dados.

 

Conferindo no código fonte do site da receita o campo que se preenche o valor do captcha mudou para  "txtTexto_captcha_serpro_gov_br", se não me engano antes estava somente "captcha", portanto alterei a linha desse parâmetro, ficando:

 

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

 

 

Não sei se ajudou em alguma coisa, e se fui claro, mas essa foi minha resolução mais recente.

Utilizo o Delphi ex4.

 

abraço a todos!

RafaelRR Rookie

RafaelRR

Postado
Postado

Me desculpa, estava atualizando outros componentes e esse estava bem obsoleto no meu micro.

 

A versão da SVN está funcionando corretamente. Perfeito.

 

Se tiver como apagar essas minhas mensagens para não confundir ninguém.

 

Grato.

  • 2 semanas depois ...
Leao Rising Star

Leao

Postado
Postado (editado)

Olá pessoal, apliquei a rotina acima, e continua dando erro

 PNGImage.dcu

 

Atualizei re-compilei o ACBrTCP.dpk

e contiua o erro acima informado

Uso delphi7.

estou usando o exemplo atualizado revision 8255

 

Obrigado e aguardo...

Leão

Editado por Leao
  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

Olá pessoal, apliquei a rotina acima, e continua dando erro

 PNGImage.dcu

 

Atualizei re-compilei o ACBrTCP.dpk

e contiua o erro acima informado

Uso delphi7.

estou usando o exemplo atualizado revision 8255

 

Obrigado e aguardo...

Leão

Que rotina? Que erro?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Este tópico foi criado há 3346 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

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.