PureBasic
PureBasic
JSON Estimote Data
See more JSON Examples
Demonstrates accessing some data from an Estimote REST API response. The Estimate REST API responds with a JSON array (i.e. something beginning with "[" and ending with "]"). To parse, this must be made into a JSON object by prepending "{"*":" and appending "}".This example uses the following JSON object:
{"*":[{
"id" : "B9407F30-F5F8-466E-AFF9-25556B57FE6D:28203:50324",
"uuid" : "B9407F30-F5F8-466E-AFF9-25556B57FE6D",
"major" : 28203,
"minor" : 50324,
"mac" : "dd6fc4946e2b",
"settings" : {
"battery" : 100,
"interval" : 950,
"hardware" : "D3.4",
"firmware" : "A3.2.0",
"basic_power_mode" : true,
"smart_power_mode" : true,
"timezone" : "America/Los_Angeles",
"security" : false,
"motion_detection" : true,
"latitude": 37.7979,
"longitude": -122.4408,
"conditional_broadcasting" : "flip to stop",
"broadcasting_scheme" : "estimote",
"range" : -12,
"power" : -12,
"firmware_deprecated" : false,
"firmware_newest" : true,
"location" : null
},
"color" : "blueberry",
"context_id" : 339488,
"name" : "blueberry ibeacon1",
"battery_life_expectancy_in_days" : 1377,
"tags" : []
}, {
"id" : "B9407F30-F5F8-466E-AFF9-25556B57FE6D:25845:21739",
"uuid" : "B9407F30-F5F8-466E-AFF9-25556B57FE6D",
"major" : 25845,
"minor" : 21739,
"mac" : "ff5454eb64f5",
"settings" : {
"battery" : 100,
"interval" : 950,
"hardware" : "D3.4",
"firmware" : "A3.2.0",
"basic_power_mode" : false,
"smart_power_mode" : true,
"timezone" : "America/Los_Angeles",
"security" : false,
"motion_detection" : true,
"conditional_broadcasting" : "flip to stop",
"broadcasting_scheme" : "estimote",
"range" : -12,
"power" : -12,
"firmware_deprecated" : false,
"firmware_newest" : true,
"location" : null
},
"color" : "blueberry",
"context_id" : 339483,
"name" : "blueberry2",
"battery_life_expectancy_in_days" : 1168,
"tags" : []
}
]}
Chilkat PureBasic Downloads
IncludeFile "CkJsonObject.pb"
Procedure ChilkatExample()
success.i = 0
json.i = CkJsonObject::ckCreate()
If json.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::setCkEmitCompact(json, 0)
; Assume the file contains the data as shown above..
success = CkJsonObject::ckLoadFile(json,"qa_data/json/estimote.json")
If success <> 1
Debug CkJsonObject::ckLastErrorText(json)
CkJsonObject::ckDispose(json)
ProcedureReturn
EndIf
; To get the value for "settings.battery" for the 1st array object:
batteryVal.i = CkJsonObject::ckIntOf(json,"*[0].settings.battery")
Debug "battery: " + Str(batteryVal)
; To get the value for "settings.timezon" for the 1st array object:
timeZone.s = CkJsonObject::ckStringOf(json,"*[0].settings.timezone")
Debug "timezone: " + timeZone
; To get the "settings.range" for the 2nd array object:
rangeVal.i = CkJsonObject::ckIntOf(json,"*[1].settings.range")
Debug "range: " + Str(rangeVal)
; To get the "settings.longitude" for the 1st array object:
; Note: Any primitie value can be retrieved as as string: integers, floating point numbers, booleans, etc.
longitudeStr.s = CkJsonObject::ckStringOf(json,"*[0].settings.longitude")
Debug "longitude: " + longitudeStr
CkJsonObject::ckDispose(json)
ProcedureReturn
EndProcedure