Erro ao consultar CNPJ

[Antonio Paulo Mangili]

bom dia

estou implementando em minha aplicação o utilitario de consulta de cnpj. O ACBrConsultaCNPJ, mas ao incializar o demo esta dando esse erro em anexo. Alquem poderia me orientar? 

muito obrigado

Paulinho

[Daniel Simoes]

Essa consulta retorna um PNG e não um JPG...

Verifique se os fontes do Demo do ACBr estão atualizados...

[Antonio Paulo Mangili]

Daniel boa tarde

Sim estou com os fontes atualizados, inclusive para tirar da duvida eu apaguei e rodei um svn novamente. Eu acho que o que usa o png é a consulta de CPF conforme olhei aqui nos exemplos. Mas mesmo assim com o svn continua dando o mesmo erro. A consulta do CPF também esta dando erro, mas não vou reportar nesse post, vou resolver esse e depois report em outro.

veja a rotina do exemplo:

procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject);
var
  Stream: TMemoryStream;
  Jpg: TJPEGImage;
begin
  Stream:= TMemoryStream.Create;
  Jpg:= TJPEGImage.Create;
  try
    ACBrConsultaCNPJ1.Captcha(Stream);
    Jpg.LoadFromStream(Stream);
    Image1.Picture.Assign(Jpg);

    EditCaptcha.Clear;
    EditCaptcha.SetFocus;
  finally
    Stream.Free;
    Jpg.Free;
  end;
end;

procedure TF_Principal.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:= False;
  LabAtualizarCaptchaClick(LabAtualizarCaptcha);
  EditCNPJ.SetFocus;
end;

muito obrigado

paulinho

[EMBarbosa]

Esse erro já foi corrigido várias vezes.

http://www.projetoacbr.com.br/forum/topic/20021-erro-capturar-captcha-cnpj/?page=1

[Antonio Paulo Mangili]

bom dia EMBarbosa, e obrigado pelo retorno

li seu post en anexo, mas me parece que não foi aplicado no SVN, porque esta errado ainda e dando erro. acabei de efetuar um SVN e continua com o erro.

poderia verificar se foi atualizado o SVN?

obrigado Paulinho

[Régys Silveira]

Paulo, ainda continua com erro?

Poderia nos dar um retorno, por favor.

[EMBarbosa]

Desculpe, falha minha em demorar em responder. O exemplo do Lazarus está funcionando pois ele tem acesso ao tipo TPortableNetworkGraphic.

O problema está no exemplo do Delphi. Nem todas as versões do Delphi possuem suporte nativo ao PNG. A partir do Delphi 2009 o suporte a PNG passou a ser nativo no Delphi.

Vou trabalhar nessa parte agora de manha e tentar alterar o exemplo do Delphi para exemplificar o uso dessa funcionalidade.

[Antonio Paulo Mangili]

Em 26/11/2015 at 14:11, Antonio Paulo Mangili disse:

sim continua com erro.uso o delphi 7

obrigado paulinho

 

[EMBarbosa]

1 hora atrás, Antonio Paulo Mangili disse:

 

Olá,

Então, como disse acima, o Delphi 7 não suporta imagens PNG nativamente. O site da receita está retornando um arquivo PNG para o captcha. Assim, você terá que utilizar uma biblioteca de terceiros para fazer essa manipulação. No tópico que eu mencionei já explicava isso de forma clara... Mas eu alterei o exemplo para deixar isso mais transparente aos usuários do ACBr.

Em resumo, o que você deve fazer é seguir as orientações do seguinte tópico:

http://www.projetoacbr.com.br/forum/topic/20087-imagem-png-delphi-7/

[Antonio Paulo Mangili]

EMBarbosa muito obrigado pela orientação.

Fiz tudo que o post orientou e deu certinho. agora esta tudo funcionando redondinho tanto a consulta do CNPJ e o CPF

Abs Paulinho