toninhonunes

A solução alternativa que veio daqui eu consegui fazer funcionar no Delphi 7, está perfeito.

Blz, não analisei porque realmente é necessário o decode ali, simplesmente só troquei de lib por outra, mas se não precisa, então é melhor refatorar e reduzir as dependências.

Olá, testei o meu cpf e veio dados completos. Eu coloquei o synapse por ser o padrão do acbr, já aprendi a usá-lo, tirei o Indy totalmente dos meus projetos.

Alterei uma linha do código para tirar dependência do Indy. Adicionei a Unit synacode.

Valeu colega, funcionou, achei o resource.

Instalei o webview4Delphi, compilou e rodou ok no Delphi 7. Baixei o consulta=cpf.rar descompactei, fiz os ajustes para o Delphi 7, mas está dando um erro com a falta de um resource chamado ACBrConsultaCPFServicos.res que está sendo referenciado na unit ACBrConsultaCPF.pas, alguém conseguiu rodar esse exemplo? Podem me indicar o caminho? obrigado.

Pessoal, Não sei se estão tendo problemas, mas a busca por CPF também parou de funcionar.

Os links são estes: https://www.loja.serpro.gov.br/consultacnpj https://apicenter.estaleiro.serpro.gov.br/documentacao/consulta-cnpj/ R$ 0,63 centavos a consulta, nenhum cliente quis pagar.

Eu já havia colocado um aviso nessa tela aos clientes que o serviço pode ficar indisponível a qualquer momento e que isso não faz parte do serviço de nosso sistema por ser uma busca externa, um atalho facilitador, aí quando exigem, mando o serviço de API do SERPRO que cobram por consultam, aí recuam. Antonio Nunes

Vou encerrar como resolvido, a biblioteca é fantástica, poderia ser mais popular se tivesse muitos exemplos. usar SMTP é fácil, mas trocar dados com API que creio que falta mais documentação neste segmento, mas ela é enxuta e perfeita, já tirei o Indy10 e usando a synapse.

Olá, Eu consegui fazer funcionar, mas com muito custo, a forma que estou usando é muito acesso a API JSON, estou tendo que transformar arquivos em anexos TFileStream em Base64 com UTF8. Penei bastante pra fazer funcionar. A documentação da synapse nesse sentido fica a desejar. Realmente a lib é simples e prática. O Indy tem muita coisa e também está defasado em relação ao OPENSSL, cada um criar IOhandler pra lidar com Openssl e isso se tornou um saco. E só uso httpsend na maioria dos casos. Eu não uso SMTP para enviar emails, estou usando uma API da SendGrid que consigo enviar em lote um monte de emails, muito mais rápido e prático. Assim que finalizar tudo, divulgado a adaptação, obrigado pela atenção.

Olá, Alguém mais experiente com o synapse pode me ajudar? Estou querendo sair do Indy 10 e ir para o Synapse, mas encontro pouca coisa como usá-lo. Eu atualmente uso o Indy 10 para enviar email pela api da SendGrid mas já está dando dor de cabeça com openssl versões mais recentes, mesmo com o Indy mais atualizado. Com o synapse eu consigo autenticar, mas na hora do envio vem uma mensagem de erro conforme descrito abaixo. //Preenche informações na instancia da classe passando a senha api e parametros de da autenticação. constructor TSendGrid.Create(sApiKey : String = ''); begin fContentId := ''; fFilesName := TStringList.Create; fFileStream:= TList.Create; fTobcc := TStringList.Create; if sApiKey <> '' then fApiKey := Trim(sApiKey); fHTTPSend := THTTPSend.Create; fHTTPSend.Clear; fHTTPSend.Headers.Add('Authorization: Bearer ' + fApiKey); fHTTPSend.Headers.Add('Content-Type: application/json'); fHTTPSend.Headers.Add('Accept: application/json'); fHTTPSend.Headers.Add('Accept-Encoding: gzip, deflate, br'); fHTTPSend.Protocol := '1.1'; fHTTPSend.Sock.SSL.SSLType := LT_TLSv1_2; end; Na hora de enviar eu pego dados montado em Json e jogo pra variável Data que é uma string e jogo no httpsend.Document.Write(), compila e tudo e executa, aí vem o retorno, mas creio que tudo deve ser convertido para base64, enfim, to tentando conhecer essa lib. O Indy é muita coisa para eu usar só um recurso. function TSendGrid.SendMail: Boolean; var Data : string; begin if fTobcc.Count > 999+1 then begin Application.MessageBox('Cada lote de envio deve ter no máximo 999 emails,' + #13#10 + 'faça um loop no seu código para criar lotes nessa ' + #13#10 + 'quantidade para enviar!', 'Aviso !', MB_OK + MB_ICONSTOP + MB_DEFBUTTON2); SysUtils.Abort; end; Data := UTF8Encode(GetJsonMail); fHTTPSend.Document.Clear; fHTTPSend.Document.Position := 0; fHTTPSend.Document.Write(Pointer(Data)^, Length(Data) ); fHTTPSend.Sock.OnStatus := OnStatus; Result := fHTTPSend.HTTPMethod('POST', 'https://api.sendgrid.com/v3/mail/send'); ShowMessage(fHTTPSend.ResultString); end; Eu vejo as mensagens no OnStatus, ele retorna o IP, porta que conectou e uns códigos como esse: 667 606 e por último UNSUPPORTED MEDIA TYPE. Por enquanto eu só envio um texto que está em um Memo. Segue o link da API https://docs.sendgrid.com/api-reference/how-to-use-the-sendgrid-v3-api/authentication Com Indy funciona ok, mas ainda estou aprendendo a lib da synapse.

