(Xojo Plugin) Get Akeneo Token given Client ID and Secret

Assumes you're starting with a client ID and secret obtained from your OAuth1 provider, such as OneLogin. Demonstrates how to get an akeneo token using your client id/secret in combination with your akeneo login/password.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim http As New Chilkat.Http

// The HTTP Basic authentication for this request is the
// OAuth client id and secret you've already obtained.
http.BasicAuth = True
http.Login = "my_akeneo_client_id"
http.Password = "my_akeneo_secret"

// Build this JSON:
// {
//   "grant_type": "password",
//   "username": "yourusername",
//   "password": "yourpassword"
// }

Dim json As New Chilkat.JsonObject
success = json.UpdateString("grant_type","password")
success = json.UpdateString("username","my_akeneo_username")
success = json.UpdateString("password","my_akeneo_password")

// POST this JSON (with the Basic Authentication header)
Dim url As String
url = "http://pim.my-akeneo-site.com/api/oauth/v1/token"
Dim resp As Chilkat.HttpResponse
resp = http.PostJson3(url,"application/json",json)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog("Response status code: " + Str(resp.StatusCode))
System.DebugLog("Response body: " + resp.BodyStr)

If (resp.StatusCode = 200) Then
    // Success.
    // Parse the response, which looks like this:

    // 		{
    // 		    "access_token": "MTE0NzNkNzI5YTk0ZTBlNmFlNTI5NmVkOWJhZjUxYWRkN2UzZWIwOWNkMTkwNzY5Mzk3NGViMDFmYzdlODJlMg",
    // 		    "expires_in": 3600,
    // 		    "token_type": "bearer",
    // 		    "scope": null,
    // 		    "refresh_token": "ZDkyMzA2NDhlZjQ2MGQyMDQ2MWRiMDBmOTdkZjQ5ODY5Mzc3MTEzMjVkNTkwZThmNWRlNWY0MzllYWMxZWQ5ZA"
    // 		}

    success = json.Load(resp.BodyStr)
    Dim access_token As String
    access_token = json.StringOf("access_token")
    Dim expires_in As Int32
    expires_in = json.IntOf("expires_in")
    Dim token_type As String
    token_type = json.StringOf("token_type")
    Dim scope As String
    scope = json.StringOf("scope")
    Dim refresh_token As String
    refresh_token = json.StringOf("refresh_token")

    System.DebugLog("Access Token: " + access_token)
End If