Ir para conteúdo
  • Cadastre-se

dev botao

Consulta De Cpf (Receita Fazenda)


schrsistemas
Ver Solução Respondido por Gelson Borsoi,
  • Este tópico foi criado há 3104 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia Pessoal!

 

Estou tentando implementar esse exemplo em nosso sistema e está dando erro

de memória ao tentar baixar a imagem do captcha, estou tentando usar o mesmo

exemplo que o Rodrigo custódio passou e não está funcionando, alguém tem alguma ideia

do que pode estar acontecendo?

 

 

Abraço!

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Bom dia!

conforme pode ter notado já fechamos diversos posts e tópicos sobre o assunto

pois não tratamos mais isso aqui no fórum!

por favor queira verificar isso diretamente com essas pessoas ou no sourceforge ou github !

desde já agradeço

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

Bom dia Pessoal!

 

Estou tentando implementar esse exemplo em nosso sistema e está dando erro

de memória ao tentar baixar a imagem do captcha, estou tentando usar o mesmo

exemplo que o Rodrigo custódio passou e não está funcionando, alguém tem alguma ideia

do que pode estar acontecendo?

 

 

Abraço!

tenta assim:

Link para o comentário
Compartilhar em outros sites

  • 3 meses depois ...

Bom dia

Peço desculpas por dar continuidade ao tópico, mas não consegui baixar o captcha na consulta de cpf com o Delphi 7. Meus fontes do Acbr estão atualizados. Eu estou tentando fazer essa consulta, mas o arquivo .png vem sempre vazio. Sei que o delphi 7 não suporta os arquivo .png, por isso adicionei o diretório do arquivo Pngimage.dcu ao library path, mesmo assim não estou conseguindo baixar.

Quando compilo o mesmo exemplo no delphi XE5, eu consigo baixar o captcha sem erros. 

Acredito que a falha, para o delphi 7, esteja nessa procedure:

procedure TACBrConsultaCPF.Captcha(Stream: TStream);
begin
  try
    HTTPGet('http://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/CPF/captcha/gerarCaptcha.asp');
    if HTTPSend.ResultCode = 200 then
    begin
      HTTPSend.Document.Position := 0;   
      Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size);
      Stream.Position := 0;
    end;
  Except
    on E: Exception do begin
      raise EACBrConsultaCPFException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message);
    end;
  end;
end;

O que tenho que fazer para o meu delphi 7 poder baixar o arquivo ? Alguém teria alguma dica ou solução que possa me indicar ?

Desde já agradeço a atenção.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3104 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.