![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) Calendar: Refresh Expired OAuth2 Access TokenRefreshes an expired OAuth2 access token. Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loJson LOCAL loReq LOCAL loHttp LOCAL loResp LOCAL loFac lnSuccess = 0 * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loJson = CreateObject('Chilkat.JsonObject') lnSuccess = loJson.LoadFile("qa_data/tokens/msGraphCalendar.json") IF (lnSuccess <> 1) THEN RELEASE loJson CANCEL ENDIF loReq = CreateObject('Chilkat.HttpRequest') loReq.AddParam("grant_type","refresh_token") loReq.AddParam("redirect_uri","http://localhost:3017/") loReq.AddParam("client_id","MICROSOFT-GRAPH-CLIENT-ID") loReq.AddParam("client_secret","MICROSOFT-GRAPH-CLIENT-SECRET") loReq.AddParam("refresh_token",loJson.StringOf("refresh_token")) loReq.AddParam("scope","openid profile offline_access user.readwrite calendars.readwrite files.readwrite") loHttp = CreateObject('Chilkat.Http') loReq.HttpVerb = "POST" loReq.ContentType = "application/x-www-form-urlencoded" loResp = CreateObject('Chilkat.HttpResponse') lnSuccess = loHttp.HttpReq("https://login.microsoftonline.com/common/oauth2/v2.0/token",loReq,loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loJson RELEASE loReq RELEASE loHttp RELEASE loResp CANCEL ENDIF * Load the JSON response. loJson.Load(loResp.BodyStr) loJson.EmitCompact = 0 * Show the JSON response. ? loJson.Emit() ? "Response status code: " + STR(loResp.StatusCode) * If the response status code is not 200, then it's an error. IF (loResp.StatusCode <> 200) THEN RELEASE loJson RELEASE loReq RELEASE loHttp RELEASE loResp CANCEL ENDIF * Save the refreshed access token JSON to a file for future requests. loFac = CreateObject('Chilkat.FileAccess') loFac.WriteEntireTextFile("qa_data/tokens/msGraphCalendar.json",loJson.Emit(),"utf-8",0) ? "Success." RELEASE loJson RELEASE loReq RELEASE loHttp RELEASE loResp RELEASE loFac |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.