(TACBrConsultaCPF)Erro ao consultar CPF

[Alisson07]

ACBrConsultaCPF.Captcha Funciona corretamente, me retorna a imagem do captcha. Mas ao entrar no método ACBrConsultaCPF.Consulta, especificamente no método 'Post'. Ele não retorna os dados da pessoa pesquisada. 

Retorno: A validação anti-robô não foi realizada corretamente. Por favor, tente novamente. 

Estou com as unit's atualizadas, alguém tem alguma dica do que pode ser?   

Editado 24 Maio, 2022 por Alisson07

[Juliomar Marchetti]

alguma coisa no seu micro. ou os fontes do acbr desatualizados

dll do openssl desatualizada e assim por diante. acabei de rodar e a consulta veio sem problema algum

[Alisson07]

Atualizei os fontes e as dll's,  debugando o código percebi que meu token do captcha está vazio.   

Em ACBRConsultaCPF.COnsulta() :

    Post.WriteString('TxtCPF='+ACPF+'&');
    Post.WriteString('txtDataNascimento='+datanasc+'&');
    Post.WriteString('txtToken_captcha_serpro_gov_br='+FTokenCaptcha+'&');                         <------    FTokenCaptcha está empty.
    Post.WriteString('txtTexto_captcha_serpro_gov_br='+Trim(ACaptcha)+'&')

    Post.WriteString('Enviar=Consultar');

    Post.Position:= 0;

    HttpSend.Clear;
    HttpSend.Document.Position:= 0;
    HttpSend.Document.CopyFrom(Post, Post.Size);
    HTTPSend.MimeType := 'application/x-www-form-urlencoded';
    HTTPPost('https://servicos.receita.fazenda.gov.br/Servicos/CPF/ConsultaSituacao/ConsultaPublicaExibir.asp');

 

Acredito que deveria vir preenchido, para validar com a descrição do Captcha, correto?
 

[Juliomar Marchetti]

1 hora atrás, Alisson07 disse:

Atualizei os fontes e as dll's,  debugando o código percebi que meu token do captcha está vazio.   

Em ACBRConsultaCPF.COnsulta() :

    Post.WriteString('TxtCPF='+ACPF+'&');
    Post.WriteString('txtDataNascimento='+datanasc+'&');
    Post.WriteString('txtToken_captcha_serpro_gov_br='+FTokenCaptcha+'&');                         <------    FTokenCaptcha está empty.
    Post.WriteString('txtTexto_captcha_serpro_gov_br='+Trim(ACaptcha)+'&')

    Post.WriteString('Enviar=Consultar');

    Post.Position:= 0;

    HttpSend.Clear;
    HttpSend.Document.Position:= 0;
    HttpSend.Document.CopyFrom(Post, Post.Size);
    HTTPSend.MimeType := 'application/x-www-form-urlencoded';
    HTTPPost('https://servicos.receita.fazenda.gov.br/Servicos/CPF/ConsultaSituacao/ConsultaPublicaExibir.asp');

 

Acredito que deveria vir preenchido, para validar com a descrição do Captcha, correto?
 

creio que sim.

tu deve ter alterações locais ou estar desatualizado. como postei abri o exemplo no meu micro e teste na hora e postei a imagem sem mexer em nada