(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkFileAccess.pb"
IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpRequest::ckAddParam(req,"grant_type","password")
    CkHttpRequest::ckAddParam(req,"scope","api/ratings api/addin rest")
    CkHttpRequest::ckAddParam(req,"username","my_username")
    CkHttpRequest::ckAddParam(req,"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".
    CkHttpRequest::ckAddParam(req,"client_id","my_client_id")
    CkHttpRequest::ckAddParam(req,"client_secret","my_client_secret")

    resp.i = CkHttp::ckPostUrlEncoded(http,"https://api.moodys.com/OAuth/Token",req)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        ProcedureReturn
    EndIf

    Debug "status code = " + Str(CkHttpResponse::ckStatusCode(resp))
    responseBody.s = CkHttpResponse::ckBodyStr(resp)
    Debug responseBody

    ; Save the JSON to a file for future requests.
    If CkHttpResponse::ckStatusCode(resp) = 200
        fac.i = CkFileAccess::ckCreate()
        If fac.i = 0
            Debug "Failed to create object."
            ProcedureReturn
        EndIf

        CkFileAccess::ckWriteEntireTextFile(fac,"qa_data/tokens/moodys.json",CkHttpResponse::ckBodyStr(resp),"utf-8",0)
    EndIf

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)
    CkHttpRequest::ckDispose(req)
    CkFileAccess::ckDispose(fac)


    ProcedureReturn
EndProcedure