(Delphi ActiveX) 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 ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
success: Integer;
json: TChilkatJsonObject;
myApiAccessKey: WideString;
mySigCalcKey: WideString;
crypt: TChilkatCrypt2;
messageBody: WideString;
signature: WideString;
resp: IChilkatHttpResponse;
jsonResp: TChilkatJsonObject;
redirectUrl: WideString;
paymentId: WideString;
status: WideString;

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

http := TChilkatHttp.Create(Self);

// 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 := TChilkatJsonObject.Create(Self);
json.UpdateInt('amount',45671);
json.UpdateString('externalId','234567898654');
json.UpdateString('description','Test transaction');
json.UpdateString('buyer.email','jan.kowalski@melements.pl');

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

// Calculate the Signature header.
crypt := TChilkatCrypt2.Create(Self);
crypt.MacAlgorithm := 'hmac';
crypt.EncodingMode := 'base64';
crypt.SetMacKeyString(mySigCalcKey);
crypt.HashAlgorithm := 'SHA-256';
messageBody := json.Emit();
signature := crypt.MacStringENC(messageBody);

http.SetRequestHeader('Idempotency-Key',crypt.GenerateUuid());
http.SetRequestHeader('Api-Key',myApiAccessKey);
http.SetRequestHeader('Signature',signature);
http.SetRequestHeader('Content-Type','application/json');
http.Accept := 'application/json';

resp := http.PostJson3('https://api.sandbox.paynow.pl/v1/payments','application/json',json.ControlInterface);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

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

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

jsonResp := TChilkatJsonObject.Create(Self);
jsonResp.Load(resp.BodyStr);
redirectUrl := json.StringOf('redirectUrl');
paymentId := json.StringOf('paymentId');
status := json.StringOf('status');
end;