Amigos, boa noite!
Estou precisando consumir uma API de terceiros que tem autenticação com Token Bearer. Não estou conseguindo fazer pelo HTTPSGet (https://tdn.totvs.com/display/tec/HTTPSGet). Alguém já passou por isso?
Amigos, boa noite!
Estou precisando consumir uma API de terceiros que tem autenticação com Token Bearer. Não estou conseguindo fazer pelo HTTPSGet (https://tdn.totvs.com/display/tec/HTTPSGet). Alguém já passou por isso?
Consegui pelo próprio HTTPSGet. Ficou assim:
cUrl := "https://minha_url"
aHeadOut := {}
aadd(aHeadOut,"Content-Type: application/json")
aadd(aHeadOut,"Authorization: Bearer TOKEN")
cRetGet := HTTPSGET(cUrl,"","","","search=AD%3D"+DtoS(dDataBase-1)+"%20OR%20ZD%3D"+DtoS(dDataBase-1)+"&size=250",120,aHeadOut,@cHeadRet)
FwJsonDeserialize(cRetGet,@oJson)
Achava que era obrigatório passar um certificado digital, mas vi que não precisava. Passei o token no Header e funcionou perfeitamente.
Bom dia Raphael, só tenha atenção a função FwJsonDeserialize, pois foi descontinuada(https://tdn.totvs.com/display/public/PROT/FWJsonDeserialize+-+Deserializa+uma+string+no+formato+JSON) , atualmente acredito que o recomendado seja usar a classe JsonObject e FwRest.
— Douglas Bichir 21 de Nov de 2019Bom dia, Douglas. Tinha visto que a rotina havia sido descontinuada, mas ainda não tinha testado este novo formado com JsonObject. Vou testar! Obrigado ai pela ajuda.
— Raphael Neves Pinheiro 21 de Nov de 2019