Ir para conteúdo
  • Cadastre-se

dev botao

Erro Capturar Captcha Cnpj - 14/11/2015


  • Este tópico foi criado há 3024 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

{
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;

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Sempre que quiser contribuir com código anexe o mesmo!

desde já agradecemos!

sobre o que tu enviou não foi mexido pois essa unit usada para o png somente existe em algumas versões do delphi!

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

  • 1 mês depois ...
  • Consultores

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3024 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.