B4X

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

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

Dim req As ChilkatHttpRequest
req.Initialize
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")

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

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpReq("https://api.moodys.com/OAuth/Token", req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log("status code = " & resp.StatusCode)
Dim responseBody As String = resp.BodyStr
Log(responseBody)

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