Xbase++

Refresh eBay Application Access Token

See more eBay Examples

This example shows how to get a new eBay REST API access token when the original is close to expiration. Xbase++

LOCAL nSuccess
LOCAL oJson
LOCAL oOauth2

nSuccess := 0

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

//  The previously fetched eBay access token looks like this:

//  {
//    "access_token": "v^1.1#i^1# ... HwSAAA=",
//    "expires_in": 7200,
//    "refresh_token": "v^1.1#i^1# ... FXjEyODQ=",
//    "refresh_token_expires_in": 47304000,
//    "token_type": "User Access Token"
//  }

oJson := CreateObject("Chilkat.JsonObject")
nSuccess := oJson:LoadFile("qa_data/tokens/ebay-access-token.json")
IF (nSuccess == 0)
    ? "Failed to load the existing ebay access token JSON."
    oJson:destroy()
    RETURN
ENDIF

oOauth2 := CreateObject("Chilkat.OAuth2")

oOauth2:TokenEndpoint := "https://api.sandbox.ebay.com/identity/v1/oauth2/token"

//  Replace these with actual values.
oOauth2:ClientId := "EBAY_CLIENT_ID"
oOauth2:ClientSecret := "EBAY_CLIENT_SECRET"

//  Get the "refresh_token"
oOauth2:RefreshToken := oJson:StringOf("refresh_token")

//  Send the HTTP POST to refresh the access token..
nSuccess := oOauth2:RefreshAccessToken()
IF (nSuccess == 0)
    ? oOauth2:LastErrorText
    oJson:destroy()
    oOauth2:destroy()
    RETURN
ENDIF

//  Load the access token response into the JSON object 
oJson:Load(oOauth2:AccessTokenResponse)

//  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.
oJson:EmitCompact := 0
oJson:WriteFile("qa_data/tokens/ebay-access-token.json")

? "OAuth2 authorization granted!"
? "New Access Token = " + oOauth2:AccessToken

oJson:destroy()
oOauth2:destroy()