(Visual FoxPro) api.db-ip.com IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the api.db-ip.com REST API.

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

LOCAL loHttp
LOCAL lcJsonStr
LOCAL loJson
LOCAL lnSuccess
LOCAL lcIpAddress
LOCAL lcContinentCode
LOCAL lcContinentName
LOCAL lcCountryCode
LOCAL lcCountryName
LOCAL lcStateProv
LOCAL lcCity

* This example requires 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')

* Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
lcJsonStr = loHttp.QuickGetStr("http://api.db-ip.com/v2/free/149.250.207.170")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0
lnSuccess = loJson.Load(lcJsonStr)

? loJson.Emit()

* Sample output:
* Use this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

* {
*   "ipAddress": "149.250.207.170",
*   "continentCode": "EU",
*   "continentName": "Europe",
*   "countryCode": "DE",
*   "countryName": "Germany",
*   "stateProv": "Baden-W\u00fcrttemberg",
*   "city": "B\u00f6blingen"
* }

lcIpAddress = loJson.StringOf("ipAddress")
lcContinentCode = loJson.StringOf("continentCode")
lcContinentName = loJson.StringOf("continentName")
lcCountryCode = loJson.StringOf("countryCode")
lcCountryName = loJson.StringOf("countryName")
lcStateProv = loJson.StringOf("stateProv")
lcCity = loJson.StringOf("city")

RELEASE loHttp
RELEASE loJson