Lianja

ipinfo.io IPv4 Geolocation Lookup

See more Geolocation Examples

Demonstrates how to lookup Geolocation data for an IPv4 address using the ipinfo.io API. Lianja

llSuccess = .F.

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

loHttp = createobject("CkHttp")

loHttp.Login = "ACCESS_TOKEN"
loHttp.Password = ""
loHttp.Accept = "application/json"

// Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
lcJsonStr = loHttp.QuickGetStr("https://ipinfo.io/149.250.207.170")
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    return
endif

loJson = createobject("CkJsonObject")
loJson.EmitCompact = .F.
llSuccess = loJson.Load(lcJsonStr)

? loJson.Emit()

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

// Note: This is the output for the free trial account.
// 
// {
//   "ip": "149.250.207.170",
//   "city": "",
//   "region": "",
//   "country": "DE",
//   "loc": "51.2993,9.4910",
//   "org": "AS15854 EntServ Deutschland GmbH"
// }

// A full response would look like this:

// {
//   "ip": "66.87.125.72",
//   "hostname": "66-87-125-72.pools.spcsdns.net",
//   "city": "Southbridge",
//   "region": "Massachusetts",
//   "country": "US",
//   "loc": "42.0707,-72.0440",
//   "postal": "01550",
//   "asn": {
//     "asn": "AS10507",
//     "name": "Sprint Personal Communications Systems",
//     "domain": "spcsdns.net",
//     "route": "66.87.125.0/24",
//     "type": "isp"
//   },
//   "company": {
//     "name": "Sprint Springfield POP",
//     "domain": "sprint.com",
//     "type": "isp"
//   },  
//   "carrier": {
//     "name": "Sprint",
//     "mcc": "310",
//     "mnc": "120"
//   }
// }
// 

lcIp = loJson.StringOf("ip")
lcHostname = loJson.StringOf("hostname")
lcCity = loJson.StringOf("city")
lcRegion = loJson.StringOf("region")
lcCountry = loJson.StringOf("country")
lcLoc = loJson.StringOf("loc")
lcPostal = loJson.StringOf("postal")
lcAsnAsn = loJson.StringOf("asn.asn")
lcAsnName = loJson.StringOf("asn.name")
lcAsnDomain = loJson.StringOf("asn.domain")
lcAsnRoute = loJson.StringOf("asn.route")
lcAsnType = loJson.StringOf("asn.type")
lcCompanyName = loJson.StringOf("company.name")
lcCompanyDomain = loJson.StringOf("company.domain")
lcCompanyType = loJson.StringOf("company.type")
lcCarrierName = loJson.StringOf("carrier.name")
lcCarrierMcc = loJson.StringOf("carrier.mcc")
lcCarrierMnc = loJson.StringOf("carrier.mnc")


release loHttp
release loJson