Ir para conteúdo
  • Cadastre-se

dev botao

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

Erro no ACBrConsultaCPF

Sistemas Informação

Por Sistemas Informação
em ACBrTCP

 Compartilhar
  • Este tópico foi criado há 1952 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Sistemas Informação Rookie

Sistemas Informação

Postado
Postado (editado)

Bom dia pessoal, estou com um problema na consulta do CPF por meio do ACBrConsultaCPF, quando deveria encontrar um captcha para a consulta do cpf aparece a seguinte mensagem: 'The file being read is not a valid "Portable Network Graphics" image because it contains an invalid header. This file may be corrupted, try obtaining it again'

segue o código da consulta do cpf:
 

function TACBrConsultaCPF.GetCaptchaURL : String ;
var
  AURL, Html, siteconsulta: String;
begin
try
   if ProtocoloHTTPS then
      siteconsulta := 'https://'
   else
      siteconsulta := 'http://';

   siteconsulta :='https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/captcha/gerarCaptcha.asp';
   Self.HTTPGet(siteconsulta);
   Html := UTF8ToNativeString(Self.RespHTTP.Text);
   //Debug
   //WriteToTXT('C:\TEMP\ACBrConsultaCPF-Captcha.TXT',Html);
   AURL := RetornarConteudoEntre(Html, 'src="data:image/png;base64,', '">');

   Result := StringReplace(AURL, 'amp;', '', []);
except
   on E: Exception do
      begin
      raise EACBrConsultaCPFException.Create('Erro na hora de obter a URL do captcha.'+#13#10+E.Message);
      end;
   end;
end;

As dll's já foram atualizadas, o link antigo nem ao menos abria o programa, então troquei para este novo que por fim trouxe este erro, o problema seria no código em si ou no link defasado? Grato

Editado por Sistemas Informação
  • Moderadores
Felipe E. Resende Mesquita Experienced

Felipe E. Resende Mesquita

Postado
  • Moderadores
Postado
3 minutos atrás, Sistemas Informação disse:

As DLLs já estão sendo utilizadas, você consegue realizar a consulta aí sem nenhum problema?

Estranho...É algo com a sua conexão ou seu computador, veja abaixo:

image.png

Equipe ACBr

Felipe Eduardo Resende Mesquita

Ajude o Projeto ACBr crescer - Assine o SAC

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

 

 

 

  • Moderadores
Felipe E. Resende Mesquita Experienced

Felipe E. Resende Mesquita

Postado
  • Moderadores
Postado
22 minutos atrás, Sistemas Informação disse:

A consulta que fiz pelo site foi realizada sem problemas. Poderia me enviar o link que está utilizando para fazer a consulta por gentileza?

Não é link, estou utilizando o demo na pasta exemplos:

\ACBr\Exemplos\ACBrTCP\ACBrConsultaCPF\Delphi

Equipe ACBr

Felipe Eduardo Resende Mesquita

Ajude o Projeto ACBr crescer - Assine o SAC

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

 

 

 

  • 3 meses depois ...
  • Este tópico foi criado há 1952 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
 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.