PowerBuilder

Isabel Connect Create First Access Token and Refresh Token

See more Ibanity Examples

Creates your first access token and refresh token. Once created, the refresh token can be used to get a new access token after it expires, or before it expires. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_Cert
oleobject loo_Req
oleobject loo_Crypt
string ls_IdempotencyKey
oleobject loo_Resp
oleobject loo_SbResponseBody
oleobject loo_JResp
integer li_RespStatusCode
string ls_Token_type
string ls_Scope
string ls_Refresh_token
integer li_Expires_in
string ls_Access_token

li_Success = 0

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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: af621a8f-f74b-41a2-b011-336997633df4"  \
// -d grant_type=authorization_code \
// -d code=valid_authorization_code \
// -d client_id=valid_client_id \
// -d client_secret=valid_client_secret \
// -d redirect_uri=https://fake-tpp.com 

// 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.)
loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_Success = loo_Cert.LoadPfxFile("qa_data/pfx/my_ibanity_certificate.pfx","my_pfx_password")
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Http
    destroy loo_Cert
    return
end if

li_Success = loo_Http.SetSslClientCert(loo_Cert)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Cert
    return
end if

loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")

loo_Req.HttpVerb = "POST"
loo_Req.Path = "/isabel-connect/oauth2/token"
loo_Req.ContentType = "application/x-www-form-urlencoded"
loo_Req.AddParam("grant_type","authorization_code")

// Note: For sandbox testing, we literally want to use the strings
// "valid_authorization_code", "valid_client_id", and "valid_client_secret".
// For the live app, you would replace these with actual values.
loo_Req.AddParam("code","valid_authorization_code")
loo_Req.AddParam("client_id","valid_client_id")
loo_Req.AddParam("client_secret","valid_client_secret")
loo_Req.AddParam("redirect_uri","https://fake-tpp.com")

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

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

ls_IdempotencyKey = loo_Crypt.GenerateUuid()
Write-Debug "Ibanity-Idempotency-Key: " + ls_IdempotencyKey
loo_Req.AddHeader("Ibanity-Idempotency-Key",ls_IdempotencyKey)

loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpReq("https://api.ibanity.com/isabel-connect/oauth2/token",loo_Req,loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Cert
    destroy loo_Req
    destroy loo_Crypt
    destroy loo_Resp
    return
end if

loo_SbResponseBody = create oleobject
li_rc = loo_SbResponseBody.ConnectToNewObject("Chilkat.StringBuilder")

loo_Resp.GetBodySb(loo_SbResponseBody)
loo_JResp = create oleobject
li_rc = loo_JResp.ConnectToNewObject("Chilkat.JsonObject")

loo_JResp.LoadSb(loo_SbResponseBody)
loo_JResp.EmitCompact = 0

Write-Debug "Response Body:"
Write-Debug loo_JResp.Emit()

li_RespStatusCode = loo_Resp.StatusCode
Write-Debug "Response Status Code = " + string(li_RespStatusCode)
if li_RespStatusCode >= 400 then
    Write-Debug "Response Header:"
    Write-Debug loo_Resp.Header
    Write-Debug "Failed."
    destroy loo_Http
    destroy loo_Cert
    destroy loo_Req
    destroy loo_Crypt
    destroy loo_Resp
    destroy loo_SbResponseBody
    destroy loo_JResp
    return
end if

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

// {
//   "token_type": "Bearer",
//   "scope": "cloudconnect",
//   "refresh_token": "valid_refresh_token",
//   "expires_in": 1799,
//   "access_token": "access_token_1617371230"
// }

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

ls_Token_type = loo_JResp.StringOf("token_type")
ls_Scope = loo_JResp.StringOf("scope")
ls_Refresh_token = loo_JResp.StringOf("refresh_token")
li_Expires_in = loo_JResp.IntOf("expires_in")
ls_Access_token = loo_JResp.StringOf("access_token")

// Save to a file for future use in refreshing the access token.
// The refresh token is the same each time we refresh to get a new access token.
li_Success = loo_JResp.WriteFile("qa_data/tokens/isabel_refresh_token.json")

// Also save to a file to be used as the current access token.
li_Success = loo_JResp.WriteFile("qa_data/tokens/isabel_access_token.json")


destroy loo_Http
destroy loo_Cert
destroy loo_Req
destroy loo_Crypt
destroy loo_Resp
destroy loo_SbResponseBody
destroy loo_JResp