(Delphi DLL) 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 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, CkDateTime, HttpResponse, StringBuilder, JsonObject, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
crypt: HCkCrypt2;
apiPath: PWideChar;
apiKey: PWideChar;
apiSecret: PWideChar;
dt: HCkDateTime;
sbNonce: HCkStringBuilder;
nonce: PWideChar;
json: HCkJsonObject;
body: PWideChar;
sbSignature: HCkStringBuilder;
sig: PWideChar;
resp: HCkHttpResponse;

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

http := CkHttp_Create();

crypt := CkCrypt2_Create();

apiPath := 'v2/auth/w/order/submit';
apiKey := 'MY_API_KEY';
apiSecret := 'MY_API_SECRET';

dt := CkDateTime_Create();
CkDateTime_SetFromCurrentSystemTime(dt);

sbNonce := CkStringBuilder_Create();
CkStringBuilder_Append(sbNonce,CkDateTime__getAsUnixTimeStr(dt,False));
CkStringBuilder_Append(sbNonce,'000');
nonce := CkStringBuilder__getAsString(sbNonce);

json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'type','LIMIT');
CkJsonObject_UpdateString(json,'symbol','tBTCUSD');
CkJsonObject_UpdateString(json,'price','15');
CkJsonObject_UpdateString(json,'amount','0.001');
CkJsonObject_UpdateInt(json,'flags',0);
body := CkJsonObject__emit(json);

sbSignature := CkStringBuilder_Create();
CkStringBuilder_Append(sbSignature,'/api/');
CkStringBuilder_Append(sbSignature,apiPath);
CkStringBuilder_Append(sbSignature,nonce);
CkStringBuilder_Append(sbSignature,body);

CkCrypt2_putEncodingMode(crypt,'hex_lower');
CkCrypt2_putHashAlgorithm(crypt,'sha384');
CkCrypt2_putMacAlgorithm(crypt,'hmac');
CkCrypt2_SetMacKeyString(crypt,apiSecret);

sig := CkCrypt2__macStringENC(crypt,CkStringBuilder__getAsString(sbSignature));

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

resp := CkHttp_PostJson2(http,'https://api.bitfinex.com/v2/auth/w/order/submit','application/json',body);
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

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

CkHttpResponse_Dispose(resp);

CkHttp_Dispose(http);
CkCrypt2_Dispose(crypt);
CkDateTime_Dispose(dt);
CkStringBuilder_Dispose(sbNonce);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbSignature);

end;