B4X

Isabel Connect Create Access Token given Valid Refresh Token

See more Ibanity Examples

Create (refresh) an access token given a valid refresh token. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

'  Implements the following CURL command:

'  curl -X POST https://api.ibanity.com/isabel-connect/oauth2/token \
'  --cert certificate.pem:qwertyuiop1 \
'  --key private_key.pem  \
'  -H "Content-Type: application/x-www-form-urlencoded" \
'  -H "Accept: application/vnd.api+json" \
'  -H "Ibanity-Idempotency-Key: 94c5586e-e15e-4bae-a1fe-fdbefe1f11d3"  \
'  -d grant_type=refresh_token \
'  -d refresh_token=valid_refresh_token \
'  -d client_id=valid_client_id \
'  -d client_secret=valid_client_secret

'  Ibanity provides the certificate + private key in PFX format.  This example will use the .pfx instead of the pair of PEM files.
'  (It is also possible to implement using Chilkat with the PEM files, but PFX is easier.)
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadPfxFile("qa_data/pfx/my_ibanity_certificate.pfx", "my_pfx_password")
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


success = http.SetSslClientCert(cert)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim req As ChilkatHttpRequest
req.Initialize
req.HttpVerb = "POST"
req.Path = "/isabel-connect/oauth2/token"
req.ContentType = "application/x-www-form-urlencoded"
req.AddParam("grant_type", "refresh_token")

'  Load the previously obtained refresh token.
Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/isabel_refresh_token.json")
If success = False Then
    Log("No existing access token.")
    Return
End If

req.AddParam("refresh_token", jsonToken.StringOf("refresh_token"))

'  Note: For sandbox testing, we literally want to use the strings
'  "valid_client_id", and "valid_client_secret".
'  For the live app, you would replace these with actual values.
req.AddParam("client_id", "valid_client_id")
req.AddParam("client_secret", "valid_client_secret")

req.AddHeader("Accept", "application/vnd.api+json")

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")
Dim idempotencyKey As String = crypt.GenerateUuid
Log("Ibanity-Idempotency-Key: " & idempotencyKey)
req.AddHeader("Ibanity-Idempotency-Key", idempotencyKey)

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpReq("https://api.ibanity.com/isabel-connect/oauth2/token", req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
resp.GetBodySb(sbResponseBody)
Dim jResp As ChilkatJsonObject
jResp.Initialize
jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Log("Response Body:")
Log(jResp.Emit)

Dim respStatusCode As Int = resp.StatusCode
Log("Response Status Code = " & respStatusCode)
If respStatusCode >= 400 Then
    Log("Response Header:")
    Log(resp.Header)
    Log("Failed.")
    Return
End If


'  Sample JSON response:
'  (Sample code for parsing the JSON response is shown below)

'  Notice that we don't get a new refresh token.  The original refresh token is used each time we
'  want to refresh.  However, we get a new access token.  This access token is to be used in Isabel API calls
'  until we need to refresh again.
'  {
'    "token_type": "Bearer",
'    "scope": "cloudconnect",
'    "expires_in": 1799,
'    "access_token": "access_token_1603365408"
'  }

'  Sample code for parsing the JSON response...
'  Use the following online tool to generate parsing code from sample JSON:
'  Generate Parsing Code from JSON

Dim token_type As String = jResp.StringOf("token_type")
Dim scope As String = jResp.StringOf("scope")
Dim expires_in As Int = jResp.IntOf("expires_in")
Dim access_token As String = jResp.StringOf("access_token")

'  Save this to a file so we can load in other examples to include the access token in the HTTP request.
success = jResp.WriteFile("qa_data/tokens/isabel_access_token.json")