B4X

Check PayPal Access Token Expiration

See more PayPal Examples

Checks to see if the PayPal access token expired. B4X

Dim success As Boolean = 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 ChilkatJsonObject
json.Initialize
success = json.LoadFile("qa_data/tokens/paypal.json")
If success <> True Then
    Log("Failed to load access key json file.")
    Return
End If


'  Get the current date/time.
Dim dateTime As ChilkatDateTime
dateTime.Initialize
Dim bLocalTime As Boolean = False
Dim dtNow As Int = dateTime.GetAsUnixTime(bLocalTime)

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

'  Find out how many seconds have elapsed.
Dim numSeconds As Int = dtNow - dtCreate

'  Get the expires_in value from the JSON.
Dim expires_in As Int = json.IntOf("expires_in")

Log("token age (in seconds) = " & numSeconds)
Log("expires_in = " & 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
    Log("The token is not yet expired.  No need to fetch another.")
    Return
End If


Log("Time to fetch a new access token...")

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