-
Total de ítens
521 -
Registro em
-
Última visita
-
Days Won
2
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por datilas
-
-
18 horas atrás, Daniel Simoes disse:
Isso quebra os eventos implementados com a assinatura anterior, correto ?
na minha opinião e melhor solução é essa:
pois não alterou a assinatura do evento e alterou apenas o unit referente ao sitef,
na minha aplicação a alteração foi mínima.
na procedure ACBrTEFAPI1QuandoPerguntarCampo
eu adicionei:
If (MR = mrRetry) Then
Resposta := '-2';e funcionou perfeitamente.
- 2
-
1 hora atrás, Carlos_Furone disse:
Juliomar, bom dia. Onde eu configuro no ACBRHTTP para aceitar o protocolo TLs 1.3 ?
atualize o acbr e as dlls do openssl que estão em: ..\DLLs\OpenSSL\3.1.3
adicione a uses: blcksock
e faça assim:
ACBrHTTP.HTTPSend.Sock.SSL.SSLType := TSSLType.LT_TLSv1_3;
-
-
o acbrtefapi tambem atende sitef e ja tem topicos para adicinar tef elgin e tef auttar mas esses não tem previsão
lembrando que não tem previsão
-
vc tem libxml2 e libxml2-devel instalado?
-
-
o problema esta na interpretação do base64:
data:image/png;base64,PD94bWwgdmVyc2lvbj0iMS4wIi...
data: é o tipo de arquivo, que no caso é image/png
base64, é o tipo de configuração.
resumindo vc precisa decodificar o texto depois de: "data:image/png;base64," (PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0i.....)esse texto:"data:image/png;base64," server para os navegadores conseguirem interpretar e renderizar o arquivo (png,jpg,pdf etc.)
- 1
-
usando synapse:
Var http: THTTPSend; sURLRedirect: string; Begin http := THTTPSend.Create; Try sURLRedirect := ''; HTTP.HTTPMethod('POST', 'SUAURL'); If (http.ResultCode = 301) or (http.ResultCode = 302) Then Begin HeadersToList(http.Headers); sURLRedirect := http.Headers.Values['Location']; sURLRedirect := Trim(sURLRedirect); End; If sURLRedirect <> '' Then HTTP.HTTPMethod('POST', sURLRedirect); Finally Begin http.Free; End; End; End;
- 2
-
25 minutos atrás, Jefferson Damian disse:
Não sei como está o andamento, mas alguém me disse desse Link
https://consultacnpj.redesim.gov.br/
https://www.gov.br/conecta/catalogo/apis/consulta-cnpj/swagger_cnpj.json/swagger_view
mas pelo que vi precisa fazer login com uma conta GOVSerá que é possível usar essa API?
-
tenta usar :
procedure TForm1.ACBrPSPGerenciaNet1QuandoTransmitirHttp(var AURL, AMethod: string; ReqHeaders: TStrings; ReqBody: AnsiString); begin ReqHeaders.Add('partner-token: seutoken'); end;
mas creio que não há necessidade.
já tentou usar o demo como esta preenchendo ClientId e ClientSecret?
-
não sei qual componente vc esta usando.
mas tente:
jSubObj.TryGetValue<string>('cont_pessoa')
-
1 hora atrás, OldProgramer disse:
Para registrar, adicionei:
vFile := TFileStream.Create('NF16335.pdf', fmOpenRead); // e adicionei no stringlist de envio stEnvio.Add(EncodeBase64(ReadStrFromStream(vFile, vFile.Size))); stEnvio.Add(',"anexoFileName":"NF16335.pdf"'); stEnvio.Add(',"anexoType":"application/octet-stream;base64"'); stEnvio.Add(',"anexoContent":"'+Memo3.Lines.Text+'"');
E o anexo seguiu normalmente.
não seria melhor stEnvio.Add(',"anexoType":"application/pdf;base64"'); ?
para quem usar e-mail em navegador poder ver um resumo ou todo ele sem a necessidade de baixar.
pois os navegadores reconhecem tipos específicos para tarefas especificas.
mas o importante é que esta funcionando.
foi só uma dica.
https://developer.mozilla.org/en-US/docs/Web/HTTP/Basics_of_HTTP/MIME_types/Common_types
- 1
-
-
tenta assim:
seuMD5 := gearMD5('seuUSUARIO:suaSENHA'); Consulta.HTTPSend.Headers.Add('Authorization: Digest ' + seuMD5);
https://en.wikipedia.org/wiki/Digest_access_authentication?
https://forum.lazarus.freepascal.org/index.php?topic=15747.0
-
-
27 minutos atrás, CelsoPires disse:
Entendi , e se ao invés de token for um username e password?
isso seria Basic authentication
Consulta.HTTPSend.UserName := 'usuario'; Consulta.HTTPSend.Password := 'senha';
seria mais fácil se você postar o link da documentação aqui.
se for possível.
-
54 minutos atrás, CelsoPires disse:
Obrigado Datilas,
Então eu devo executar isso? Consulta.HTTPSend.Headers.Add('AUTHORIZATION:digest token');
sim.
mas cuidado com o case sensitive tem servidores que são chatos com isso.
o ideal seria
Consulta.HTTPSend.Headers.Add('Authorization: Digest ' + seuMD5);
inclusive com espaço entre ":" e Digest.
-
pelo que entendi vc tem que gerar um md5 com os dados que eles vão te passar (usuario,senha,uri...)
ai vc envia no header:
Authorization: Digest seuMD5
-
até onde sei só tem ate a versão 4 do firebird.
e uso o zeos 7.2 sem problema
-
dentro do ACBrValidador tem a função FormatarFone( const AValue : String; const DDDPadrao: String = '' String;
ACBrValidador.FormatarFone(Edit1.Text, '65');
- 2
-
no mysql eu uso LONGTEXT para os xml's
-
- 1
-
30 minutos atrás, bnobre disse:
Type TTipoCript = (tcCript, tcDecript);
é só um type que eu criei.
vc pode alterar a função como vc quiser
-
eu uso a função acima. vc pode adaptar para sua necessidade.
ela tem um problema quando o texto tem #13 ou #10 ou #13#10
fora isso funciona do jeito que vc precisa
tive que postar como zip
pois não estava aceitando como texto.
por isso demorei para responder.
ACBrIBPTax : LENTIDÃO NA PESQUISA DA TABELA IBPT
em Dúvidas Gerais sobre o ACBr
Postado · Editado por datilas
dentro de ..\Exemplos\ACBrTCP\ACBrIBPTax\tabela tem as tabelas em csv e sempre são atualizadas pela equipe do acbr, vc poderia usar esses arquivos atualizando de forma off-line ou enviando para seu servidor proprio