B4X

Bitfinex v2 REST Submit Order

See more Bitfinex v2 REST Examples

Submit an order. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

Dim apiPath As String = "v2/auth/w/order/submit"
Dim apiKey As String = "MY_API_KEY"
Dim apiSecret As String = "MY_API_SECRET"

Dim dt As ChilkatDateTime
dt.Initialize
dt.SetFromCurrentSystemTime

Dim sbNonce As ChilkatStringBuilder
sbNonce.Initialize
sbNonce.Append(dt.GetAsUnixTimeStr(False))
sbNonce.Append("000")
Dim nonce As String = sbNonce.GetAsString

Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString("type", "LIMIT")
json.UpdateString("symbol", "tBTCUSD")
json.UpdateString("price", "15")
json.UpdateString("amount", "0.001")
json.UpdateInt("flags", 0)
Dim body As String = json.Emit

Dim sbSignature As ChilkatStringBuilder
sbSignature.Initialize
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)

Dim sig As String = crypt.MacStringENC(sbSignature.GetAsString)

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

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpStr("POST", "https://api.bitfinex.com/v2/auth/w/order/submit", body, "utf-8", "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log("Response body:")
Log(resp.BodyStr)