Consulta De Cpf (Receita Fazenda)

[Rafael Dias]

Delphi 7 não tem suporte nativo a PNG precisa de uma outra classe.

[Leao]

Olá EMBarbosa, que dizer

 

procedure TACBrConsultaCPF.Captcha(Stream: TStream);

begin

  try

    HTTPGet('http://www.receita.f...rCaptcha.asp');

    if HttpSend.ResultCode = 200 then

    begin

      HTTPSend.Document.Position := 0;

      Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size);

      Stream.Position := 0;

    end;

  Except on E: Exception do begin

    raise EACBrConsultaCPFException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message);

  end;

  end;

end;

 

 

sobre o erro não encontra PNGImage.dcu

 

inclusive baixe ACBrConsultaCPF.rar

continua o mesmo erro.

 

 

uso delphi7

 

Obrigado, se alguém conseguio por favor...

[EMBarbosa]

Não sei se leu o que o Daniel disse, mas ele já corrigiu no SVN.

Não é necessário aplicar nenhuma rotina.

Basta fazer o download pelo SVN, se certificar que seus arquivos não foram modificados e pronto.

[Leao]

Olá EMBarbosa desculpe minha ignorância, atualizei pelo SVN, revision 8266 (em 02/02/2015) e compilei,

uso delphi7, e continua informando

file not found: 'PNGImage.dcu'

linha 6

estou testando exemplo da pasta

D:\Acbr\Exemplos\ACBrConsultaCPF\Delphi

 

Obrigado...

Leão

Editado 2 Fevereiro, 2015 por Leao

[Daniel Simoes]

O Delphi 7 não tem suporte a PNG... (a PNGImage.dcu não vem com o mesmo)

 

você precisaria usar uma Unit de terceiros para isso..

[Leao]

Olá Rafael Dias, cara você tem tal classe messionada.

Daniel Simoes, tem algum exemplo?

Pessoal que conseguio resolver o problema, por favor detalhe estou nessa pendência ainda...

 

 

Obrigado,

Leão

[Daniel Simoes]

Veja o que o Google me indicou:

 

http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_27284549.html

 

www.torry.net/pages.php?id=107

[Leao]

Valeu Daniel Simoes, agora funcionou certinho baixei componente open sounce, em anexo.

compilei o demo do consultacpf e deu certo.

 

Para instalar o componente:

 

01 - abra o zip em uma pasta qualquer;

02 - "Tools" menu and select the item "Enviroment Options";

 

Solicita que coloque os:

{$L obj\deflate.obj}
{$L obj\infback.obj}
{$L obj\inffast.obj}
{$L obj\inflate.obj}
{$L obj\inftrees.obj}
{$L obj\trees.obj}
{$L obj\compress.obj}
{$L obj\crc32.obj}
na pasta obj

 

se ao compilar ocorrer erro desses arquivos acima, modifiquei para o caminho da pasta

 

{$L D:\Componentes\PNG_IMAGE\adler32.obj}
{$L D:\Componentes\PNG_IMAGE\deflate.obj}
{$L D:\Componentes\PNG_IMAGE\infback.obj}
{$L D:\Componentes\PNG_IMAGE\inffast.obj}
{$L D:\Componentes\PNG_IMAGE\inflate.obj}
{$L D:\Componentes\PNG_IMAGE\inftrees.obj}
{$L D:\Componentes\PNG_IMAGE\trees.obj}
{$L D:\Componentes\PNG_IMAGE\compress.obj}
{$L D:\Componentes\PNG_IMAGE\crc32.obj}
 

pronto, se alguém tiver o mesmo problema e não conseguir posta aqui, estou pronto...

uso delphi7

Quem abri o post se quizer fechar como Resolvido, faça.

 

Obrigado,

Leão

 

 

 

 

 

 

 

 

pngimage.zip

[armando.boza]

Obrigado, aqui funcionou.

[jemaximo]

O Delphi 7 não tem suporte a PNG... (a PNGImage.dcu não vem com o mesmo)

 

você precisaria usar uma Unit de terceiros para isso..

Boa noite ,

Dá uma olhada nesse link : http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_27284549.html

Foi a solução que encontrei.

[Marcelo T]

Leão, por favor, onde vc colocou o caminho dos obj? Eu substitui no unico lugar que encontrei, foi na "zlibpas.pas"... em "Environment Options", eu apenas adicionei o caminho em "Library path"... mas pra mim continua dando erro "Undeclared identifier: TPngImage" ao tentar compilar o demo do consulta cnpj Utilizo delphi7, o demo, o ACBrConsultaCNPJ.pas foram atualizados e o ACBrTCP foi recompilado... não sei onde estou errando, se puderem me ajudar, eu agradeço.

