AcbrConsultaCPF com openssl 1.0.2.1

[Pedro_Manoel]

Problema resolvido faltava as dll na pasta do sistema coloquei todas funcinou.

Obrigado.

[Nelson Santos]

Boa tarde,

A consulta na Receita Federal mudou mais uma vez, conforme link http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao.asp

Agora estão usando o "reCaptcha" do Google.

Alguém sabe informar se já existe alguma solução para a Consulta CPF do ACBr ?

[Juliomar Marchetti]

22 minutos atrás, Nelson Santos disse:

Boa tarde,

A consulta na Receita Federal mudou mais uma vez, conforme link http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao.asp

Agora estão usando o "reCaptcha" do Google.

Alguém sabe informar se já existe alguma solução para a Consulta CPF do ACBr ?

não tanto para CPF quanto CNPJ onde já vem se discutindo a alguns dias em diversos tópicos.

[lucasbelkys]

Quebraram nossas pernas!

[Dfox]

Agora, lucasbelkys disse:

Quebraram nossas pernas!

Verdade  rsrs

tem esses dois links

reCaptcha

http://cpf.receita.fazenda.gov.br/situacao/default.asp

Captcha modo antigo

http://cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp

mais eu consegui consultar por esse modo antigo parece que esta bugado.

[lucasbelkys]

Em 10/11/2017 at 15:46, Dfox disse:

Verdade  rsrs

tem esses dois links

reCaptcha

http://cpf.receita.fazenda.gov.br/situacao/default.asp

Captcha modo antigo

http://cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp

mais eu consegui consultar por esse modo antigo parece que esta bugado.

Me parece que por esse link, pode funcionar..

[Dfox]

10 horas atrás, lucasbelkys disse:

Me parece que por esse link, pode funcionar..

Sim

já consegui recuperar o Captcha mais estou conseguindo obter os dados

 

[Dfox]

Boa tarde a todos,

consegui a consulta do cpf segue as unit  para teste 

 

 

uPrincipal.pas

ACBrConsultaCPF.pas

Editado 13 Novembro, 2017 por Dfox

[EMBarbosa]

20 horas atrás, Dfox disse:

Boa tarde a todos,

consegui a consulta do cpf segue as unit  para teste 

 

 

uPrincipal.pas

ACBrConsultaCPF.pas

Olá,

  notei que o código não está compatível com o Lazarus e o Delphi 7, só do Delphi 2009 pra frente, mesmo assim com alguns ajustes...

Pelo que percebi o código foi alterado para fazer o seguinte:
* usar o outro endereço
* localizar a imagem nessa outra página via tags
* decodificar a imagem da página para um stream (porque a imagem está em base64)
* jogar o stream para uma imagem png
* corrigir outros detalhes no envio

Foi isso mesmo? Perdi alguma coisa?

[Dfox]

Agora, EMBarbosa disse:

Olá,

  notei que o código não está compatível com o Lazarus e o Delphi 7, só do Delphi 2009 pra frente, mesmo assim com alguns ajustes...

Pelo que percebi o código foi alterado para fazer o seguinte:
* usar o outro endereço
* localizar a imagem nessa outra página via tags
* decodificar a imagem da página para um stream (porque a imagem está em base64)
* jogar o stream para uma imagem png
* corrigir outros detalhes no envio

Foi isso mesmo? Perdi alguma coisa?

exatamente isso, já adaptei também para esse outro link 

https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublicaSonoro.asp

mais esse link anida esta instável!

[EMBarbosa]

17 minutos atrás, Dfox disse:

exatamente isso, já adaptei também para esse outro link 

https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublicaSonoro.asp

mais esse link anida esta instável!

Talvez seja possível alterar para utilizar a synapse ao invés dessa outra unit EncdDecd.pas (ou soap.EncdDecd.pas no Delphi XE2 ou superior) pois não consegui encontrar uma versão dela para Delphi 7 ou Lazarus.

A synapse tem o método encode e decode para Base64. http://synapse.ararat.cz/doc/help/synacode.html

Mas precisaria ver melhor como mostrar a imagem png nessas versões (Lazarus e Delphi 7)...

[Dfox]

Encontrei uma solução mais simples usando a unit IdCoderMIME só não sei se é compativel com Lazarus e Delphi 7

segue a unit alterada

 

 

ACBrConsultaCPF.pas

[Dfox]

7 minutos atrás, EMBarbosa disse:

Talvez seja possível alterar para utilizar a synapse ao invés dessa outra unit EncdDecd.pas (ou soap.EncdDecd.pas no Delphi XE2 ou superior) pois não consegui encontrar uma versão dela para Delphi 7 ou Lazarus.

A synapse tem o método encode e decode para Base64. http://synapse.ararat.cz/doc/help/synacode.html

Mas precisaria ver melhor como mostrar a imagem png nessas versões (Lazarus e Delphi 7)...

Consegui usar a Unit synacode segue a unit alterada 

att.

ACBrConsultaCPF.pas

[Dfox]

10 horas atrás, Dfox disse:

Consegui usar a Unit synacode segue a unit alterada 

att.

ACBrConsultaCPF.pas

mudaram para modo seguro agora

antes

http://cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp

http://cpf.receita.fazenda.gov.br/situacao/ConsultaSituacao.asp

atual

https://cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp

https://cpf.receita.fazenda.gov.br/situacao/ConsultaSituacao.asp

é só alterar os links da unit.

Editado 15 Novembro, 2017 por Dfox

[Maiquel]

Testando as alterações aqui, está funcionando perfeitamente, com os links novos

https://cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp

https://cpf.receita.fazenda.gov.br/situacao/ConsultaSituacao.asp

Só não consegui testar com Delphi 7.

Editado 20 Novembro, 2017 por Maiquel

[Maiquel]

Segue a unit com os endereços atualizados e testados em Delphi XE5.

ACBrConsultaCPF.pas

[luciano_f]

Segue a unit com os endereços atualizados e testados em Delphi XE5.

ACBrConsultaCPF.pas

 

será que o administradores já subiram essa nova unit ?

[Juliomar Marchetti]

1 hora atrás, luciano_f disse:

Segue a unit com os endereços atualizados e testados em Delphi XE5.

ACBrConsultaCPF.pas

 

será que o administradores já subiram essa nova unit ?

Agora está!

[lucasbm]

Delphi 2010: testado e aprovado.

[Juliomar Marchetti]

2 horas atrás, lucasbm disse:

Delphi 2010: testado e aprovado.

exato no 2010 

acabei de efetuar mais testes com o lazarus e deu erro vou subir modificações

[bsoft]

Em 20/11/2017 at 11:33, Maiquel disse:

Testando as alterações aqui, está funcionando perfeitamente, com os links novos

https://cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp

https://cpf.receita.fazenda.gov.br/situacao/ConsultaSituacao.asp

Só não consegui testar com Delphi 7.

Segue em anexo a unit modificada para compilar no Delphi 7.

ACBrConsultaCPF.pas

[Juliomar Marchetti]

50 minutos atrás, bsoft disse:

Segue em anexo a unit modificada para compilar no Delphi 7.

ACBrConsultaCPF.pas

no svn 

Obrigado

[Daniel Simoes]

Enviei modificações recentes para a ACBrConsultaCPF funcionar em Delphi 7, XE e Lazarus

[buzz]

A Consulta CPF parece que voltou a ter problema de lentidao e timeout (erro 500 - internal server error) no servidor da Receita. Alguem mais notou isso?

[Daniel Simoes]

parece que sim... mesmo pela página Web está ocorrendo erro: