Xojo Plugin

Check PayPal Access Token Expiration

See more PayPal Examples

Checks to see if the PayPal access token expired. Xojo Plugin

Dim success As Boolean
success = False

// Note: Requires Chilkat v9.5.0.64 or greater.

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

// In the example linked here: PayPal OAuth2 Token,
// we fetched a PayPal access token and saved it to a JSON file.
// We also recorded the current date/time.
// Load this JSON file and compare the current date/time with the fetch date/time
// and the "expires_in" value to see if the token is expired.

Dim json As New Chilkat.JsonObject
success = json.LoadFile("qa_data/tokens/paypal.json")
If (success <> True) Then
    System.DebugLog("Failed to load access key json file.")
    Return
End If

// Get the current date/time.
Dim dateTime As New Chilkat.CkDateTime
Dim bLocalTime As Boolean
bLocalTime = False
Dim dtNow As Int32
dtNow = dateTime.GetAsUnixTime(bLocalTime)

// Get the access token create date/time
Dim dtCreate As Int32
dtCreate = json.IntOf("tokenCreateTimeUtc")

// Find out how many seconds have elapsed.
Dim numSeconds As Int32
numSeconds = dtNow - dtCreate

// Get the expires_in value from the JSON.
Dim expires_in As Int32
expires_in = json.IntOf("expires_in")

System.DebugLog("token age (in seconds) = " + Str(numSeconds))
System.DebugLog("expires_in = " + Str(expires_in))

// If the token expired, or if it will expire in 5 minutes or less,
// get another token.
If (numSeconds < (expires_in - 300)) Then
    System.DebugLog("The token is not yet expired.  No need to fetch another.")
    Return
End If

System.DebugLog("Time to fetch a new access token...")

// Get another token..
// See the example at Get PayPal OAuth2 Token
// to get another token..