(DataFlex) 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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoHttp
    Boolean iSuccess
    Handle hoCrypt
    String sApiPath
    String sApiKey
    String sApiSecret
    Handle hoDt
    Handle hoSbNonce
    String sNonce
    Handle hoJson
    String sBody
    Handle hoSbSignature
    String sSig
    Variant vResp
    Handle hoResp
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
    If (Not(IsComObjectCreated(hoCrypt))) Begin
        Send CreateComObject of hoCrypt
    End

    Move "v2/auth/w/order/submit" To sApiPath
    Move "MY_API_KEY" To sApiKey
    Move "MY_API_SECRET" To sApiSecret

    Get Create (RefClass(cComCkDateTime)) To hoDt
    If (Not(IsComObjectCreated(hoDt))) Begin
        Send CreateComObject of hoDt
    End
    Get ComSetFromCurrentSystemTime Of hoDt To iSuccess

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbNonce
    If (Not(IsComObjectCreated(hoSbNonce))) Begin
        Send CreateComObject of hoSbNonce
    End
    Get ComGetAsUnixTimeStr Of hoDt False To sTemp1
    Get ComAppend Of hoSbNonce sTemp1 To iSuccess
    Get ComAppend Of hoSbNonce "000" To iSuccess
    Get ComGetAsString Of hoSbNonce To sNonce

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "type" "LIMIT" To iSuccess
    Get ComUpdateString Of hoJson "symbol" "tBTCUSD" To iSuccess
    Get ComUpdateString Of hoJson "price" "15" To iSuccess
    Get ComUpdateString Of hoJson "amount" "0.001" To iSuccess
    Get ComUpdateInt Of hoJson "flags" 0 To iSuccess
    Get ComEmit Of hoJson To sBody

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbSignature
    If (Not(IsComObjectCreated(hoSbSignature))) Begin
        Send CreateComObject of hoSbSignature
    End
    Get ComAppend Of hoSbSignature "/api/" To iSuccess
    Get ComAppend Of hoSbSignature sApiPath To iSuccess
    Get ComAppend Of hoSbSignature sNonce To iSuccess
    Get ComAppend Of hoSbSignature sBody To iSuccess

    Set ComEncodingMode Of hoCrypt To "hex_lower"
    Set ComHashAlgorithm Of hoCrypt To "sha384"
    Set ComMacAlgorithm Of hoCrypt To "hmac"
    Get ComSetMacKeyString Of hoCrypt sApiSecret To iSuccess

    Get ComGetAsString Of hoSbSignature To sTemp1
    Get ComMacStringENC Of hoCrypt sTemp1 To sSig

    Send ComSetRequestHeader To hoHttp "bfx-apikey" sApiKey
    Send ComSetRequestHeader To hoHttp "bfx-signature" sSig
    Send ComSetRequestHeader To hoHttp "bfx-nonce" sNonce

    Get ComPostJson2 Of hoHttp "https://api.bitfinex.com/v2/auth/w/order/submit" "application/json" sBody To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Response body:"
    Get ComBodyStr Of hoResp To sTemp1
    Showln sTemp1

    Send Destroy of hoResp


End_Procedure