(Lianja) Moody's REST API - Get OAuth2 Token

See more Moody's Examples

Demonstrates how to get an OAuth2 access token for the Moody's REST API.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loHttp = createobject("CkHttp")

loReq = createobject("CkHttpRequest")
loReq.AddParam("grant_type","password")
loReq.AddParam("scope","api/ratings api/addin rest")
loReq.AddParam("username","my_username")
loReq.AddParam("password","my_password")
// I have no idea of where to get the client_id or client_secret.
// When you create a Moody's App, it only provides an "API Key".
loReq.AddParam("client_id","my_client_id")
loReq.AddParam("client_secret","my_client_secret")

loResp = loHttp.PostUrlEncoded("https://api.moodys.com/OAuth/Token",loReq)
if (loHttp.LastMethodSuccess <> .T.) then
    ? loHttp.LastErrorText
    release loHttp
    release loReq
    return
endif

? "status code = " + str(loResp.StatusCode)
lcResponseBody = loResp.BodyStr
? lcResponseBody

// Save the JSON to a file for future requests.
if (loResp.StatusCode = 200) then
    loFac = createobject("CkFileAccess")
    loFac.WriteEntireTextFile("qa_data/tokens/moodys.json",loResp.BodyStr,"utf-8",.F.)
endif

release loResp


release loHttp
release loReq
release loFac