Xojo Plugin

Adyen Verify Payment Result

See more Adyen Examples

Once a payment has completed, this verifies the result from your server with a /payments/result request. Xojo Plugin

Dim success As Boolean
success = False

Dim http As New Chilkat.Http

// 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..."
// }
Dim json As New Chilkat.JsonObject
success = json.UpdateString("payload","2he28Ddhwj242he28Ddhwj...")

http.SetRequestHeader "X-API-Key","Your_API_key"

Dim resp As New Chilkat.HttpResponse
success = http.HttpJson("POST","https://checkout-test.adyen.com/v41/payments/result",json,"application/json",resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim sbResponseBody As New Chilkat.StringBuilder
success = resp.GetBodySb(sbResponseBody)

Dim jResp As New Chilkat.JsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Dim respStatusCode As Int32
respStatusCode = resp.StatusCode
System.DebugLog("Status Code = " + Str(respStatusCode))
System.DebugLog("Response Body:")
System.DebugLog(jResp.Emit())

If (respStatusCode >= 400) Then
    System.DebugLog("Response Header:")
    System.DebugLog(resp.Header)
    System.DebugLog("Failed.")
    Return
End If

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

Dim pspReference As String
Dim resultCode As String
Dim merchantReference As String
Dim paymentMethod As String
Dim shopperLocale As String

pspReference = jResp.StringOf("pspReference")
resultCode = jResp.StringOf("resultCode")
merchantReference = jResp.StringOf("merchantReference")
paymentMethod = jResp.StringOf("paymentMethod")
shopperLocale = jResp.StringOf("shopperLocale")