Sample code for 30+ languages & platforms
Visual FoxPro

UniPin Game List

See more UniPin Examples

Demonstrates how to send a POST with the hash_hmac(sha256,partnerid+timestamp+path,secretkey) authentication.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro 
LOCAL lnSuccess
LOCAL loHttp
LOCAL loDt
LOCAL lcTimestamp
LOCAL lcPartnerId
LOCAL loCrypt
LOCAL loSbMacData
LOCAL lcAuth
LOCAL loResp
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL lcGame_category
LOCAL lcGame_code
LOCAL lcGame_name
LOCAL lcIcon_url
LOCAL lcGame_status
LOCAL lcUpdated_at
LOCAL lnStatus
LOCAL lcReason
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Implements the following CURL command:

* curl --request POST 'https://dev-api.unipin.com/in-game-topup/list' \
* --header 'partnerid: 587e3675-e0ed-4e9e-9b39-099b11498fdc' \
* --header 'timestamp: 1566552295' \
* --header 'path: in-game-topup/list' \
* --header 'auth: 1d9f5e7aca9f3c14da7c957d6977447739877cebfc10fcf3682bd32da47a2bda' \
* --header 'Content-Type: application/json'

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

loDt = CreateObject('Chilkat.CkDateTime')
loDt.SetFromCurrentSystemTime()
lcTimestamp = loDt.GetAsUnixTimeStr(0)

* Change this to your actual partner ID.
lcPartnerId = "587e3675-e0ed-4e9e-9b39-099b11498fdc"

loHttp.SetRequestHeader("path","in-game-topup/list")
loHttp.SetRequestHeader("timestamp",lcTimestamp)
loHttp.SetRequestHeader("partnerid",lcPartnerId)
loHttp.SetRequestHeader("Content-Type","application/json")

* Calculate the auth header using  hash_hmac(sha256,partnerid+timestamp+path,secretkey)
loCrypt = CreateObject('Chilkat.Crypt2')
loCrypt.MacAlgorithm = "hmac"
loCrypt.HashAlgorithm = "sha256"
loCrypt.EncodingMode = "hexlower"

* Change this to your actual secret key..
loCrypt.SetMacKeyEncoded("wabc123asljdgadlgd3","us-ascii")

loSbMacData = CreateObject('Chilkat.StringBuilder')
loSbMacData.Append(lcPartnerId)
loSbMacData.Append(lcTimestamp)
loSbMacData.Append("in-game-topup/list")

lcAuth = loCrypt.MacStringENC(loSbMacData.GetAsString())
loHttp.SetRequestHeader("auth",lcAuth)

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("POST","https://dev-api.unipin.com/in-game-topup/list",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loDt
    RELEASE loCrypt
    RELEASE loSbMacData
    RELEASE loResp
    CANCEL
ENDIF

loSbResponseBody = CreateObject('Chilkat.StringBuilder')
loResp.GetBodySb(loSbResponseBody)
loJResp = CreateObject('Chilkat.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + STR(lnRespStatusCode)
IF (lnRespStatusCode >= 400) THEN
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    RELEASE loHttp
    RELEASE loDt
    RELEASE loCrypt
    RELEASE loSbMacData
    RELEASE loResp
    RELEASE loSbResponseBody
    RELEASE loJResp
    CANCEL
ENDIF

* Sample JSON response:
* (Sample code for parsing the JSON response is shown below)

* {
*   "game_list": [
*     {
*       "game_category": "MLBB_ID",
*       "game_code": "MLBBD_ID",
*       "game_name": "Mobile Legends Diamonds",
*       "icon_url": "http://dev-backoffice.unipin.com/images/icon_direct_topup_games/1565343343-icon-1548659712-icon-Mobile legend 300x300 px.png",
*       "game_status": "active",
*       "updated_at": "2019-08-09 16:35:43"
*     },
*     {
*       "game_category": "MLBB_ID",
*       "game_code": "MLBBS_ID",
*       "game_name": "Mobile Legends Starlight Member",
*       "icon_url": "http://dev-backoffice.unipin.com/images/icon_direct_topup_games/1565343258-icon-1548659712-icon-Mobile legend 300x300 px.png",
*       "game_status": "active",
*       "updated_at": "2019-08-09 16:34:18"
*     },
* ...
* ...
*   ],
*   "status": 1,
*   "reason": "Successful"
* }

* Sample code for parsing the JSON response...
* Use the following online tool to generate parsing code from sample JSON:
* Generate Parsing Code from JSON

lnStatus = loJResp.IntOf("status")
lcReason = loJResp.StringOf("reason")
i = 0
lnCount_i = loJResp.SizeOfArray("game_list")
DO WHILE i < lnCount_i
    loJResp.I = i
    lcGame_category = loJResp.StringOf("game_list[i].game_category")
    lcGame_code = loJResp.StringOf("game_list[i].game_code")
    lcGame_name = loJResp.StringOf("game_list[i].game_name")
    lcIcon_url = loJResp.StringOf("game_list[i].icon_url")
    lcGame_status = loJResp.StringOf("game_list[i].game_status")
    lcUpdated_at = loJResp.StringOf("game_list[i].updated_at")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loDt
RELEASE loCrypt
RELEASE loSbMacData
RELEASE loResp
RELEASE loSbResponseBody
RELEASE loJResp