(Delphi ActiveX) Bitfinex v2 REST User Info

Retrieve the user ID, email, username and timezone setting for the account associated with the API key used.

For more information, see https://docs.bitfinex.com/reference#rest-auth-info-user

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;
crypt: TChilkatCrypt2;
apiPath: WideString;
apiKey: WideString;
apiSecret: WideString;
dt: TCkDateTime;
sbNonce: TChilkatStringBuilder;
nonce: WideString;
body: WideString;
sbSignature: TChilkatStringBuilder;
sig: WideString;
resp: IChilkatHttpResponse;

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 -X POST -H "bfx-nonce: nonce" \
//   -H "bfx-apikey: apiKey" \
//   -H "bfx-signature: sig" \ 
//   https://api.bitfinex.com/v2/auth/r/info/user

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

crypt := TChilkatCrypt2.Create(Self);

apiPath := 'v2/auth/r/info/user';
apiKey := 'MY_API_KEY';
apiSecret := 'MY_API_SECRET';

dt := TCkDateTime.Create(Self);
dt.SetFromCurrentSystemTime();

sbNonce := TChilkatStringBuilder.Create(Self);
sbNonce.Append(dt.GetAsUnixTimeStr(0));
sbNonce.Append('000');
nonce := sbNonce.GetAsString();

// This particular request has an empty body.
body := '';

sbSignature := TChilkatStringBuilder.Create(Self);
sbSignature.Append('/api/');
sbSignature.Append(apiPath);
sbSignature.Append(nonce);
sbSignature.Append(body);

crypt.EncodingMode := 'hex_lower';
crypt.HashAlgorithm := 'sha384';
crypt.MacAlgorithm := 'hmac';
crypt.SetMacKeyString(apiSecret);

sig := crypt.MacStringENC(sbSignature.GetAsString());

http.SetRequestHeader('bfx-apikey',apiKey);
http.SetRequestHeader('bfx-signature',sig);
http.SetRequestHeader('bfx-nonce',nonce);

resp := http.QuickRequest('POST','https://api.bitfinex.com/v2/auth/r/info/user');
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 body:

// [1234567,"joe@example.com","joe_trader",1527691729000,0,null,null,"Central Time (US & Canada)"]
end;