Jump to content

Sistemas Informação

Membros
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Sistemas Informação

  • Rank
    Novato

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. A consulta que fiz pelo site foi realizada sem problemas. Poderia me enviar o link que está utilizando para fazer a consulta por gentileza?
  2. As DLLs já estão sendo utilizadas, você consegue realizar a consulta aí sem nenhum problema?
  3. Acredito que não tenha problemas na conexão daqui, mas consegui resolver o problema com a captura do captcha depois desse erro trocando para esse link https://servicos.receita.fazenda.gov.br/Servicos/CPF/ConsultaSituacao/ConsultaPublicaSonoro.asp?CPF=&NASCIMENTO= Porém agora estou com estes outros dois erros que ficam intercalando ao tentar fazer as consultas
  4. Nesse caso deu um Server Error 403 - Forbidden: access is denied
  5. Ao realizar o teste o erro foi o seguinte:
  6. 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
×
×
  • Create New...