(PowerBuilder) Calendar: Refresh Expired OAuth2 Access Token

Refreshes an expired OAuth2 access token.

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
integer li_Success
oleobject loo_Json
oleobject loo_Req
oleobject loo_Http
oleobject loo_Resp
oleobject loo_Fac

li_Success = 0

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

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Json.LoadFile("qa_data/tokens/msGraphCalendar.json")
if li_Success <> 1 then
    destroy loo_Json
    return
end if

loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")

loo_Req.AddParam("grant_type","refresh_token")
loo_Req.AddParam("redirect_uri","http://localhost:3017/")
loo_Req.AddParam("client_id","MICROSOFT-GRAPH-CLIENT-ID")
loo_Req.AddParam("client_secret","MICROSOFT-GRAPH-CLIENT-SECRET")
loo_Req.AddParam("refresh_token",loo_Json.StringOf("refresh_token"))
loo_Req.AddParam("scope","openid profile offline_access user.readwrite calendars.readwrite files.readwrite")

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

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

loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpReq("https://login.microsoftonline.com/common/oauth2/v2.0/token",loo_Req,loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Json
    destroy loo_Req
    destroy loo_Http
    destroy loo_Resp
    return
end if

// Load the JSON response.
loo_Json.Load(loo_Resp.BodyStr)
loo_Json.EmitCompact = 0

// Show the JSON response.
Write-Debug loo_Json.Emit()

Write-Debug "Response status code: " + string(loo_Resp.StatusCode)

// If the response status code is not 200, then it's an error.
if loo_Resp.StatusCode <> 200 then
    destroy loo_Json
    destroy loo_Req
    destroy loo_Http
    destroy loo_Resp
    return
end if

// Save the refreshed access token JSON to a file for future requests.
loo_Fac = create oleobject
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")

loo_Fac.WriteEntireTextFile("qa_data/tokens/msGraphCalendar.json",loo_Json.Emit(),"utf-8",0)

Write-Debug "Success."


destroy loo_Json
destroy loo_Req
destroy loo_Http
destroy loo_Resp
destroy loo_Fac