(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim http As New Chilkat.Http

Dim req As New Chilkat.HttpRequest
req.AddParam "grant_type","password"
req.AddParam "scope","api/ratings api/addin rest"
req.AddParam "username","my_username"
req.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".
req.AddParam "client_id","my_client_id"
req.AddParam "client_secret","my_client_secret"

Dim resp As Chilkat.HttpResponse
resp = http.PostUrlEncoded("https://api.moodys.com/OAuth/Token",req)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog("status code = " + Str(resp.StatusCode))
Dim responseBody As String
responseBody = resp.BodyStr
System.DebugLog(responseBody)

// Save the JSON to a file for future requests.
If (resp.StatusCode = 200) Then
    Dim fac As New Chilkat.FileAccess
    Dim success As Boolean
    success = fac.WriteEntireTextFile("qa_data/tokens/moodys.json",resp.BodyStr,"utf-8",False)
End If