cUrl:="https://pos-api.ifood.com.br/oauth/token"
cMetodo="POST"
oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0" )
oServer:Open( cMetodo, cURL, .F. )
oServer:SetRequestHeader("accept", "application/json")
oServer:SetRequestHeader("Content-Type", "x-www-form-urlencoded")
cJson = '{"client_id":"usersofthose",;
"client_secret":"senhasofthouse",;
"grant_type":"password",;
"username":"userRestaurante",;
"password","senhaRestaurante"}
oServer:Send( cJson )
cRetorno := oServer:ResponseBody()
Recebo como retorno caracteres estranhos quando deveria receber o Jason com o token possivelmente em base64. Se mudo content-type recebo erro HTTP 401.
Enfim, se alguém tiver alguma dica. O suporte do IFOOD é só via formulário e demora muito, para quem esta desenvolvendo ter um canal direto é o ideal, via formulário mata o pião.