(Delphi DLL) 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 for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, HttpResponse, JsonObject, HttpRequest, BinData, PrivateKey, Cert, Http;

...

procedure TForm1.Button1Click(Sender: TObject);
var
cert: HCkCert;
success: Boolean;
bdKey: HCkBinData;
privKey: HCkPrivateKey;
http: HCkHttp;
req: HCkHttpRequest;
resp: HCkHttpResponse;
json: HCkJsonObject;

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

cert := CkCert_Create();
success := CkCert_LoadFromFile(cert,'qa_data/certs/TPPCertificate.cer');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

bdKey := CkBinData_Create();
success := CkBinData_LoadFile(bdKey,'qa_data/certs/TPPprivateKey.key');

privKey := CkPrivateKey_Create();
success := CkPrivateKey_LoadAnyFormat(privKey,bdKey,'passwordIfNeeded');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkPrivateKey__lastErrorText(privKey));
    Exit;
  end;

success := CkCert_SetPrivateKey(cert,privKey);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

http := CkHttp_Create();

success := CkHttp_SetSslClientCert(http,cert);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

req := CkHttpRequest_Create();
CkHttpRequest_AddParam(req,'grant_type','client_credentials');
CkHttpRequest_AddParam(req,'client_id','TPP_test');
CkHttpRequest_AddParam(req,'scope','psd2:payment:sepa:write psd2:payment:sepa:read');

resp := CkHttp_PostUrlEncoded(http,'https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2',req);
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

if (CkHttpResponse_getStatusCode(resp) <> 200) then
  begin
    Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));
    CkHttpResponse_Dispose(resp);
    Exit;
  end;

// Get the JSON result:
// {"access_token":"TIhycwl8rfrZPkXGw15mwldASAAK","token_type":"Bearer","expires_in":7200}
json := CkJsonObject_Create();
CkJsonObject_Load(json,CkHttpResponse__bodyStr(resp));
Memo1.Lines.Add('access_token: ' + CkJsonObject__stringOf(json,'access_token'));
Memo1.Lines.Add('token_type: ' + CkJsonObject__stringOf(json,'token_type'));
Memo1.Lines.Add('expires_in: ' + CkJsonObject__stringOf(json,'expires_in'));

CkHttpResponse_Dispose(resp);

CkCert_Dispose(cert);
CkBinData_Dispose(bdKey);
CkPrivateKey_Dispose(privKey);
CkHttp_Dispose(http);
CkHttpRequest_Dispose(req);
CkJsonObject_Dispose(json);

end;