Pascal (Lazarus/Delphi)

Payeezy Place Temp Authorization Hold on Buyer’s Credit Card

See more HTTP Misc Examples

Demonstrates how to place a temporary authorization hold for the desired amount on the buyer’s credit card. You can Capture the authorized amount on completion of service or Void/Refund the transaction as required. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http,
  Chilkat.CkDateTime,
  Chilkat.Prng,
  Chilkat.HttpResponse,
  Chilkat.StringBuilder,
  Chilkat.JsonObject,
  Chilkat.Crypt2;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  crypt: TCrypt2;
  prng: TPrng;
  apiKey: string;
  apiSecret: string;
  token: string;
  nonce: string;
  dtNow: TCkDateTime;
  sbTimestamp: TStringBuilder;
  timestamp: string;
  json: TJsonObject;
  sbHmacData: TStringBuilder;
  hexHash: string;
  sbBase64Hash: TStringBuilder;
  http: THttp;
  url: string;
  resp: THttpResponse;

begin
  success := False;

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

  crypt := TCrypt2.Create;
  prng := TPrng.Create;

  //  An API key such as y6pWAJNyJyjGv66IsVuWnklkKUPFbb0a
  apiKey := 'my_api_key';
  //  An API secret such as 86fbae7030253af3cd15faef2a1f4b67353e41fb6799f576b5093ae52901e6f7
  apiSecret := 'my_api_secret';
  //  A token such as fdoa-a480ce8951daa73262734cf102641994c1e55e7cdf4c02b6
  token := 'my_merchant_token';

  //  The nonce is a random number (bytes), something like "6057786719490086000"
  nonce := prng.GenRandom(8,'decimal');
  WriteLn('nonce = ' + nonce);

  dtNow := TCkDateTime.Create;
  dtNow.SetFromCurrentSystemTime();
  sbTimestamp := TStringBuilder.Create;
  //  Get the epoch timestamp in seconds
  sbTimestamp.Append(dtNow.GetAsUnixTimeStr(False));
  //  Change it to milliseconds
  sbTimestamp.Append('000');
  //  The timestamp is a number similar to this: 1546011905000 (which is a timestamp taken on 28-Dec-2018).
  timestamp := sbTimestamp.GetAsString();
  WriteLn('timestamp = ' + timestamp);

  //  Generate the following JSON request body:
  //  {
  //    "merchant_ref": "Astonishing-Sale",
  //    "transaction_type": "authorize",
  //    "method": "credit_card",
  //    "amount": "1299",
  //    "currency_code": "USD",
  //    "credit_card": {
  //      "type": "visa",
  //      "cardholder_name": "John Smith",
  //      "card_number": "4788250000028291",
  //      "exp_date": "1020",
  //      "cvv": "123"
  //    }
  //  }

  json := TJsonObject.Create;
  json.UpdateString('merchant_ref','Astonishing-Sale');
  json.UpdateString('transaction_type','authorize');
  json.UpdateString('method','credit_card');
  json.UpdateString('amount','1299');
  json.UpdateString('currency_code','USD');
  json.UpdateString('credit_card.type','visa');
  json.UpdateString('credit_card.cardholder_name','John Smith');
  json.UpdateString('credit_card.card_number','4788250000028291');
  json.UpdateString('credit_card.exp_date','1020');
  json.UpdateString('credit_card.cvv','123');
  json.EmitCompact := False;
  WriteLn(json.Emit());

  //  string hashData = apiKey + nonce + timestamp + token + jsonString;
  sbHmacData := TStringBuilder.Create;
  sbHmacData.Append(apiKey);
  sbHmacData.Append(nonce);
  sbHmacData.Append(timestamp);
  sbHmacData.Append(token);
  sbHmacData.Append(json.Emit());

  //  HMAC the data to produce a hex string.
  crypt.EncodingMode := 'hexlower';
  crypt.MacAlgorithm := 'hmac';
  crypt.SetMacKeyString(apiSecret);
  crypt.HashAlgorithm := 'sha256';
  crypt.Charset := 'utf-8';
  hexHash := crypt.MacStringENC(sbHmacData.GetAsString());
  WriteLn('hexHash = ' + hexHash);

  //  Now base64 encode the hex string:
  sbBase64Hash := TStringBuilder.Create;
  sbBase64Hash.Append(hexHash);
  sbBase64Hash.Encode('base64','utf-8');

  WriteLn('This is the Authorization header to be sent with the payeezy request:');
  WriteLn('Authorization: ' + sbBase64Hash.GetAsString());

  //  -----------------------------------------------------------
  //  Now that we have the value for the Authorization header, send the POST containing the JSON.

  http := THttp.Create;

  http.Accept := '*/*';
  http.UserAgent := '';
  http.SetRequestHeader('Authorization',sbBase64Hash.GetAsString());
  http.SetRequestHeader('apikey',apiKey);
  http.SetRequestHeader('nonce',nonce);
  http.SetRequestHeader('timestamp',timestamp);
  http.SetRequestHeader('token',token);

  http.SessionLogFilename := 'qa_output/payeezy.txt';

  url := 'https://api-cert.payeezy.com/v1/transactions';
  resp := THttpResponse.Create;
  success := http.HttpJson('POST',url,json,'application/json',resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  WriteLn('response status code = ' + resp.StatusCode);
  json.Load(resp.BodyStr);
  WriteLn(json.Emit());

  //  Sample JSON response:

  //  {
  //    "correlation_id": "228.4604632998994",
  //    "transaction_status": "approved",
  //    "validation_status": "success",
  //    "transaction_type": "authorize",
  //    "transaction_id": "ET175628",
  //    "transaction_tag": "2313721985",
  //    "method": "credit_card",
  //    "amount": "1299",
  //    "currency": "USD",
  //    "cvv2": "M",
  //    "token": {
  //      "token_type": "FDToken",
  //      "token_data": {
  //        "value": "9732261336638291"
  //      }
  //    },
  //    "card": {
  //      "type": "visa",
  //      "cardholder_name": "John Smith",
  //      "card_number": "8291",
  //      "exp_date": "1020"
  //    },
  //    "bank_resp_code": "100",
  //    "bank_message": "Approved",
  //    "gateway_resp_code": "00",
  //    "gateway_message": "Transaction Normal"
  //  }
  //  

  WriteLn(json.StringOf('correlation_id'));
  WriteLn(json.StringOf('transaction_status'));
  WriteLn(json.StringOf('validation_status'));
  WriteLn(json.StringOf('transaction_type'));
  WriteLn(json.StringOf('transaction_id'));
  WriteLn(json.StringOf('transaction_tag'));
  WriteLn(json.StringOf('method'));
  WriteLn(json.StringOf('amount'));
  WriteLn(json.StringOf('currency'));
  WriteLn(json.StringOf('cvv2'));
  WriteLn(json.StringOf('token.token_type'));
  WriteLn(json.StringOf('token.token_data.value'));
  WriteLn(json.StringOf('card.type'));
  WriteLn(json.StringOf('card.cardholder_name'));
  WriteLn(json.StringOf('card.card_number'));
  WriteLn(json.StringOf('card.exp_date'));
  WriteLn(json.StringOf('bank_resp_code'));
  WriteLn(json.StringOf('bank_message'));
  WriteLn(json.StringOf('gateway_resp_code'));
  WriteLn(json.StringOf('gateway_message'));


  crypt.Free;
  prng.Free;
  dtNow.Free;
  sbTimestamp.Free;
  json.Free;
  sbHmacData.Free;
  sbBase64Hash.Free;
  http.Free;
  resp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.