(Xojo Plugin) Amazon SP-API Request an LWA access token

See more Amazon SP-API Examples

Request an LWA access token, make a secure HTTP POST to the LWA authentication server (https://api.amazon.com/auth/o2/token)

For more information, see https://developer-docs.amazon.com/sp-api/docs/connecting-to-the-selling-partner-api

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.

Dim http As New Chilkat.Http

// Implements the following CURL command:

// curl -X POST https://example.com/auth/o2/token \
//   -H "Host: api.amazon.com" \
//   -H "Content-Type: application/x-www-form-urlencoded;charset=UTF-8" \
//   -d "grant_type=refresh_token" \
//   -d "refresh_token=Aztr|..." \
//   -d "client_id=foodev" \
//   -d "client_secret=Y76SDl2F"

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

Dim req As New Chilkat.HttpRequest
req.AddParam "grant_type","refresh_token"
req.AddParam "refresh_token","Aztr|..."
req.AddParam "client_id","foodev"
req.AddParam "client_secret","Y76SDl2F"

req.AddHeader "Host","api.amazon.com"

Dim resp As Chilkat.HttpResponse
resp = http.PostUrlEncoded("https://api.amazon.com/auth/o2/token",req)
If (http.LastMethodSuccess = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim statusCode As Int32
statusCode = resp.StatusCode
System.DebugLog("Status Code = " + Str(statusCode))

Dim json As New Chilkat.JsonObject
Dim success As Boolean
success = json.Load(resp.BodyStr)

json.EmitCompact = False
System.DebugLog(json.Emit())

If (statusCode <> 200) Then
    System.DebugLog("Failed.")
    Return
End If

// Success returns this JSON:

// {
//   "access_token": "Atza|...",
//   "refresh_token": "Atzr|...",
//   "token_type": "bearer",
//   "expires_in": 3600
// }

// Save the JSON token to a file for use in subsequent calls.
// (this example is passing a relative file path.  You don't need to save to a file
// if, for example, you keep the access token in-memory for subsequent use...)
Dim success As Boolean
success = json.WriteFile("qa_data/tokens/sp_api_lwa_token.json")

System.DebugLog("access_token: " + json.StringOf("access_token"))
System.DebugLog("Success.")