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. Lianja

llSuccess = .F.

// 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")

loReq.HttpVerb = "POST"
loReq.ContentType = "application/x-www-form-urlencoded"

loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpReq("https://api.moodys.com/OAuth/Token",loReq,loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loReq
    release loResp
    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 loHttp
release loReq
release loResp
release loFac