Silvio Vale

Vou testar. Muito obrigado!!

Ok, Vou refazer o código e realizar novo teste. Obrigado!

Somente não enviei o token no exemplo que postei aqui no fórum, mas na aplicação eu envio sim. Veja... jsonObjClient := TJSONObject.Create; jsonObjClient.AddPair('token', 'XXXXXXXXXX'); jsonObjClient.AddPair('id', '22'); jsonObjClient.AddPair('formato', 'JSON');

API https://api.tiny.com.br/api2/pedido.obter.php Documentação https://tiny.com.br/api-docs/api2-pedidos-obter Serviço Obter Pedido No exemplo que enviei acima não consta o dado toke, porém o mesmo consta em nossa aplicação jsonObjClient := TJSONObject.Create; jsonObjClient.AddPair('token', 'XXXXXXXXXX'); jsonObjClient.AddPair('id', '22'); jsonObjClient.AddPair('formato', 'JSON'); Vou verificar com o suporte se eles disponibilizam um token para ambiente de teste. Algo semelhante a isso: curl --location 'https://api.tiny.com.br/api2/pedidos.pesquisa.php?token=700576c1b554d758863e7b399398c7de888566bbd4c5972808338a7bd3940b6a&formato=json' \ --header 'Cookie: __cf_bm=B.Fmxnhyz1N7ShQ21vRvh108f0.PXEK9BAo_aH6xMvc-1729513669-1.0.1.1-KvcHD2DkHzzSkDNnJY9yT2zJsAm9us5gTLv19yKnNk8wjgbLTdPW2eUXDB_xTk8p94sfLIEwH2f1PAoqIKr5mQ'

Não. A API é publica sim. O problema é que não estamos conseguindo identificar um determinado erro e a empresa que desenvolveu a API nos solicitou o curl --location para nos ajudar a identificá-lo. Arimateia, Realmente eles estão solicitando cURL completo.

Entendi.. Obrigado!!

Bom dia! Sou iniciante no projeto ACBr e estou utilizando o componente TAcbrHTTp para consumir uma API conforme exemplo abaixo. Gostaria de saber como faço para verificar o conteúdo da requisição cURL para que eu possa conferir os respectivos dados enviados. Procurei no fórum e não encontrei algo semelhante. var httpSend : TAcbrHTTp; stmParametros: TStringStream; jsonObjClient: TJSONObject; vrURL, vrRetorno: String; begin jsonObjClient := TJSONObject.Create; jsonObjClient.AddPair('id', '22'); jsonObjClient.AddPair('formato', 'JSON'); vrURL := 'https://xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; httpSend := TACBrHTTP.Create(nil); try stmParametros := TStringStream.Create(jsonObjClient.ToString); try try httpSend.HTTPSend.Clear; httpSend.HTTPSend.MimeType := 'application/json'; httpSend.HTTPSend.Headers.Add('authorization:Bearer xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'); httpSend.HTTPSend.Headers.Add('Accept-Charset: utf-8'); httpSend.HTTPSend.Document.LoadFromStream(stmParametros); httpSend.HTTPPost(vrURL); except on E: Exception do begin Application.ProcessMessages; ShowMessage(E.Message); end; end; vrRetorno := Trim(httpSend.RespHTTP.Text); finally FreeAndNil(httpSend); end; finally FreeAndNil(httpSend); end; end;