(Visual FoxPro) Bitfinex v2 REST User Info

Retrieve the user ID, email, username and timezone setting for the account associated with the API key used.

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

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 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')

* Implements the following CURL command:

* curl -X POST -H "bfx-nonce: nonce" \
*   -H "bfx-apikey: apiKey" \
*   -H "bfx-signature: sig" \ 
*   https://api.bitfinex.com/v2/auth/r/info/user

* Use the following online tool to generate HTTP code from a CURL command
* Convert a cURL Command to HTTP Source Code

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

lcApiPath = "v2/auth/r/info/user"
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()

* This particular request has an empty body.
lcBody = ""

* 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.QuickRequest("POST","https://api.bitfinex.com/v2/auth/r/info/user")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loCrypt
    RELEASE loDt
    RELEASE loSbNonce
    RELEASE loSbSignature
    CANCEL
ENDIF

? "Response body:"
? loResp.BodyStr

* Sample response body:

* [1234567,"joe@example.com","joe_trader",1527691729000,0,null,null,"Central Time (US & Canada)"]

RELEASE loHttp
RELEASE loCrypt
RELEASE loDt
RELEASE loSbNonce
RELEASE loSbSignature