![]() |
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
(DataFlex) 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
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Handle hoHttp Variant vJson Handle hoJson Variant vResp Handle hoResp Variant vSbResponseBody Handle hoSbResponseBody Handle hoJResp Integer iRespStatusCode String sPspReference String sResultCode String sMerchantReference String sPaymentMethod String sShopperLocale String sTemp1 Move False To iSuccess Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End // 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..." // } Get Create (RefClass(cComChilkatJsonObject)) To hoJson If (Not(IsComObjectCreated(hoJson))) Begin Send CreateComObject of hoJson End Get ComUpdateString Of hoJson "payload" "2he28Ddhwj242he28Ddhwj..." To iSuccess Send ComSetRequestHeader To hoHttp "X-API-Key" "Your_API_key" Get Create (RefClass(cComChilkatHttpResponse)) To hoResp If (Not(IsComObjectCreated(hoResp))) Begin Send CreateComObject of hoResp End Get pvComObject of hoJson to vJson Get pvComObject of hoResp to vResp Get ComHttpJson Of hoHttp "POST" "https://checkout-test.adyen.com/v41/payments/result" vJson "application/json" vResp To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody If (Not(IsComObjectCreated(hoSbResponseBody))) Begin Send CreateComObject of hoSbResponseBody End Get pvComObject of hoSbResponseBody to vSbResponseBody Get ComGetBodySb Of hoResp vSbResponseBody To iSuccess Get Create (RefClass(cComChilkatJsonObject)) To hoJResp If (Not(IsComObjectCreated(hoJResp))) Begin Send CreateComObject of hoJResp End Get pvComObject of hoSbResponseBody to vSbResponseBody Get ComLoadSb Of hoJResp vSbResponseBody To iSuccess Set ComEmitCompact Of hoJResp To False Get ComStatusCode Of hoResp To iRespStatusCode Showln "Status Code = " iRespStatusCode Showln "Response Body:" Get ComEmit Of hoJResp To sTemp1 Showln sTemp1 If (iRespStatusCode >= 400) Begin Showln "Response Header:" Get ComHeader Of hoResp To sTemp1 Showln sTemp1 Showln "Failed." Procedure_Return End // 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 Get ComStringOf Of hoJResp "pspReference" To sPspReference Get ComStringOf Of hoJResp "resultCode" To sResultCode Get ComStringOf Of hoJResp "merchantReference" To sMerchantReference Get ComStringOf Of hoJResp "paymentMethod" To sPaymentMethod Get ComStringOf Of hoJResp "shopperLocale" To sShopperLocale End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.