![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Xojo Plugin) ABN AMRO OAuth2 Client Credentials AuthenticationDemonstrates how to obtain an access token for an ABN AMRO online API using OAuth2 with the Client Credentials flow. Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://developer.abnamro.com/api/payment-initiation-v1/payment-initiation-tutorial
Dim success As Boolean success = False // 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 success = cert.LoadFromFile("qa_data/certs/TPPCertificate.cer") If (success = False) 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 = False) Then System.DebugLog(privKey.LastErrorText) Return End If success = cert.SetPrivateKey(privKey) If (success = False) Then System.DebugLog(cert.LastErrorText) Return End If Dim http As New Chilkat.Http success = http.SetSslClientCert(cert) If (success = False) 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" req.HttpVerb = "POST" req.ContentType = "application/x-www-form-urlencoded" Dim resp As New Chilkat.HttpResponse success = http.HttpReq("https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2",req,resp) If (success = 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")) |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.