[datilas]

Leão, por favor, onde vc colocou o caminho dos obj? Eu substitui no unico lugar que encontrei, foi na "zlibpas.pas"... em "Environment Options", eu apenas adicionei o caminho em "Library path"... mas pra mim continua dando erro "Undeclared identifier: TPngImage" ao tentar compilar o demo do consulta cnpj Utilizo delphi7, o demo, o ACBrConsultaCNPJ.pas foram atualizados e o ACBrTCP foi recompilado... não sei onde estou errando, se puderem me ajudar, eu agradeço.

tenta assim:

[Leao]

Olá Marcelo, desculpe a demora...

 

 

o arquivo é isso mesmo zlibpas.pas

 

implementation

//D:\Componentes\PNG_IMAGE

//{$L obj\adler32.obj}

//Pessoal essa pasta é onde estar o componente

{$L D:\Componentes\PNG_IMAGE\adler32.obj}

{$L D:\Componentes\PNG_IMAGE\deflate.obj}

{$L D:\Componentes\PNG_IMAGE\infback.obj}

{$L D:\Componentes\PNG_IMAGE\inffast.obj}

{$L D:\Componentes\PNG_IMAGE\inflate.obj}

{$L D:\Componentes\PNG_IMAGE\inftrees.obj}

{$L D:\Componentes\PNG_IMAGE\trees.obj}

{$L D:\Componentes\PNG_IMAGE\compress.obj}

{$L D:\Componentes\PNG_IMAGE\crc32.obj}

//{$L obj\deflate.obj}

//{$L obj\infback.obj}

//{$L obj\inffast.obj}

//{$L obj\inflate.obj}

//{$L obj\inftrees.obj}

//{$L obj\trees.obj}

//{$L obj\compress.obj}

//{$L obj\crc32.obj}

function adler32(adler: LongInt; const buf: PChar; len: Integer): LongInt; external;

 

 

sobre a instalação é assim:

 

No delphi7

01 - This time, go to the "Tools" menu and select the item "Enviroment Options".

02 - Click on the "Library" page

       e informe o caminho da pasta....

Somente isso.

Leão

 

[Marcelo T]

Utilizei a sugestão do colega DATILAS e funcionou 100%! Muito obrigado!

E obrigado pela atenção, Leão!

[abramoski]

Bom dia, alguém pode me passar as fontes deste projeto? Utilizo Delphi 7

Não estou conseguindo atualizar pelo svn...

Editado 31 Março, 2015 por abramoski

[Leao]

http://www.projetoacbr.com.br/forum/index.php?app=core&module=attach&section=attach&attach_id=12068

 

Leão

[abramoski]

http://www.projetoacbr.com.br/forum/index.php?app=core&module=attach&section=attach&attach_id=12068

 

Leão

Leao obrigado, mas gostaria da fonte atualizado do projeto ACBrConsultaCPF.pas e do teste,  ou o link para poder atualizar meu svn.

[Leao]

Na verdade não estou entendendo mas o caminho do svn

https://svn.code.sf.net/p/acbr/code/trunk

[abramoski]

Leao agradeço consegui atualizar e a consulta funcionou certinho. Obrigado

[abramoski]

Bom dia, a consulta de alguém parou de funcionar também? Tanto do cfp quanto cnpj parou... Da erro no download da imagem

[Leao]

Olá, testei agora as (10:54:00) 10/04/2015 e estar normal....

[abramoski]

Olá, testei agora as (10:54:00) 10/04/2015 e estar normal....

Pode me passar seu fonte ou executavel para eu testar? O meu parou de funcionar hoje... 

Erro HTTP: 500

URL: http://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/CPF/captcha/gerarCaptcha.asp

 

E se eu acesso esse link pelo explore aparece o Captcha

Editado 10 Abril, 2015 por abramoski

[abramoski]

Alguém pode me ajudar com duas situações? 

 

1- Consulta não retorna o captcha ERRO HTTP: 500. (Antivirus e Firewall desativados)

2- Não consigo atualizar nenhuma fonte do Acbr, quando clico SVN Update pelo Tortoise me dá o erro:

Unable to connect to a repository at URL

 'svn://svn.code.sf.net/p/acbr/code/trunk'

Unknown hostname 'svn.code.sf.net'

[Leao]

Olá, tem algum bloqueio com certeza, aqui estar normal...

https://svn.code.sf.net/p/acbr/code/trunk

 

veja isso...

[abramoski]

Que tipo de bloqueio pode ser? O estranho é que estava funcionando normalmente, e logo a consulta parou de funcionar e nem atualizar os fontes também não consigo. Não sei se tem alguma ligação..