Imagem Png Delphi 7

[datilas]

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

 

[Decio Morais]

grato ,

 

Obrigado por Compartilhar

[FabianoLeal]

Muito Obrigado, por compartilhar!!!

[MGSSISTEMAS]

caros colegar agradeço por este post que hoje salvo minha vida. valeu

O Sábio não é o que sabe tudo, mais,  sim o que forma discípulos.

[celestino]

Agradeço.  a sua iniciativa. Deus te abeçoe  

 

[Antonio Paulo Mangili]

Datilas

Parabéns pela iniciativa, e muito obrigado pela solução.

Só uma curiosidade. Essa consulta do CNPJ tem como trazer a inscrição estadual do consultado?

Outro detale que encontrei é que quando peço para atualizar o capch mais de 3 vezes ele não atualiza, fica em branco. Esta correto isso?

 

Obrigado

Paulinho

Editado 15 Dezembro, 2015 por Antonio Paulo Mangili

[datilas]

4 horas atrás, Antonio Paulo Mangili disse:

Datilas

Parabéns pela iniciativa, e muito obrigado pela solução.

Só uma curiosidade. Essa consulta do CNPJ tem como trazer a inscrição estadual do consultado?

Outro detale que encontrei é que quando peço para atualizar o capch mais de 3 vezes ele não atualiza, fica em branco. Esta correto isso?

 

Obrigado

Paulinho

 a consulta retorna os dados do site:http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao.asp

quanto a atualização do captcha  não tenho esse tipo de problema..

caso o problema persista abra um novo topico no acbrtcp (regras do forum não mude de assunto "assunto novo = topico novo")

[Antonio Paulo Mangili]

2 horas atrás, datilas disse:

 a consulta retorna os dados do site:http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao.asp

quanto a atualização do captcha  não tenho esse tipo de problema..

caso o problema persista abra um novo topico no acbrtcp (regras do forum não mude de assunto "assunto novo = topico novo")

Datilas obrigado pelo retorno. quanto ao problema do captcha, era meu antivirus karpeskey que estava barrando, mas já acertei.

Obrigado

Paulinho

[MSOFT]

Galera!

Alguém teve problema ao usar esta unt? Pois, ao usar deu erro na zlb.

[Antonio Paulo Mangili]

msoft me parece que já foi acertado isso

 

[MSOFT]

Se alguém tiver este problema vou posta a qui a minha solução. Não é obrigado fazer instalação de nenhum componente.

Na cláusula uses coloque pngimage e o código ficou assim:

var
  Stream: TMemoryStream;
 png: TPngImage;
begin
  Stream:= TMemoryStream.Create;
  try
    dmnfe.acbrcnsltcnpj.Captcha(Stream);

    png:= TPngImage.Create;
    try
      png.LoadFromStream(Stream);
      Image1.Picture.Assign(png);

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

[Rafael Dias]

TPngImage não existe nos Delphis mais antigos.

[ecallegaro]

Datilas, segui os passos que você recomendou e funcionou perfeitamente.

Muito obrigado pela dica.

 

[sergioamaral]

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á.

[datilas]

3 horas atrás, sergioamaral disse:

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á.

esse erro é com relação ao ssl use as dll's que estão na pasta : "...DLLs\OpenSSL\1.0.2.13' ou mais atual se houver

[luciano.limeira]

Pessoal, boa tarde!

 

Vcs teriam o componente deste site : http://www.soft-gems.net/index.php/all-downloads ?

 

Acessei o link para baixar o componente GraphicEx e o link está fora...

 

Por gentileza, podem me enviar?

 

 

[BigWings]

 

[Cristiano Kfuri]

Boa noite Pessoal...
Vcs teriam o componente deste site : http://www.soft-gems.net/index.php/all-downloads ?

Acessei o link para baixar o componente GraphicEx e o link está fora...

Por gentileza, podem me enviar?

[datilas]

9 horas atrás, Cristiano Kfuri disse:

Boa noite Pessoal...
Vcs teriam o componente deste site : http://www.soft-gems.net/index.php/all-downloads ?

Acessei o link para baixar o componente GraphicEx e o link está fora...

Por gentileza, podem me enviar?

https://soft-gems.net/graphicex-on-github/

https://github.com/mike-lischke/GraphicEx

Editado 5 Novembro, 2021 por datilas