(Xojo Plugin) GeoOp Exchange Refresh Token for New Access Token

Demonstrates how to use the /oauth2/token endpoint to exchange it for a new access token once the current access token has expired.

Note: This example requires Chilkat v9.5.0.65 or greater.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

// This example also assumes that OAuth2 access and refresh tokens were previously fetched.
// and saved in a JSON file.  

// First get our previously obtained refresh token.
// { .... "refresh_token":"e6dqdG....mzjpT04w==", .... }
Dim jsonToken As New Chilkat.JsonObject
Dim success As Boolean
success = jsonToken.LoadFile("qa_data/tokens/geoop.json")

Dim rest As New Chilkat.Rest

// Connect to GeoOp...
Dim bAutoReconnect As Boolean
bAutoReconnect = True
success = rest.Connect("login.geoop.com",443,True,bAutoReconnect)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

// Set the X-Version header.
success = rest.AddHeader("X-Version","1.0")

// Provide the required form params to get the new access token
System.DebugLog("refresh_token = " + jsonToken.StringOf("refresh_token"))
success = rest.AddQueryParam("refresh_token",jsonToken.StringOf("refresh_token"))
success = rest.AddQueryParam("grant_type","refresh_token")
success = rest.AddQueryParam("client_id","GEOOP-CLIENT-ID")
success = rest.AddQueryParam("client_secret","GEOOP-CLIENT-SECRET")

Dim responseBody As String
responseBody = rest.FullRequestFormUrlEncoded("POST","/oauth2/token")
If (rest.LastMethodSuccess <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

// If the response status code did not indicate success, then see what happened..
If (rest.ResponseStatusCode <> 200) Then
    System.DebugLog("Request Header: ")
    System.DebugLog(rest.LastRequestHeader)
    System.DebugLog("----")
    System.DebugLog("Response StatusCode = " + Str(rest.ResponseStatusCode))
    System.DebugLog("Response StatusLine: " + rest.ResponseStatusText)
    System.DebugLog("Response Header:")
    System.DebugLog(rest.ResponseHeader)
    System.DebugLog(responseBody)
    Return
End If

Dim json As New Chilkat.JsonObject
json.EmitCompact = False
success = json.Load(responseBody)

// Show the full JSON response.  It should contain the new access token...
System.DebugLog(json.Emit())