Ir para conteúdo
  • Cadastre-se

dev botao

Consulta De Cpf (Receita Fazenda)


schrsistemas
Ver Solução Respondido por Gelson Borsoi,
  • Este tópico foi criado há 3320 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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...
Link para o comentário
Compartilhar em outros sites

  • Consultores

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
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 para o comentário
Compartilhar em outros 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

Editado por Leao
Link para o comentário
Compartilhar em outros sites

  • Fundadores

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
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link para o comentário
Compartilhar em outros sites

  • Fundadores

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

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link para o comentário
Compartilhar em outros 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

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • 2 semanas depois ...
  • Membros Pro

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.

Link para o comentário
Compartilhar em outros 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:

Link para o comentário
Compartilhar em outros 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

 

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • Membros Pro

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 por abramoski
Link para o comentário
Compartilhar em outros sites

  • Membros Pro

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'
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3320 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...