(Delphi ActiveX) Bitfinex v2 REST Submit Order

Submit an order.

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

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;
json: TChilkatJsonObject;
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);

crypt := TChilkatCrypt2.Create(Self);

apiPath := 'v2/auth/w/order/submit';
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();

json := TChilkatJsonObject.Create(Self);
json.UpdateString('type','LIMIT');
json.UpdateString('symbol','tBTCUSD');
json.UpdateString('price','15');
json.UpdateString('amount','0.001');
json.UpdateInt('flags',0);
body := json.Emit();

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.PostJson2('https://api.bitfinex.com/v2/auth/w/order/submit','application/json',body);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

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