FWOAUTHCLIENT Metodo GET

Framework - Linha Protheus LIB
1

Boa tarde galera! Alguem tem um exemplo do uso do FWOAUTHCLIENT ou FWOAuth1Fluig metodo GET para compartilhar? Desde já agradeço!

2

Possuo um exemplo de alguns anos atrás onde validei o funcionamento no facebook, segue abaixo.

#Include "protheus.ch"
#Include "parmtype.ch"

User Function XAUTH1()

	Private cCosmKey	:= ""
	Private cCosmSct	:= ""
	Private cRequUrl	:= "https://graph.facebook.com/oauth/access_token"
	Private cAuthUrl	:= "https://www.facebook.com/dialog/oauth"
	Private cAcceUrl	:= "https://graph.facebook.com/me/feed"
	Private cCallUrl	:= "http://localhost:8082/oauthcallback"
	
	Exec()
	
Return

Static Function Exec()

	Local oAutUrl		:= Nil
	Local oAutCli		:= Nil
	Local cResult		:= ""
	
	oAutUrl := FWoAuthURL():New(cRequUrl, cAuthUrl, cAcceUrl)
	
	oAutCli := FWoAuthClient():New(cCosmKey, cCosmSct, oAutUrl, cCallUrl)
	
	cResult := oAutCli:Post(cRequUrl) 
	
	VarInfo("cResult", cResult)

Return

Espero ter te ajudado !!

:slight_smile:

3

Bom Dia!

Obrigado @Pova , ajudou demais!

Aproveito para compartilhar abaixo o exemplo do GET que estou utilizando. Trata-se de uma integração com o Fluig via REST com autenticação OAuth 1.0:

#INCLUDE "TOTVS.CH"
#INCLUDE "TOPCONN.CH"
#Include 'RestFul.ch'
#Include "parmtype.ch"

User Function YXAUTH1()

	Private cCosmKey	:= "CONSUMER_KEY"
	Private cCosmSct	:= "CONSUMER_SECRET"

    Private cOAAToken   := "TOKEN_KEY" // OAUTH Access Token
    Private cOATSecret  := "TOKEN_SECRETO"//OAUTH Token Secret
	Private cRequUrl	:= "https://fluig.xxxxxxxxxx.com.br:8443"
	Private cAuthUrl	:= "https://fluig.xxxxxxxxxx.com.br:8443"
	Private cAcceUrl	:= "https://fluig.xxxxxxxxxx.com.br:8443"
	Private cCallUrl	:= ""
	
	Exec()
	
Return

Static Function Exec()

	Local oAutUrl		:= Nil
	Local oAutCli		:= Nil
	Local cResult		:= ""
    Local cQuery        := "datasetId=FormEntregaDeDocumentosFiscais"
	
	oAutUrl := FWoAuthURL():New(cRequUrl, cAuthUrl, cAcceUrl)
	
	oAutCli := FWoAuthClient():New(cCosmKey, cCosmSct, oAutUrl, cCallUrl)

    //Define o Token e o SecretToken
    oAutCli:SetToken(cOAAToken)            //Access Token
    oAutCli:SetSecretToken(cOATSecret)     //Token Secret

    cResult := oAutCli:Get( cRequUrl + "/dataset/api/v2/dataset-handle/search", cQuery, /* cBody */, /* aHeadOut */, /* cHeadRet */, /* lUTF8 */ )
	
	//cResult := oAutCli:GET(cRequUrl) 
	
	VarInfo("cResult", cResult)

Return
1 curtida