(PureBasic) Moody's REST API - Get OAuth2 Token

See more Moody's Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

    success.i = 0

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

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkContentType(req, "application/x-www-form-urlencoded")

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

    success = CkHttp::ckHttpReq(http,"https://api.moodys.com/OAuth/Token",req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        CkHttpResponse::ckDispose(resp)
        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



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


    ProcedureReturn
EndProcedure