(Visual FoxPro) ipapi.co IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the ipapi.co REST API.

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

LOCAL loHttp
LOCAL lcJsonStr
LOCAL loJson
LOCAL lnSuccess
LOCAL lcIp
LOCAL lcCity
LOCAL lcRegion
LOCAL lcRegion_code
LOCAL lcCountry
LOCAL lcCountry_name
LOCAL lcContinent_code
LOCAL lnIn_eu
LOCAL lcPostal
LOCAL lcLatitude
LOCAL lcLongitude
LOCAL lcTimezone
LOCAL lcUtc_offset
LOCAL lcCountry_calling_code
LOCAL lcCurrency
LOCAL lcLanguages
LOCAL lcAsn
LOCAL lcOrg

* 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("https://ipapi.co/149.250.207.170/json")
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": "149.250.207.170",
*   "city": "B�blingen",
*   "region": "Baden-W�rttemberg",
*   "region_code": null,
*   "country": "DE",
*   "country_name": "Germany",
*   "continent_code": "EU",
*   "in_eu": true,
*   "postal": null,
*   "latitude": null,
*   "longitude": null,
*   "timezone": null,
*   "utc_offset": null,
*   "country_calling_code": "+49",
*   "currency": "EUR",
*   "languages": "de",
*   "asn": "AS15854",
*   "org": "EntServ Deutschland GmbH"
* }

lcIp = loJson.StringOf("ip")
lcCity = loJson.StringOf("city")
lcRegion = loJson.StringOf("region")
lcRegion_code = loJson.StringOf("region_code")
lcCountry = loJson.StringOf("country")
lcCountry_name = loJson.StringOf("country_name")
lcContinent_code = loJson.StringOf("continent_code")
lnIn_eu = loJson.BoolOf("in_eu")
lcPostal = loJson.StringOf("postal")
lcLatitude = loJson.StringOf("latitude")
lcLongitude = loJson.StringOf("longitude")
lcTimezone = loJson.StringOf("timezone")
lcUtc_offset = loJson.StringOf("utc_offset")
lcCountry_calling_code = loJson.StringOf("country_calling_code")
lcCurrency = loJson.StringOf("currency")
lcLanguages = loJson.StringOf("languages")
lcAsn = loJson.StringOf("asn")
lcOrg = loJson.StringOf("org")

RELEASE loHttp
RELEASE loJson