(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCert
LOCAL lnSuccess
LOCAL loBdKey
LOCAL loPrivKey
LOCAL loHttp
LOCAL loReq
LOCAL loResp
LOCAL loJson

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadFromFile("qa_data/certs/TPPCertificate.cer")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdKey = CreateObject('Chilkat.BinData')
lnSuccess = loBdKey.LoadFile("qa_data/certs/TPPprivateKey.key")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey')
loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loPrivKey.LoadAnyFormat(loBdKey,"passwordIfNeeded")
IF (lnSuccess <> 1) THEN
    ? loPrivKey.LastErrorText
    RELEASE loCert
    RELEASE loBdKey
    RELEASE loPrivKey
    CANCEL
ENDIF

lnSuccess = loCert.SetPrivateKey(loPrivKey)
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    RELEASE loBdKey
    RELEASE loPrivKey
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

lnSuccess = loHttp.SetSslClientCert(loCert)
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loCert
    RELEASE loBdKey
    RELEASE loPrivKey
    RELEASE loHttp
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest')
loReq = CreateObject('Chilkat.HttpRequest')
loReq.AddParam("grant_type","client_credentials")
loReq.AddParam("client_id","TPP_test")
loReq.AddParam("scope","psd2:payment:sepa:write psd2:payment:sepa:read")

loResp = loHttp.PostUrlEncoded("https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2",loReq)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loCert
    RELEASE loBdKey
    RELEASE loPrivKey
    RELEASE loHttp
    RELEASE loReq
    CANCEL
ENDIF

IF (loResp.StatusCode <> 200) THEN
    ? loResp.BodyStr
    RELEASE loResp
    RELEASE loCert
    RELEASE loBdKey
    RELEASE loPrivKey
    RELEASE loHttp
    RELEASE loReq
    CANCEL
ENDIF

* Get the JSON result:
* {"access_token":"TIhycwl8rfrZPkXGw15mwldASAAK","token_type":"Bearer","expires_in":7200}
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)
? "access_token: " + loJson.StringOf("access_token")
? "token_type: " + loJson.StringOf("token_type")
? "expires_in: " + loJson.StringOf("expires_in")

RELEASE loResp

RELEASE loCert
RELEASE loBdKey
RELEASE loPrivKey
RELEASE loHttp
RELEASE loReq
RELEASE loJson