(Visual FoxPro) Refresh Wish for Merchants OAuth2 Access Token

Demonstrates how to refresh a Wish OAuth2 access token.

Note: This example requires Chilkat v9.5.0.85.

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

LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loOauth2
LOCAL loSbJson

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

* See Get Wish OAuth2 Access Token 
* for sample code showing how to obtain a Wish access token for desktop apps.

* This example assumes we previously obtained an OAuth2 access token for Wish.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/wish.json")
IF (lnSuccess <> 1) THEN
    ? "Failed to load wish.json"
    RELEASE loJsonToken
    CANCEL
ENDIF

* The access token JSON looks something like this:

* {
*   "message": "",
*   "code": 0,
*   "data": {
*     "access_token": "15af1c191c1243b029bc1660b5c08ce7",
*     "scopes": [
*       "epc:read",
*       "epc:write",
*       "fbs:read",
*       "fbs:write",
*       "fbw:read",
*       "fbw:write",
*       "infractions:read",
*       "infractions:write",
*       "insurance:read",
*       "insurance:write",
*       "loans:read",
*       "loans:write",
*       "merchant:read",
*       "merchant:write",
*       "notifications:read",
*       "notifications:write",
*       "orders:read",
*       "orders:write",
*       "payments:read",
*       "payments:write",
*       "penalties:read",
*       "penalties:write",
*       "product_boost:read",
*       "product_boost:write",
*       "products:read",
*       "products:write",
*       "ratings:read",
*       "ratings:write",
*       "returns:read",
*       "returns:write",
*       "tickets:read",
*       "tickets:write"
*     ],
*     "merchant_id": "5eb3f605178f5be2c784fa02",
*     "expiry_time": "2020-12-17T16:55:09.594+00:00",
*     "refresh_token": "55a38e44df674a1e859891624b2c4c23"
*   }
* }

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.OAuth2')
loOauth2 = CreateObject('Chilkat.OAuth2')

* Note: In most OAuth2 implementations, the token endpoint is the same for both the
* refresh request and the exchange-code-for-token request (which happens when getting
* the OAuth2 token for the 1st time).   Wish uses a different URL for the refresh:
loOauth2.TokenEndpoint = "https://merchant.wish.com/api/v3/oauth/refresh_token"

* The following uncommon option was added in Chilkat v9.5.0.85
loOauth2.UncommonOptions = "EXCHANGE_CODE_FOR_TOKEN_USING_GET"

* Replace these with actual values.
loOauth2.ClientId = "WISH-CLIENT-ID"
loOauth2.ClientSecret = "WISH-CLIENT-SECRET"

* Get the "refresh_token"
loOauth2.RefreshToken = loJsonToken.StringOf("data.refresh_token")

* Send the HTTP request to refresh the access token..
lnSuccess = loOauth2.RefreshAccessToken()
IF (lnSuccess <> 1) THEN
    ? loOauth2.LastErrorText
    RELEASE loJsonToken
    RELEASE loOauth2
    CANCEL
ENDIF

* Save the new JSON access token response to a file.
* The access + refresh tokens contained in this JSON will be needed for the next refresh.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbJson = CreateObject('Chilkat.StringBuilder')
loSbJson.Append(loOauth2.AccessTokenResponse)
loSbJson.WriteFile("qa_data/tokens/wish.json","utf-8",0)

? "OAuth2 token refreshed!"
? "New Access Token = " + loOauth2.AccessToken

RELEASE loJsonToken
RELEASE loOauth2
RELEASE loSbJson