Visual FoxPro

Paynow.pl -- Make a Payment Request

See more Paynow.pl Examples

Make a payment request POST with prepared message on Paynow payment request endpoint. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJson
LOCAL lcMyApiAccessKey
LOCAL lcMySigCalcKey
LOCAL loCrypt
LOCAL lcMessageBody
LOCAL lcSignature
LOCAL loResp
LOCAL loJsonResp
LOCAL lcRedirectUrl
LOCAL lcPaymentId
LOCAL lcStatus

lnSuccess = 0

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

loHttp = CreateObject('Chilkat.Http')

* Implements the following CURL command:

* curl --request POST 'https://api.sandbox.paynow.pl/v1/payments' \
* -H 'Content-Type: application/json' \
* -H 'Api-Key: c12c386b-650b-43db-9430-d84fc05d9433' \
* -H 'Signature: aYPCytCoc+/wFgqHZJjgBCi20omXTn0yzm9LysJgnFo=' \
* -H 'Idempotency-Key: 59c6dd26-f905-487b-96c9-fd1d2bd76885' \
* --data-raw '{
*     "amount": 45671,
*     "externalId": "234567898654",
*     "description": "Test transaction",
*     "buyer": {
*         "email": "jan.kowalski@melements.pl"
*     }
* }'

* Use the following online tool to generate HTTP code from a CURL command
* Convert a cURL Command to HTTP Source Code

* Use this online tool to generate code from sample JSON:
* Generate Code to Create JSON

* The following JSON is sent in the request body.

* {
*   "amount": 45671,
*   "externalId": "234567898654",
*   "description": "Test transaction",
*   "buyer": {
*     "email": "jan.kowalski@melements.pl"
*   }
* }

loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateInt("amount",45671)
loJson.UpdateString("externalId","234567898654")
loJson.UpdateString("description","Test transaction")
loJson.UpdateString("buyer.email","jan.kowalski@melements.pl")

lcMyApiAccessKey = "c12c386b-650b-43db-9430-d84fc05d9433"
lcMySigCalcKey = "b758f20d-ba92-44fa-acca-f57e99787b9d"

* Calculate the Signature header.
loCrypt = CreateObject('Chilkat.Crypt2')
loCrypt.MacAlgorithm = "hmac"
loCrypt.EncodingMode = "base64"
loCrypt.SetMacKeyString(lcMySigCalcKey)
loCrypt.HashAlgorithm = "SHA-256"
lcMessageBody = loJson.Emit()
lcSignature = loCrypt.MacStringENC(lcMessageBody)

loHttp.SetRequestHeader("Idempotency-Key",loCrypt.GenerateUuid())
loHttp.SetRequestHeader("Api-Key",lcMyApiAccessKey)
loHttp.SetRequestHeader("Signature",lcSignature)
loHttp.SetRequestHeader("Content-Type","application/json")
loHttp.Accept = "application/json"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST","https://api.sandbox.paynow.pl/v1/payments",loJson,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJson
    RELEASE loCrypt
    RELEASE loResp
    CANCEL
ENDIF

? "Response body:"
? loResp.BodyStr

* Sample response:
* {
*   "redirectUrl": "https://paywall.sandbox.paynow.pl/NOA0-YJ9-Y1P-29V?token=eyJraWQiOiJhMD ... L60wk",
*   "paymentId": "NOA0-YJ9-Y1P-29V",
*   "status": "NEW"
* }

loJsonResp = CreateObject('Chilkat.JsonObject')
loJsonResp.Load(loResp.BodyStr)
lcRedirectUrl = loJson.StringOf("redirectUrl")
lcPaymentId = loJson.StringOf("paymentId")
lcStatus = loJson.StringOf("status")

RELEASE loHttp
RELEASE loJson
RELEASE loCrypt
RELEASE loResp
RELEASE loJsonResp