Lianja

ABN AMRO OAuth2 Client Credentials Authentication

See more ABN AMRO Examples

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

llSuccess = .F.

// 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'

loCert = createobject("CkCert")
llSuccess = loCert.LoadFromFile("qa_data/certs/TPPCertificate.cer")
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loCert
    return
endif

loBdKey = createobject("CkBinData")
llSuccess = loBdKey.LoadFile("qa_data/certs/TPPprivateKey.key")

loPrivKey = createobject("CkPrivateKey")
llSuccess = loPrivKey.LoadAnyFormat(loBdKey,"passwordIfNeeded")
if (llSuccess = .F.) then
    ? loPrivKey.LastErrorText
    release loCert
    release loBdKey
    release loPrivKey
    return
endif

llSuccess = loCert.SetPrivateKey(loPrivKey)
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loCert
    release loBdKey
    release loPrivKey
    return
endif

loHttp = createobject("CkHttp")

llSuccess = loHttp.SetSslClientCert(loCert)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loCert
    release loBdKey
    release loPrivKey
    release loHttp
    return
endif

loReq = createobject("CkHttpRequest")
loReq.AddParam("grant_type","client_credentials")
loReq.AddParam("client_id","TPP_test")
loReq.AddParam("scope","psd2:payment:sepa:write psd2:payment:sepa:read")

loReq.HttpVerb = "POST"
loReq.ContentType = "application/x-www-form-urlencoded"

loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpReq("https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2",loReq,loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loCert
    release loBdKey
    release loPrivKey
    release loHttp
    release loReq
    release loResp
    return
endif

if (loResp.StatusCode <> 200) then
    ? loResp.BodyStr
    release loCert
    release loBdKey
    release loPrivKey
    release loHttp
    release loReq
    release loResp
    return
endif

// Get the JSON result:
// {"access_token":"TIhycwl8rfrZPkXGw15mwldASAAK","token_type":"Bearer","expires_in":7200}
loJson = createobject("CkJsonObject")
loJson.Load(loResp.BodyStr)
? "access_token: " + loJson.StringOf("access_token")
? "token_type: " + loJson.StringOf("token_type")
? "expires_in: " + loJson.StringOf("expires_in")


release loCert
release loBdKey
release loPrivKey
release loHttp
release loReq
release loResp
release loJson