[Imagem Png Delphi 7]

Em 20/02/2015 at 09:37, datilas disse:

decidi fazer esse topico pois vi que muitos amigos estão com problema em usar a imagem do captcha CPF/CNPJ que agora vem em PNG.

eu baixei o componente : GraphicEx

no link: http://www.soft-gems.net/index.php/all-downloads

é só extrair o conteudo do arquivo GraphicEx.zip na pasta de sua escolha 

vai no delphi em tools -> environment options -> na aba library -> clica nos botao "..." em  Library Path

seleciona a pasta GraphicEx e clica em add

 

agora no projeto adicione a uses: GraphicEx

e no atualiza captcha do ACBrConsultaCNPJ 

é só usar assim:

 

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


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

quero deixar claro que existem outros componentes e outras formas de fazer isso, mas é assim que eu estou usando,

estou apenas querendo ajudar os que ainda tem dificuldade com eu tive.

Segue o demo em delphi 7:ACBrConsultaCNPJ.zip

 

Bom dia, Datilas.

Em primeiro lugar, obrigado por compartilhar seu conhecimento. Gostaria de uma ajuda sua. Baixei o demo que você disponibilizou e quando vou compilar no Delphi 7 aparece a mensagem que segue. Como faço para resolver isso?

Obrigado desde já.