Erro Capturar Captcha Cnpj - 14/11/2015

oliveira.tadeu · 14 Novembro, 2015

{
O código abaixo tem as correções necessárias para o seu correto funcionamento, pois o exemplo que acabei de baixar o procedimento abaixo não funcionou corretamente e como se trata de um exemplo acredito que seja interessante atualiza-lo no repositório para que nos próximos download ele venha corrigido.
}
unit U_Principal;

interface

uses
  PNGImage,  {Acrescentado para possibilitar o tratamento de arquivos PNG}
  ... 
procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject);
var
  Stream: TMemoryStream;
  ImgArq: String;        {Acrescentado vindo do Exemplo do ACBrConsultaCPF}
  {Jpg: TJPEGImage;}
begin
  {Mantido do código original}
  Stream:= TMemoryStream.Create;
  {Código vindo do Exemplo do ACBrConsultaCPF}
  try
    ACBrConsultaCNPJ1.Captcha(Stream);
    ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png';
    Stream.SaveToFile( ImgArq );
    Image1.Picture.LoadFromFile( ImgArq );

    EditCaptcha.Clear;
    EditCaptcha.SetFocus;
  finally
    Stream.Free;
  end;
  {Código vindo do Exemplo do ACBrConsultaCPF}

  {Código original
  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;