(Xojo Plugin) ABN AMRO OAuth2 Client Credentials Authentication

Demonstrates how to obtain an access token for an ABN AMRO online API using OAuth2 with the Client Credentials flow.

For more information, see https://developer.abnamro.com/api/payment-initiation-v1/payment-initiation-tutorial

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.

// This example sends the following CURL request:

// 	curl -X POST -k https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2 \
// 	-v \
// 	--cert TPPCertificate.crt \
// 	--key TPPprivateKey.key \
// 	-H 'Cache-Control: no-cache' \
// 	-H 'Content-Type: application/x-www-form-urlencoded' \
// 	-d 'grant_type=client_credentials&client_id=TPP_test&scope=psd2:payment:sepa:write psd2:payment:sepa:read'

Dim cert As New Chilkat.Cert
Dim success As Boolean
success = cert.LoadFromFile("qa_data/certs/TPPCertificate.cer")
If (success <> True) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

Dim bdKey As New Chilkat.BinData
success = bdKey.LoadFile("qa_data/certs/TPPprivateKey.key")

Dim privKey As New Chilkat.PrivateKey
success = privKey.LoadAnyFormat(bdKey,"passwordIfNeeded")
If (success <> True) Then
    System.DebugLog(privKey.LastErrorText)
    Return
End If

success = cert.SetPrivateKey(privKey)
If (success <> True) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

Dim http As New Chilkat.Http

success = http.SetSslClientCert(cert)
If (success <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim req As New Chilkat.HttpRequest
req.AddParam "grant_type","client_credentials"
req.AddParam "client_id","TPP_test"
req.AddParam "scope","psd2:payment:sepa:write psd2:payment:sepa:read"

Dim resp As Chilkat.HttpResponse
resp = http.PostUrlEncoded("https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2",req)
If (http.LastMethodSuccess = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

If (resp.StatusCode <> 200) Then
    System.DebugLog(resp.BodyStr)

    Return
End If

// Get the JSON result:
// {"access_token":"TIhycwl8rfrZPkXGw15mwldASAAK","token_type":"Bearer","expires_in":7200}
Dim json As New Chilkat.JsonObject
success = json.Load(resp.BodyStr)
System.DebugLog("access_token: " + json.StringOf("access_token"))
System.DebugLog("token_type: " + json.StringOf("token_type"))
System.DebugLog("expires_in: " + json.StringOf("expires_in"))