Consulta De Cpf (Receita Fazenda)

[Leao]

Valeu Rodrigo, deu certo,

Obrigado,

Leão

[Juliomar Marchetti]

Pronto agora está no svn!

[MarciooD2]

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!

[Juliomar Marchetti]

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

[datilas]

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:

[toninho]

Boa noite, a consulta do CPF do componente ACBrConsultaCFP tem como fazer sem por a Data de Nascimento, com a Data de Nascimento funciona perfeitamente, mais se não por a Data de Nascimento da erro.

[Turbo Drive]

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.

[Leao]

Olá Turbo, faça uma busca PNGImage, inclusive tem o componente pronto para instalar e usar, em delphi7

 

Obrigado,

Leão