Autenticação Rest com oAuth 2.0

Segue modelo:

#include "totvs.ch"

user function WSEURO()
  Local cURL := "https://euroteste.com/wc-api/v2/orders"
  Local nTimeOut := 120
  Local aHeadOut := {}
  Local cHeadRet := ""
  Local cGetRet := "consumer_key=ck_0970d5d6304b202e8c1558075c35d002f985fb51&consumer_secret=cs_dbaebbf349d82e2a41ff7f4f8f1bcef4c97262d0"

  // Acrescenta o UserAgent na requisição ...
  // http://tools.ietf.org/html/rfc3261#page-179

  AAdd( aHeadOut, 'User-Agent: Mozilla/4.0 (compatible; Protheus ' + GetBuild() + ')' )
  AAdd( aHeadOut, 'Accept-Encoding: gzip,deflate' )
  AAdd( aHeadOut, 'Host: eurocolchoes.com' )
  AAdd( aHeadOut, 'Connection: Keep-Alive' )

  cGetRet := HTTPSGet( cURL, "", "", "",  cGetRet,nTimeOut, aHeadOut, @cHeadRet, .F. )

  if Empty( cGetRet )
    alert( "Fail HTTPSGet" )
  else
    alert( "OK HTTPSGet" )
  endif

return
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do SigaOAdvpl!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags rest ou faça a sua própria pergunta.