(Visual FoxPro) geo.ipify.org IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the geo.ipify.org REST API.

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

LOCAL loHttp
LOCAL lcJsonStr
LOCAL loJson
LOCAL lnSuccess
LOCAL lcIp
LOCAL lcLocationCountry
LOCAL lcLocationRegion
LOCAL lcLocationCity
LOCAL lcLocationLat
LOCAL lcLocationLng
LOCAL lcLocationPostalCode
LOCAL lcLocationTimezone

* 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: 8.8.8.8
lcJsonStr = loHttp.QuickGetStr("https://geo.ipify.org/api/v1?apiKey=API_KEY&ipAddress=8.8.8.8")
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

* {
*   "ip": "8.8.8.8",
*   "location": {
*     "country": "IT",
*     "region": "Lombardy",
*     "city": "Milan",
*     "lat": 45.4707,
*     "lng": 9.1889,
*     "postalCode": "20147",
*     "timezone": "+02:00"
*   }
* }

lcIp = loJson.StringOf("ip")
lcLocationCountry = loJson.StringOf("location.country")
lcLocationRegion = loJson.StringOf("location.region")
lcLocationCity = loJson.StringOf("location.city")
lcLocationLat = loJson.StringOf("location.lat")
lcLocationLng = loJson.StringOf("location.lng")
lcLocationPostalCode = loJson.StringOf("location.postalCode")
lcLocationTimezone = loJson.StringOf("location.timezone")

RELEASE loHttp
RELEASE loJson