Erro Capturar Captcha Cnpj

[russocorp]

Pelo que consegui entender do debug, ele armazena alguns cockies no primeiro GET que faz. Depois quando faço o GET só do captcha, os cockies permanecem, como se fosse aquela rotina do site de atualizar o captcha. 

Isso pelo menos foi o que deu a entender quando debuguei.

[pattarelli]

Caros Colegas, 

 

Eu uso D7 e FireBird 2.5

 

Tive problemas em colocar a imagem do captch.png no Timage ai baixa http://www.soft-gems.net/index.php/libs/graphicex-library  coloquei na pasta do meu delphi e coloquei no uses  GraphicEx, do form , e esta tudo ok. 

 

Espero ter ajudado. 

 

Att

Paulo Pattarelli 

Editado 18 Fevereiro, 2015 por pattarelli

[MVScarpelli]

Caros amigos,

 

No ACBr temos componente para buscar CNPJ e CPF, ambos na Receita Federal...

 

Descobri um link que muita gente tem procurado para buscar os dados de um CEI no INSS: http://www3.dataprev.gov.br/cws/contexto/captchar/index_salEmpresa2.html

 

Que tal tentarmos fazer um componente para consultar CEI???

 

Acredito que estaremos colaborando para melhorar cada vez mais o projeto ACBr...

 

Atenciosamente...

 

Marcus Vinicius Scarpelli

[Felipe Silva Neiva]

Boa tarde, estou tentando passar esse codigo para o PHP

alguem poderia me explicar o que algumas funçoes fazem?

    Self.HTTPGet('http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao2.asp');
    Html := Self.RespHTTP.Text;

Ate aqui vejo que a variavel html receber o endereco da pagina com texto.

 

 

   URL := 'http://www.receita.fazenda.gov.br' +
           StrEntreStr(Html, 'alt='+
                        QuotedStr(ACBrStr('Imagem com os caracteres anti robÙ')) + ' src='+'''', '''');

a variavel url é gerada com alguns parametros que gostaria de saber

o que a StrEntreStr faz ?

o que é QuoteStr ?

o que é ACBrStr e o que faz?

    FViewState := StrEntreStr(Html, '<input type=hidden id=viewstate name=viewstate value='+'''', '''');

Sabemos que este input nao existe mais na pagina da receira: http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/Cnpjreva_Solicitacao2.asp

aguardo e obrigado.

[EMBarbosa]

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]".

[sidinei]

Olá pessoal, 

 

  atualizei o arquivo mas ta dando esse erro ao mostrar a imagem do "captch"

 

"Unknown picture file extension (.png)"

 

Obs.: o arquivo existe!

[Juliomar Marchetti]

Boa tarde

Favor atualizar o svn agora que foi feito neste momento o merge com a sugestão deste post

[sidinei]

Olá pessoal, 

 

  atualizei o arquivo mas ta dando esse erro ao mostrar a imagem do "captch"

 

"Unknown picture file extension (.png)"

 

Obs.: o arquivo existe!

[Juliomar Marchetti]

Sim e após atualizar tu recompilou os componente??

[FSuls]

Não consegui faze-lo funcionar

[Aurino]

O que fez para não aparecer o erro JPEG error #53. ?

[Rafael Sartori]

Olá pessoal, fiz o update e instalei novamente o ACBr. Abri o Demo e recompilei (dei até um Build All). Está dando o erro "JPEG error #53". Utilizo o Delphi 2010.

 

Abraços

[FSuls]

Ocorre este erro, com o fonte do svn:

---------------------------

Consultacnpj

---------------------------

JPEG error #53.

---------------------------

OK   

---------------------------

[joaoagra]

Olá, para corrigir basta atualizar as linhas a seguir:

 

altere em uses: JPEG por PngImage

 

 

Altere esse trecho como abaixo:

 

procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject);

var

  Stream: TMemoryStream;

  PNG: TPngImage;

begin

  Stream:= TMemoryStream.Create;

  PNG := TPngImage.Create;

  try

    ACBrConsultaCNPJ1.Captcha(Stream);

    PNG.LoadFromStream(Stream);

    Image1.Picture.Assign(PNG);

 

    EditCaptcha.Clear;

    EditCaptcha.SetFocus;

  finally

    Stream.Free;

    PNG.Free;

  end;

end;

Editado 18 Fevereiro, 2015 por João Paulo Agra

[Aurino]

João Paulo.

 

Resolvido.

[jdazevedo]

Olá pessoal, 

 

  atualizei o arquivo mas ta dando esse erro ao mostrar a imagem do "captch"

 

"Unknown picture file extension (.png)"

 

Obs.: o arquivo existe!

