B4X

Isabel Connect Revoke Access Token

See more Ibanity Examples

Revokes an access 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/revoke \
'  --cert certificate.pem:qwertyuiop1 \
'  --key private_key.pem  \
'  -H "Content-Type: application/x-www-form-urlencoded" \
'  -H "Accept: application/vnd.api+json"  \
'  -d token=8787 \
'  -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/revoke"
req.ContentType = "application/x-www-form-urlencoded"

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

req.AddParam("token", jsonToken.StringOf("access_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 resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpReq("https://api.ibanity.com/isabel-connect/oauth2/revoke", req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
resp.GetBodySb(sbResponseBody)

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


Log("Response Body:")
Log(sbResponseBody.GetAsString)

'  If successful, the response status code = 200, and the response body is "{}"