Rafael Dias 864 Report post Posted January 29, 2015 Delphi 7 não tem suporte nativo a PNG precisa de uma outra classe. Rafael Dias Ajude o Projeto ACBr crescer - Assine o SAC Desenvolvedor ACBrLib. Share this post Link to post Share on other sites
Leao 32 Report post Posted January 30, 2015 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... Share this post Link to post Share on other sites
EMBarbosa 2,897 Report post Posted January 30, 2015 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 Elton Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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
Leao 32 Report post Posted February 2, 2015 (edited) 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 February 2, 2015 by Leao Share this post Link to post Share on other sites
Daniel Simoes 7,363 Report post Posted February 2, 2015 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.. Daniel Simões de Almeida Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Share this post Link to post Share on other sites
Leao 32 Report post Posted February 2, 2015 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
Daniel Simoes 7,363 Report post Posted February 3, 2015 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 Daniel Simões de Almeida Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Share this post Link to post Share on other sites
Leao 32 Report post Posted February 3, 2015 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 1 Share this post Link to post Share on other sites
armando.boza 54 Report post Posted February 19, 2015 Obrigado, aqui funcionou. Londrina - PR Share this post Link to post Share on other sites
jemaximo 2 Report post Posted February 25, 2015 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. Share this post Link to post Share on other sites
Marcelo T 1 Report post Posted March 5, 2015 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
datilas 79 Report post Posted March 6, 2015 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
Leao 32 Report post Posted March 6, 2015 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
Marcelo T 1 Report post Posted March 6, 2015 Utilizei a sugestão do colega DATILAS e funcionou 100%! Muito obrigado! E obrigado pela atenção, Leão! Share this post Link to post Share on other sites
abramoski 0 Report post Posted March 31, 2015 (edited) Bom dia, alguém pode me passar as fontes deste projeto? Utilizo Delphi 7 Não estou conseguindo atualizar pelo svn... Edited March 31, 2015 by abramoski Share this post Link to post Share on other sites
Leao 32 Report post Posted March 31, 2015 http://www.projetoacbr.com.br/forum/index.php?app=core&module=attach§ion=attach&attach_id=12068 Leão Share this post Link to post Share on other sites
abramoski 0 Report post Posted March 31, 2015 http://www.projetoacbr.com.br/forum/index.php?app=core&module=attach§ion=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. Share this post Link to post Share on other sites
Leao 32 Report post Posted March 31, 2015 Na verdade não estou entendendo mas o caminho do svn https://svn.code.sf.net/p/acbr/code/trunk Share this post Link to post Share on other sites
abramoski 0 Report post Posted April 2, 2015 Leao agradeço consegui atualizar e a consulta funcionou certinho. Obrigado Share this post Link to post Share on other sites
abramoski 0 Report post Posted April 10, 2015 Bom dia, a consulta de alguém parou de funcionar também? Tanto do cfp quanto cnpj parou... Da erro no download da imagem Share this post Link to post Share on other sites
Leao 32 Report post Posted April 10, 2015 Olá, testei agora as (10:54:00) 10/04/2015 e estar normal.... Share this post Link to post Share on other sites
abramoski 0 Report post Posted April 10, 2015 (edited) 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 April 10, 2015 by abramoski Share this post Link to post Share on other sites
abramoski 0 Report post Posted April 13, 2015 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
Leao 32 Report post Posted April 13, 2015 Olá, tem algum bloqueio com certeza, aqui estar normal... https://svn.code.sf.net/p/acbr/code/trunk veja isso... Share this post Link to post Share on other sites
abramoski 0 Report post Posted April 13, 2015 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