Para resolver isto fiz da seguinte maneira:

procedure TF_BuscaCNPJ.LabAtualizarCaptchaClick(Sender: TObject);

var

  Stream: TMemoryStream;

  Png: TPngImage;

  Bmp: TBitmap;

  MyFormat : Word;

  AData: Cardinal;

  APalette : HPalette;

 

begin

  Stream:= TMemoryStream.Create;

  Png:= TPngImage.Create;

  Bmp:= TBitmap.Create;

  try

    if EhCNPJ then

      ACBrConsultaCNPJ1.Captcha(Stream)

    else

      ACBrConsultaCPF1.Captcha(Stream);

    Png.LoadFromStream(Stream);

    Png.CopyToBmp(bmp);

    bmp.SaveToClipboardFormat(MyFormat,AData,APalette);

    Image1.Picture.LoadFromClipboardFormat(MyFormat,AData,APalette);

 

    EditCaptcha.Clear;

    EditCaptcha.SetFocus;

  finally

    Stream.Free;

    Png.Free;

    Bmp.Free;

  end;

end;

[Valter Godoy]

Bom dia.

 

Utilizando o Xe2, é possível usar uma variável do Tipo TWICImage, Windows Imaging Component, declarando a unit Vcl.Graphics, ficando assim:

 

var

  Stream: TMemoryStream;

  Image: TWICImage;

begin

  Stream := TMemoryStream.Create;

  Image := TWICImage.Create;

  try

    ACBrConsultaCNPJ.Captcha(Stream);

    Image.LoadFromStream(Stream);

    Image1.Picture.Assign(Image);

    EditCaptcha.Clear;

    EditCaptcha.SetFocus;

  finally

    Stream.Free;

    Image.Free;

  end;

[Eliomar0910]

Tudo perfeito, ajustei uma para quando o Endereço Eletrônico estava em branco esta ficando no lugar do campo a String "TELEFONE", ajustei para ficar em branco o Endereço Eletrônico quando não tiver no receita federal. 

Por exemplo o CNPJ: 00.394.528/0001-92.

 

ACBrConsultaCNPJ.rar

[Leao]

Atualizei re-compilei mas continua informando erro

raised exception class EJPEG with message 'JPEG error #53'

 

Interessando o consulta cpf estar funcionando normalmente.

 

Olá Juliomar por favor, verifique novamente...

 

uso delphi 7

 

Obrigado,

Leão

[Rafael Dias]

Cara delphi 7 não tem suporte nativo para PNG você precisar usar uma classe de terceiros, pois infelizmente os sites do governo so mandam imagens em png.

[Juliomar Marchetti]

Atualizou, limpou sua maquina com bat reinstalou ou rodou com ACbr install e dai rodou o demo?

se não fez faça!

[Aurino]

Compilou normalmente na versão do Delphi XE2.

[Leao]

Olá Rafael Dias, estava com o mesmo problema na consultacpf, mas foi solucionado conforme

componente PGNImage, estar funcionando perfeitamente, no ConsultaCNPJ,

ocorre erro #53 ao tentar captura caption.

 

Juliomar, se atualizei tudo, re-compilei, mas continua o mesmo erro, inclusive estou testando no exemplo consultacnpj

 

Obrigado,

Leão

[Leao]

Pessoal conforme solução para consultacpf, adaptei para consultacnpj e deu certo, primeiro leia o link:

 

e baixe o PNGimage.zip

logo abaixo explica como instalar...

 

depois informe na classe uses

 

uses
  PNGImage,
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons,
  ACBrBase, ACBrSocket, ACBrConsultaCNPJ, Mask;
 

 

substitua a sua por estar:

 

procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject);
var
  Stream: TMemoryStream;
//  Jpg: TJPEGImage;
  ImgArq: String;
begin
  Stream:= TMemoryStream.Create;
//  Jpg:= TJPEGImage.Create;
  try
    ACBrConsultaCNPJ1.Captcha(Stream);
//    Jpg.LoadFromStream(Stream);
//    Image1.Picture.Assign(Jpg);
    ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png';
    Stream.SaveToFile( ImgArq );
    Image1.Picture.LoadFromFile( ImgArq );

    EditCaptcha.Clear;
    EditCaptcha.SetFocus;
  finally
//    Stream.Free;
//    Jpg.Free;
    Stream.Free;
  end;
end;
 

 

deu certo,

 

Obrigado,

Leão

[chico_ponce]

Bom Dia !!!

 

Estou com o mesmo problema do membro acima 

 

Ao abrir o aplicativo apresenta esse erro:  JPEG error: #53.

 

Alguem tem a solução ? Obrigado ate o momento