Delphi DLL

Bitfinex v2 REST Submit Order

See more Bitfinex v2 REST Examples

Submit an order. Delphi 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
success: Boolean;
http: HCkHttp;
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
success := False;

// 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 := CkHttpResponse_Create();
success := CkHttp_HttpStr(http,'POST','https://api.bitfinex.com/v2/auth/w/order/submit',body,'utf-8','application/json',resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

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

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

end;