Uso de API autenticacao de token

[Alexandre Silva]

pessoal
Porque com as mesmas chaves e cofiguracoes, funciona no Postman
e nao funciona no aplicativo ?

retorna
{
"error":"invalid_request",
"error_description":"Missing or duplicate parameters"
}

Código: Selecionar todos

*-------------------------
#include 'inkey.ch'
function main()
local getlist:={},oData:=hb_Hash(),cResposta,oJson,vteste
local curl:='https://apigateway.digitalcomm.com.br:8443/auth/oauth/v2/token'
cls
oData["client_id"]:="b11817f1-36c5-4119-b0a8-d95e8c960e1b"
oData["client_secret"]:="f3b469c2-88a0-4eca-9116-fdc92d936e17"
oData["scope"]:="dclogg-internal"
oData["grant_type"]:="client_credentials"

cResposta:=mandaserv('POST',cUrl, oData)
alert(cresposta)
if at('access_token',cresposta)>0
   varqret:='token.txt'
   HB_MemoWrit(varqret,cresposta)
else
   varqret:='errolog.txt'
   HB_MemoWrit(varqret,cresposta)
   alert('Problemas ! Nao gerou novo login')
endif
retu

*------------------------------
* manda requisicao ao servidor
*------------------------------
function mandaserv(vmetodo,cUrl, oData)
local oWeb, cResposta
oWeb := win_OleCreateObject( "MSXML2.ServerXMLHTTP" )
oWeb :Open(vmetodo, cUrl, .F. )
oWeb :SetRequestHeader( "Content-Type","application/x-www-form-urlencoded")
oWeb :Send( hb_JsonEncode( oData ) )
oWeb :WaitForResponse( 300 )
cResposta := oWeb:ResponseBody()
return cResposta