|
ActiveDelphi .: O site do programador Delphi! :.
|
Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
rafaelmch Novato
Registrado: Terça-Feira, 26 de Fevereiro de 2019 Mensagens: 1
|
Enviada: Ter Fev 26, 2019 2:37 pm Assunto: De olho no imposto API (TIdHTTP e RJson) |
|
|
Boa tarde, pessoal!
Tudo bem?
Sou novo aqui e esse é meu primeiro post!
Gostaria de pedir ajuda com um erro.
Estou utilizando a API "De olho no imposto"
https://deolhonoimposto.ibpt.org.br/Site/API#!//Produtos_Get
Delphi Berlim.
Está dando o serguinte erro:
socket error 10054
Estou anexando aqui meu fonte para que possam me ajudar. Desde já, agradeço!
Código: | UrlIbpt:=TIdURI.URLEncode('https://apidoni.ibpt.org.br/api/v1/produtos');
PostData:=TStringList.Create;
PostData.Add('token=LEWz2yub8njqX-cstqzZMRkaTx1u5Hk0GE7x-YEZIZpAok23aCFl2zRpwDbXsWHn');
PostData.Add('cnpj=00068326000150');
PostData.Add('codigo='+DMala.QItensFatIBPTncm.AsString);
PostData.Add('uf='+FrmDadosADO.qempresaceendest.AsString);
PostData.Add('ex=0');
PostData.Add('codigoInterno='+DMala.QItensFatIBPTcodbarra.AsString);
PostData.Add('descricao='+DMala.QItensFatIBPTdescricao.AsString);
PostData.Add('unidadeMedida='+DMala.QItensFatIBPTunidade.AsString);
PostData.Add('valor='+virgula(DMala.QItensFatIBPTtotal.AsString));
PostData.Add('gtin='+Gtin);
try
//Comunica API IBPT
FrmLogoEmpresas.IdHTTPAPI.Request.Clear;
FrmLogoEmpresas.IdHTTPAPI.Request.ContentType := 'application/json';
FrmLogoEmpresas.IdHTTPAPI.Request.Charset := 'utf-8';
FrmLogoEmpresas.IdHTTPAPI.Request.BasicAuthentication := true;
FrmLogoEmpresas.IdHTTPAPI.Request.ContentType:= 'application/json;odata=light;charset=utf-8;';
FrmLogoEmpresas.IdHTTPAPI.Request.Connection:='keep-alive';
FrmLogoEmpresas.IdHTTPAPI.Request.UserAgent:='Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36';
FrmLogoEmpresas.IdHTTPAPI.Request.AcceptEncoding:='gzip, deflate';
FrmLogoEmpresas.IdHTTPAPI.Request.AcceptLanguage:='pt-BR,pt;q=0.8,en-US;q=0.6,en;q=0.4';
FrmLogoEmpresas.IdHTTPAPI.Request.CacheControl:='no-cache';
FrmLogoEmpresas.IdHTTPAPI.HandleRedirects:=True;
FrmLogoEmpresas.IdHTTPAPI.IOHandler:=FrmLogoEmpresas.IdSSLIOHandlerSocketOpenSSL1;
Resposta:=FrmLogoEmpresas.IdHTTPAPI.Post(UrlIbpt, PostData);
//Tratar Json
MyRJson.LoadFromString(Resposta); |
|
|
Voltar ao Topo |
|
|
gerpiruk Novato
Registrado: Quinta-Feira, 11 de Outubro de 2012 Mensagens: 43
|
Enviada: Sex Set 27, 2019 3:02 pm Assunto: Re: De olho no imposto API (TIdHTTP e RJson) |
|
|
Conseguiu resolver? Também estou atras disso!
Sei que o ACBrIBPTax faz isso, mas queria encontrar um meio mais simples, sem instalação de componentes. _________________ Nada poderá nos separar do amor de Deus, que está em Cristo Jesus nosso Senhor. |
|
Voltar ao Topo |
|
|
joemil Moderador
Registrado: Quinta-Feira, 25 de Março de 2004 Mensagens: 9098 Localização: Sinop-MT
|
Enviada: Sex Set 27, 2019 3:25 pm Assunto: Re: De olho no imposto API (TIdHTTP e RJson) |
|
|
rafaelmch escreveu: | Boa tarde, pessoal!
Tudo bem?
Sou novo aqui e esse é meu primeiro post!
Gostaria de pedir ajuda com um erro.
Estou utilizando a API "De olho no imposto"
https://deolhonoimposto.ibpt.org.br/Site/API#!//Produtos_Get
Delphi Berlim.
Está dando o serguinte erro:
socket error 10054
Estou anexando aqui meu fonte para que possam me ajudar. Desde já, agradeço!
Código: | UrlIbpt:=TIdURI.URLEncode('https://apidoni.ibpt.org.br/api/v1/produtos');
PostData:=TStringList.Create;
PostData.Add('token=LEWz2yub8njqX-cstqzZMRkaTx1u5Hk0GE7x-YEZIZpAok23aCFl2zRpwDbXsWHn');
PostData.Add('cnpj=00068326000150');
PostData.Add('codigo='+DMala.QItensFatIBPTncm.AsString);
PostData.Add('uf='+FrmDadosADO.qempresaceendest.AsString);
PostData.Add('ex=0');
PostData.Add('codigoInterno='+DMala.QItensFatIBPTcodbarra.AsString);
PostData.Add('descricao='+DMala.QItensFatIBPTdescricao.AsString);
PostData.Add('unidadeMedida='+DMala.QItensFatIBPTunidade.AsString);
PostData.Add('valor='+virgula(DMala.QItensFatIBPTtotal.AsString));
PostData.Add('gtin='+Gtin);
try
//Comunica API IBPT
FrmLogoEmpresas.IdHTTPAPI.Request.Clear;
FrmLogoEmpresas.IdHTTPAPI.Request.ContentType := 'application/json';
FrmLogoEmpresas.IdHTTPAPI.Request.Charset := 'utf-8';
FrmLogoEmpresas.IdHTTPAPI.Request.BasicAuthentication := true;
FrmLogoEmpresas.IdHTTPAPI.Request.ContentType:= 'application/json;odata=light;charset=utf-8;';
FrmLogoEmpresas.IdHTTPAPI.Request.Connection:='keep-alive';
FrmLogoEmpresas.IdHTTPAPI.Request.UserAgent:='Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36';
FrmLogoEmpresas.IdHTTPAPI.Request.AcceptEncoding:='gzip, deflate';
FrmLogoEmpresas.IdHTTPAPI.Request.AcceptLanguage:='pt-BR,pt;q=0.8,en-US;q=0.6,en;q=0.4';
FrmLogoEmpresas.IdHTTPAPI.Request.CacheControl:='no-cache';
FrmLogoEmpresas.IdHTTPAPI.HandleRedirects:=True;
FrmLogoEmpresas.IdHTTPAPI.IOHandler:=FrmLogoEmpresas.IdSSLIOHandlerSocketOpenSSL1;
Resposta:=FrmLogoEmpresas.IdHTTPAPI.Post(UrlIbpt, PostData);
//Tratar Json
MyRJson.LoadFromString(Resposta); |
|
bem vindo ao forum amigo,
entra em um dos nossos grupos no whats. la tem mais gente pra ajudar
https://chat.whatsapp.com/F46VWWPYQyE9ysvqDXMljD
https://chat.whatsapp.com/invite/FI454X4kR8SDKU30Y7U3nA# _________________ <b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido Editar Mensagens: Proibido. Excluir Mensagens: Proibido. Votar em Enquetes: Proibido.
|
|