ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

De olho no imposto API (TIdHTTP e RJson)

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
rafaelmch
Novato
Novato


Registrado: Terça-Feira, 26 de Fevereiro de 2019
Mensagens: 1

MensagemEnviada: Ter Fev 26, 2019 2:37 pm    Assunto: De olho no imposto API (TIdHTTP e RJson) Responder com Citação

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!

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
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB