(Xojo Plugin) Adyen Create Payment Session

Creates an Adyen payment session.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim http As New Chilkat.Http
Dim success As Boolean

// 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, and is constructed by the code that follows.

// {
//   "merchantAccount": "YourMerchantAccount",
//   "sdkVersion": "1.9.7",
//   "channel": "Web",
//   "amount": {
//     "currency": "EUR",
//     "value": 17408
//   },
//   "reference": "Your order number",
//   "countryCode": "NL",
//   "shopperLocale": "nl_NL",
//   "origin": "https://www.yourshop.com",
//   "returnUrl": "https://www.yourshop.com/checkout/completed"
// }
Dim json As New Chilkat.JsonObject
success = json.UpdateString("merchantAccount","YourMerchantAccount")
success = json.UpdateString("sdkVersion","1.9.7")
success = json.UpdateString("channel","Web")
success = json.UpdateString("amount.currency","EUR")
success = json.UpdateInt("amount.value",17408)
success = json.UpdateString("reference","Your order number")
success = json.UpdateString("countryCode","NL")
success = json.UpdateString("shopperLocale","nl_NL")
success = json.UpdateString("origin","https://www.yourshop.com")
success = json.UpdateString("returnUrl","https://www.yourshop.com/checkout/completed")

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

Dim resp As Chilkat.HttpResponse
resp = http.PostJson3("https://checkout-test.adyen.com/v41/paymentSession","application/json",json)
If (http.LastMethodSuccess = 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:

// {
//   "paymentSession": "eyJjaGVja291 ... iMS45LjcifQ=="
// }

// 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 paymentSession As String

paymentSession = jResp.StringOf("paymentSession")