(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL loReq
LOCAL loResp
LOCAL lcResponseBody
LOCAL loFac

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest')
loReq = CreateObject('Chilkat.HttpRequest')
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 <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    CANCEL
ENDIF

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

* Save the JSON to a file for future requests.
IF (loResp.StatusCode = 200) THEN
    * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess')
    loFac = CreateObject('Chilkat.FileAccess')
    loFac.WriteEntireTextFile("qa_data/tokens/moodys.json",loResp.BodyStr,"utf-8",0)
ENDIF

RELEASE loResp

RELEASE loHttp
RELEASE loReq
RELEASE loFac