Jump to content

Promoção de Natal SAC Mensal

Contrate e ganhe 1 Kit agenda + Caneta
Saiba mais

LANÇAMENTO
Curso Completo - Dominando o ACBrMonitor

Conheça o Curso

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

schrsistemas

ANSWERED Consulta De Cpf (Receita Fazenda)

Recommended Posts

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


Consultor SAC ACBr Rafael Dias
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Desenvolvedor ACBrLib.

 

Share this post


Link to post
Share on other sites

Olá EMBarbosa, que dizer

 

procedure TACBrConsultaCPF.Captcha(Stream: TStream);
begin
  try
    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...

Share this post


Link to post
Share on other sites

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.


[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

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.

Share this post


Link to post
Share on other sites

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

Edited by Leao

Share this post


Link to post
Share on other sites

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


Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

  • Like 1

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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:

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

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

Não estou conseguindo atualizar pelo svn...

Edited by abramoski

Share this post


Link to post
Share on other sites

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

Edited by abramoski

Share this post


Link to post
Share on other sites

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'

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...