(Visual FoxPro) Bitfinex v2 REST Submit Order

Submit an order.

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL lnSuccess
LOCAL loCrypt
LOCAL lcApiPath
LOCAL lcApiKey
LOCAL lcApiSecret
LOCAL loDt
LOCAL loSbNonce
LOCAL lcNonce
LOCAL loJson
LOCAL lcBody
LOCAL loSbSignature
LOCAL lcSig
LOCAL loResp

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

lcApiPath = "v2/auth/w/order/submit"
lcApiKey = "MY_API_KEY"
lcApiSecret = "MY_API_SECRET"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')
loDt.SetFromCurrentSystemTime()

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbNonce = CreateObject('Chilkat.StringBuilder')
loSbNonce.Append(loDt.GetAsUnixTimeStr(0))
loSbNonce.Append("000")
lcNonce = loSbNonce.GetAsString()

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("type","LIMIT")
loJson.UpdateString("symbol","tBTCUSD")
loJson.UpdateString("price","15")
loJson.UpdateString("amount","0.001")
loJson.UpdateInt("flags",0)
lcBody = loJson.Emit()

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbSignature = CreateObject('Chilkat.StringBuilder')
loSbSignature.Append("/api/")
loSbSignature.Append(lcApiPath)
loSbSignature.Append(lcNonce)
loSbSignature.Append(lcBody)

loCrypt.EncodingMode = "hex_lower"
loCrypt.HashAlgorithm = "sha384"
loCrypt.MacAlgorithm = "hmac"
loCrypt.SetMacKeyString(lcApiSecret)

lcSig = loCrypt.MacStringENC(loSbSignature.GetAsString())

loHttp.SetRequestHeader("bfx-apikey",lcApiKey)
loHttp.SetRequestHeader("bfx-signature",lcSig)
loHttp.SetRequestHeader("bfx-nonce",lcNonce)

loResp = loHttp.PostJson2("https://api.bitfinex.com/v2/auth/w/order/submit","application/json",lcBody)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loCrypt
    RELEASE loDt
    RELEASE loSbNonce
    RELEASE loJson
    RELEASE loSbSignature
    CANCEL
ENDIF

? "Response body:"
? loResp.BodyStr

RELEASE loResp

RELEASE loHttp
RELEASE loCrypt
RELEASE loDt
RELEASE loSbNonce
RELEASE loJson
RELEASE loSbSignature