Jump to content

Erro Capturar Captcha Cnpj - 14/11/2015


  • Este tópico foi criado há 2428 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 to comment
Share on other sites

  • Consultores

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
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • 1 month later...
  • 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 to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.