(AutoIt) Adyen Create Payment Session

Creates an Adyen payment session.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; 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"
; }
$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateString("merchantAccount","YourMerchantAccount")
$oJson.UpdateString("sdkVersion","1.9.7")
$oJson.UpdateString("channel","Web")
$oJson.UpdateString("amount.currency","EUR")
$oJson.UpdateInt("amount.value",17408)
$oJson.UpdateString("reference","Your order number")
$oJson.UpdateString("countryCode","NL")
$oJson.UpdateString("shopperLocale","nl_NL")
$oJson.UpdateString("origin","https://www.yourshop.com")
$oJson.UpdateString("returnUrl","https://www.yourshop.com/checkout/completed")

$oHttp.SetRequestHeader "X-API-Key","YourAPIkey"

Local $oResp = $oHttp.PostJson3("https://checkout-test.adyen.com/v41/paymentSession","application/json",$oJson)
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$oResp.GetBodySb($oSbResponseBody)

$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False

Local $iRespStatusCode = $oResp.StatusCode
ConsoleWrite("Status Code = " & $iRespStatusCode & @CRLF)
ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oResp.Header & @CRLF)
    ConsoleWrite("Failed." & @CRLF)

    Exit
EndIf

; 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

Local $sPaymentSession

$sPaymentSession = $oJResp.StringOf("paymentSession")