(Delphi DLL) Paynow.pl -- Make a Payment Request

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

For more information, see https://docs.paynow.pl/#section/Payments/Make-a-payment

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, HttpResponse, JsonObject, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
json: HCkJsonObject;
myApiAccessKey: PWideChar;
mySigCalcKey: PWideChar;
crypt: HCkCrypt2;
messageBody: PWideChar;
signature: PWideChar;
resp: HCkHttpResponse;
jsonResp: HCkJsonObject;
redirectUrl: PWideChar;
paymentId: PWideChar;
status: PWideChar;

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

http := CkHttp_Create();

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

json := CkJsonObject_Create();
CkJsonObject_UpdateInt(json,'amount',45671);
CkJsonObject_UpdateString(json,'externalId','234567898654');
CkJsonObject_UpdateString(json,'description','Test transaction');
CkJsonObject_UpdateString(json,'buyer.email','jan.kowalski@melements.pl');

myApiAccessKey := 'c12c386b-650b-43db-9430-d84fc05d9433';
mySigCalcKey := 'b758f20d-ba92-44fa-acca-f57e99787b9d';

// Calculate the Signature header.
crypt := CkCrypt2_Create();
CkCrypt2_putMacAlgorithm(crypt,'hmac');
CkCrypt2_putEncodingMode(crypt,'base64');
CkCrypt2_SetMacKeyString(crypt,mySigCalcKey);
CkCrypt2_putHashAlgorithm(crypt,'SHA-256');
messageBody := CkJsonObject__emit(json);
signature := CkCrypt2__macStringENC(crypt,messageBody);

CkHttp_SetRequestHeader(http,'Idempotency-Key',CkCrypt2__generateUuid(crypt));
CkHttp_SetRequestHeader(http,'Api-Key',myApiAccessKey);
CkHttp_SetRequestHeader(http,'Signature',signature);
CkHttp_SetRequestHeader(http,'Content-Type','application/json');
CkHttp_putAccept(http,'application/json');

resp := CkHttp_PostJson3(http,'https://api.sandbox.paynow.pl/v1/payments','application/json',json);
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('Response body:');
Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));

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

jsonResp := CkJsonObject_Create();
CkJsonObject_Load(jsonResp,CkHttpResponse__bodyStr(resp));
redirectUrl := CkJsonObject__stringOf(json,'redirectUrl');
paymentId := CkJsonObject__stringOf(json,'paymentId');
status := CkJsonObject__stringOf(json,'status');

CkHttp_Dispose(http);
CkJsonObject_Dispose(json);
CkCrypt2_Dispose(crypt);
CkJsonObject_Dispose(jsonResp);

end;