Leao

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

Na verdade não estou entendendo mas o caminho do svn https://svn.code.sf.net/p/acbr/code/trunk

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

Luciano, veja no seu fonte se estavar execultado status serviços.... Leão

Olá Apóstolo Pereira, na verdade isso é configuração no gmail, digo na conta entre na conta gmail e na opção CONTA para funcionar precisei liberar a opção "Acesso para aplicativos menos seguros" nas configurações de segurança da conta. Sem isso, não envia de jeito nenhum.

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

Olá Chico_ponce, faça conforme o tópico acima(Leão), que dar certo sim. Obrigado, Leão

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

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

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

Olá Ferdinan, é simples resolver isso, no montante de titulos no contas a receber começe a gerar boletos, confome os dados e etc, vai gerando o boleto, com digito 1, depois o 2 e assim conseguentemente... Fiz assim rapindinho... Leão

Olá Jdazevedo, uma pergunta qual provedor usa para enviar, lembro que tive problema quando usa de outro provedor exemplo da uol, o que realmente funciou 100% e da gmail. Então o e-mail responsavel sempre crio um da gmail e funciona normalmente, vejas as configurações Host=smtp.gmail.com Porta=465 Usuá[email protected] SMTP exige conexão segura Cara dessa maneira funciona. Mas continue postando até achar uma solução... Leão

Olá LDRabelo, veja que ao consultar pelo site da Receita da Fazenda, lá exige captcha, vamos usar assim mesmo, alguma dúvida sobre isso se for usa delphi7 veja o link lá tem baste detalhes... Obrigado, Leão

Pode ser configuração no e-mail que você estar enviando, faça uma busca aqui, já passei por isso, principalmente se o e-mail for novo, em configurações entrada, acho que é por ali... Leão

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

Olá Juliana, em anexo, página 7 estar com o nome "SEU NÚMERO" tamanho 10, mas na homologação não passa modifiquei para 9 e passou. ACBrBancoNordeste.pas Linha 247 padL( NumeroDocumento, 9) + //o correto é 10, mas para corrigir inf.9 No manual informa 10 caracteres, Obrigado, Leão Manual Leiaute Bco_Nordeste CNAB400 v2 0-1.rar

Valeu Juliomar.

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

Olá Juliana Tamizou, atualizar SVN banco do nordeste, em anexo acima... Obrigado, Leão

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

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

Olá pessoal fiz uma pequena correção no numerodocumento que estar com tamanho 10, mas o correto é 9. Na linha 247 padL( NumeroDocumento, 9) + //o correto é 10, mas para corrigir inf.9 Conforme manual página 6, informa 7 mas com 9 passou na homologação. uso delphi7 Em anexo, por favor moderadores testar e subir... ACBrBancoNordeste.rar Obrigado, Leão

Olá pessoal, apliquei a rotina acima, e continua dando erro PNGImage.dcu Atualizei re-compilei o ACBrTCP.dpk e contiua o erro acima informado Uso delphi7. estou usando o exemplo atualizado revision 8255 Obrigado e aguardo... Leão

Olá, uso remessa bradesco a vários anos, já ocorreu recentemente essa mensagem, na verdade era o tamanho do arquivo, tenta renomear para um nome menor, outro detalhe o nome da cidade BRAGANÇA, tenta tirar o Ç. Obrigado, Leão

Geralmente o banco cobra uma taxa, mas o usuário faz isso no próprio site do banco. Leão