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.