![]() |
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
(PureBasic) Adyen Verify Payment ResultOnce a payment has completed, this verifies the result from your server with a /payments/result request. Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://docs.adyen.com/checkout/web-sdk/#step-3-verify-payment-result
IncludeFile "CkHttpResponse.pb" IncludeFile "CkHttp.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkJsonObject.pb" Procedure ChilkatExample() success.i = 0 http.i = CkHttp::ckCreate() If http.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Use this online tool to generate the code from sample JSON: ; Generate Code to Create JSON ; The following JSON is sent in the request body. ; { ; "payload": "2he28Ddhwj242he28Ddhwj..." ; } json.i = CkJsonObject::ckCreate() If json.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkJsonObject::ckUpdateString(json,"payload","2he28Ddhwj242he28Ddhwj...") CkHttp::ckSetRequestHeader(http,"X-API-Key","Your_API_key") resp.i = CkHttpResponse::ckCreate() If resp.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkHttp::ckHttpJson(http,"POST","https://checkout-test.adyen.com/v41/payments/result",json,"application/json",resp) If success = 0 Debug CkHttp::ckLastErrorText(http) CkHttp::ckDispose(http) CkJsonObject::ckDispose(json) CkHttpResponse::ckDispose(resp) ProcedureReturn EndIf sbResponseBody.i = CkStringBuilder::ckCreate() If sbResponseBody.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkHttpResponse::ckGetBodySb(resp,sbResponseBody) jResp.i = CkJsonObject::ckCreate() If jResp.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkJsonObject::ckLoadSb(jResp,sbResponseBody) CkJsonObject::setCkEmitCompact(jResp, 0) respStatusCode.i = CkHttpResponse::ckStatusCode(resp) Debug "Status Code = " + Str(respStatusCode) Debug "Response Body:" Debug CkJsonObject::ckEmit(jResp) If respStatusCode >= 400 Debug "Response Header:" Debug CkHttpResponse::ckHeader(resp) Debug "Failed." CkHttp::ckDispose(http) CkJsonObject::ckDispose(json) CkHttpResponse::ckDispose(resp) CkStringBuilder::ckDispose(sbResponseBody) CkJsonObject::ckDispose(jResp) ProcedureReturn EndIf ; Sample JSON response: ; { ; "pspReference": "851559480052382F", ; "resultCode": "Authorised", ; "merchantReference": "123", ; "paymentMethod": "ideal", ; "shopperLocale": "nl_NL" ; } ; Sample code for parsing the JSON response... ; Use the following online tool to generate parsing code from sample JSON: ; Generate Parsing Code from JSON pspReference.s resultCode.s merchantReference.s paymentMethod.s shopperLocale.s pspReference = CkJsonObject::ckStringOf(jResp,"pspReference") resultCode = CkJsonObject::ckStringOf(jResp,"resultCode") merchantReference = CkJsonObject::ckStringOf(jResp,"merchantReference") paymentMethod = CkJsonObject::ckStringOf(jResp,"paymentMethod") shopperLocale = CkJsonObject::ckStringOf(jResp,"shopperLocale") CkHttp::ckDispose(http) CkJsonObject::ckDispose(json) CkHttpResponse::ckDispose(resp) CkStringBuilder::ckDispose(sbResponseBody) CkJsonObject::ckDispose(jResp) ProcedureReturn EndProcedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.