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