Erro HTTP: 404 Not Found em ACBrConsultaCPF

[Luciano Rodrigues Pereira]

Estou fazendo tudo certo, mas na hora de fazer a consulta do CPF via ACBrConsultaCPF estou com a mensagem de erro "Erro Http: 404 not Found", conforme imagem em anexo. O componente está inclusive trazendo o captcha, tudo certo, mas na hora do comando ACBrConsultaCNPJ1.Consulta(edCpf_Cnpj.text, edtCaptcha.Text) me vem a mensagem de erro.

Tudo indica que esse endereço para o qual o componente aponta está erro, entrando pelo navegador o site da receita é https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublica.asp diferente do endereço do componente. Como corrigir?

Editado 2 Fevereiro, 2017 por Luciano Rodrigues Pereira
Acrescentar informação

[Daniel Simoes]

Verifique se seus fontes estão atualizados... 

[Luciano Rodrigues Pereira]

12 minutos atrás, Daniel Simoes disse:

Verifique se seus fontes estão atualizados... 

Era isso mesmo, obrigado.

[Weriton Teixeira Machado]

O meu mesmo depois de atualizar os fontes continuou dando erro.

Eu alterei os endereços para os novos do site da receita e o erro parou na hora.

Não precisei alterar nenhuma outra linha de código, só os endereços do captcha e de consulta.

estou enviando o arquivo alterado caso queiram subir pro svn.

ACBrConsultaCPF.pas

[Juliomar Marchetti]

Bom dia

estranhamente ele funciona com o endereço antigo e com o repassado acima!

mas faz sentido a mudança se notarmos o endereço usado para iniciar a consulta.

no svn a mudança

[lucio.paiva]

Bom dia,

 

Após a ultima atualização a consulta de CPF esta dando problema, não esta retornando o nome do contribuinte ao qual pertence o CPF com a data de nascimento informada, foi analisado e visto que no método TACBrConsultaCPF.Consulta(const ACPF, DataNasc,  ACaptcha: String;  ARemoverEspacosDuplos: Boolean): Boolean;

da unit ..\Fontes\ACBrTCP\ACBrConsultaCPF.pas a partir da linha 219

        FCPF      := LerCampo(Resposta,'No do CPF:');     

      //FNome     := LerCampo(Resposta,'Nome da Pessoa Física:');
        FNome     := LerCampo(Resposta,'Nome:');
        FDataNascimento := LerCampo(Resposta,'Data de Nascimento:');
        FSituacao := LerCampo(Resposta,'Situação Cadastral:');
        FDataInscricao := LerCampo(Resposta,'Data da Inscrição:');
        FEmissao  := LerCampo(Resposta,'Comprovante emitido às:');
        FCodCtrlControle   := LerCampo(Resposta,'Código de controle do comprovante:');
        FDigitoVerificador := LerCampo(Resposta,'Digito Verificador:');

Ocorria a chamada do método "LerCampo" para o buscando "Nome da Pessoa Física", o site da receita mudou esta buscando agora apenas "Nome:", se altera isso ira funcionar a busca pelo nome, ate porque mais em baixo deste código esta a seguinte mensagem que estava ocorrendo comigo

      if Trim(FNome) = '' then
        raise EACBrConsultaCPFException.Create('Não foi possível obter os dados.');
 

Se possível alterar isto para funcionar, obrigado.

 

 

[Juliomar Marchetti]

7 minutos atrás, lucio.paiva disse:

Bom dia,

 

Após a ultima atualização a consulta de CPF esta dando problema, não esta retornando o nome do contribuinte ao qual pertence o CPF com a data de nascimento informada, foi analisado e visto que no método TACBrConsultaCPF.Consulta(const ACPF, DataNasc,  ACaptcha: String;  ARemoverEspacosDuplos: Boolean): Boolean;

da unit ..\Fontes\ACBrTCP\ACBrConsultaCPF.pas a partir da linha 219

        FCPF      := LerCampo(Resposta,'No do CPF:');     

      //FNome     := LerCampo(Resposta,'Nome da Pessoa Física:');
        FNome     := LerCampo(Resposta,'Nome:');
        FDataNascimento := LerCampo(Resposta,'Data de Nascimento:');
        FSituacao := LerCampo(Resposta,'Situação Cadastral:');
        FDataInscricao := LerCampo(Resposta,'Data da Inscrição:');
        FEmissao  := LerCampo(Resposta,'Comprovante emitido às:');
        FCodCtrlControle   := LerCampo(Resposta,'Código de controle do comprovante:');
        FDigitoVerificador := LerCampo(Resposta,'Digito Verificador:');

Ocorria a chamada do método "LerCampo" para o buscando "Nome da Pessoa Física", o site da receita mudou esta buscando agora apenas "Nome:", se altera isso ira funcionar a busca pelo nome, ate porque mais em baixo deste código esta a seguinte mensagem que estava ocorrendo comigo

      if Trim(FNome) = '' then
        raise EACBrConsultaCPFException.Create('Não foi possível obter os dados.');
 

Se possível alterar isto para funcionar, obrigado.

 

 

Acho que tu não atualiza ou confere seu svn!

isso já foi subido no inicio da semana ao svn e está correto

[lucio.paiva]

Bom dia,

Foi feito sim a atualização, agora se não baixou o que foi feito, ai tem que ser visto. obrigado.

 

Editado 7 Junho, 2017 por lucio.paiva

[carlitojustino]

Em ‎07‎/‎06‎/‎2017 at 10:35, lucio.paiva disse:

Bom dia,

Foi feito sim a atualização, agora se não baixou o que foi feito, ai tem que ser visto. obrigado.

 

    Valeu lucio.paiva. Salvou a Pátria, depois de inúmeras tentativas mais complicadas, essa abaixo rolou.

      //FNome     := LerCampo(Resposta,'Nome da Pessoa Física:');
        FNome     := LerCampo(Resposta,'Nome:');

Abs.