Olá Colega, Claramente tem erro na lógica, nas versões anteriores a propriedade abaixo funcionava, mas na versão mais nova, ela nem é analisada, pelo menos no layout da caixa, hoje já ouvi reclamação que o juros cobrado foi elevado, isto é, como essa propriedade está morta no código do layout, ele assume valor diário no codigoMora = '1', valor fixo diário. Essa propriedade pelo menos na caixa não é lida. CodigoMoraJuros := cjTaxaMensal; Então, joguei esse valor nessa propriedade que nem eu sabia que tinha, fizeram o lance de conversão, mas ignoraram o CodigoMoraJuros, esse que usei é da caixa, tem que ver qual é do seu banco. CodigoMora := '2'; Vou agora é montar testes de validação pra não ter surpresas. Antonio Nunes

Resolvido, openssl 1.02 atualizado. Obrigado Julionar pela dica.

Olá Pessoal, Fiz o update do acbr com a data do dia 25/11/2022 e a consulta do CPF no acbr está devolvendo esta mensagem de erro, alguns colegas que usam este recurso estão enfrentando este problema? Uso o consultacnpj também e está funcionando normal. Segue anexo a mensagem de erro.

Olá, Achei a solução, o componente do fastreport para o acbr tem uma propriedade chamada AlterarEscalaPadrao := True e resolveu. Antonio Nunes

Olá colega, O meu caso é ao contrário, se imprimo lê tudo normal, mas se exporto para PDF e depois mando imprimir, não lê de maneira alguma, já olhei tudo, se imprimo do fastreport pra impressora PDF do Windows 10 lê normal e perfeito. Eu acho que o PDFexport do FastReport não está escalando o código de barras corretamente. Eu uso FastReport 5.18 original e Delphi 7 Enterprise. Realmente não sei onde está ocorrendo este problema. Antonio Nunes

Eu tenho o fastreport 5 professional pago com os fontes, então não vai rodar? Hoje roda normal com a versão mais antiga. Antonio Nunes

Olá Pessoal, Já fiz algumas contribuições, mas não sou tão ativo aqui. Quais versões do Delphi hoje o ACBR está compilando? Ainda estão suportando o Delphi 7? Eu já li a notícia de 2016 e percorri vários posts de notícias mas não vi uma notícia que já não é mais suportado. Valeu, obrigado. Antonio Nunes

Olá, só remover essa Unit, é só uma lib de debug que uso, quando atualizar o repositório irei remover isso. Antonio Nunes

Olá Pessoal, Fiz uma Unit de integração com para enviar SMS pela REST API da ZENVIA, quem quiser utilizar está disponível em https://github.com/toninhonunes/uzenvia . Não testei em versões mais novas, mas é possível adaptar. Antonio Nunes

Olá Pessoal, Quem precisa enviar muitos emails usando o SendGrid, tive que fazer uma Unit para integrar com a minha conta na SendGrid, agora consigo enviar muitos emails em massa usando essa Unit, como ainda tenho legado em Delphi 7, esta é última versão que estarei utilizando, hoje desenvolvo muito usando Python, mas tenho grandes projetos ainda rodando em Delphi 7, portanto em muitas ocasiões eu tenho que estar portando ou fazendo do zero integrações com novas tecnologias, segue o source code no github. https://github.com/toninhonunes/usendgrid Toninho Nunes

Olá, Estou com uma impressora Data Check Menno e olhando as opções de impressoras de cheque não achei a mesmo, consigo usar o componente ACBRCHQ para esta impressora? Alguém tem alguma configuração pronta para aplicar neste componente? Obrigado. Antonio Carlos.

Olá, Alguém está enfrentando problemas para consultar cnpj? Uma hora é erro de captcha, outrora é erro do link da receita não retornando nada, tem hora que funciona. Uso Windows 32 bits e openssl 1.0.2. Antonio.

Olá Colegas, Mudou tudo, estou adaptando agora a nova realidade, vai a dica, a sindical vai usar o SIGCB padrão, porém algumas coisas a mais no arquivo remessa serão obrigatórias, estou adaptando ainda, por enquanto o antigo ainda está sendo compensado. Toninho Nunes