(Delphi DLL) hotelbeds.com REST API Authentication

Demonstrates how to calculate the X-Signature header and add to requests sent to api.test.hotelbeds.com.

For more information, see https://developer.hotelbeds.com/documentation/getting-started/

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, StringBuilder, CkDateTime, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
dt: HCkDateTime;
bLocalTime: Boolean;
unixTimeStr: PWideChar;
apiKey: PWideChar;
secret: PWideChar;
sb: HCkStringBuilder;
crypt: HCkCrypt2;
signature: PWideChar;
http: HCkHttp;
jsonResponse: PWideChar;

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

// This example duplicates the following CURL statement provided in the hotelbeds.com "Getting Started"
// developer documentation:

// #!/bin/bash 
// apiKey="yourApiKey"
// secret="yourSecret"
// curl -i \
//   -X GET \
//   -H 'Accept:application/json' \
//   -H 'Api-key:'$apiKey'' \
//   -H 'X-Signature:'$(echo -n ${apiKey}${secret}$(date +%s)|sha256sum|awk '{ print $1}')'' \
//   https://api.test.hotelbeds.com/hotel-api/1.0/status

// The "date + %s" command emits a UNIX date/time number such as 1605548842
// We need to concatenate the apiKey, secret, and current date/time in UNIX (numeric) time format.
dt := CkDateTime_Create();
CkDateTime_SetFromCurrentSystemTime(dt);
// Get the UNIX time string in the GMT timezone.
bLocalTime := False;
unixTimeStr := CkDateTime__getAsUnixTimeStr(dt,bLocalTime);
Memo1.Lines.Add(unixTimeStr);

// Use your own API key and secret.  (These are not valid values)
apiKey := '227b20a2cb705e45f3b0a0944672dc07';
secret := '54dc7ba9e2';

sb := CkStringBuilder_Create();
CkStringBuilder_Append(sb,apiKey);
CkStringBuilder_Append(sb,secret);
CkStringBuilder_Append(sb,unixTimeStr);

crypt := CkCrypt2_Create();
CkCrypt2_putHashAlgorithm(crypt,'sha256');
CkCrypt2_putEncodingMode(crypt,'hexlower');
signature := CkCrypt2__hashStringENC(crypt,CkStringBuilder__getAsString(sb));

Memo1.Lines.Add(signature);

http := CkHttp_Create();

CkHttp_SetRequestHeader(http,'Accept','application/json');
CkHttp_SetRequestHeader(http,'Api-key',apiKey);
CkHttp_SetRequestHeader(http,'X-Signature',signature);

jsonResponse := CkHttp__quickGetStr(http,'https://api.test.hotelbeds.com/hotel-api/1.0/status');
Memo1.Lines.Add(jsonResponse);
Memo1.Lines.Add(IntToStr(CkHttp_getLastStatus(http)));

// Sample output:  

// 1605549542
// 2146aefb36e7331b3b29aafd7638398ca22e689573224f1a71274d60bd201ec2
// {"auditData":{"timestamp":"2020-11-16 18:59:02.430"},"status":"OK"}
// 200

CkDateTime_Dispose(dt);
CkStringBuilder_Dispose(sb);
CkCrypt2_Dispose(crypt);
CkHttp_Dispose(http);

end;