Xojo Plugin

api.db-ip.com IPv4 Geolocation Lookup

See more Geolocation Examples

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

Dim success As Boolean
success = False

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

Dim http As New Chilkat.Http

// Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
Dim jsonStr As String
jsonStr = http.QuickGetStr("http://api.db-ip.com/v2/free/149.250.207.170")
If (http.LastMethodSuccess = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim json As New Chilkat.JsonObject
json.EmitCompact = False
success = json.Load(jsonStr)

System.DebugLog(json.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"
// }

Dim ipAddress As String
Dim continentCode As String
Dim continentName As String
Dim countryCode As String
Dim countryName As String
Dim stateProv As String
Dim city As String

ipAddress = json.StringOf("ipAddress")
continentCode = json.StringOf("continentCode")
continentName = json.StringOf("continentName")
countryCode = json.StringOf("countryCode")
countryName = json.StringOf("countryName")
stateProv = json.StringOf("stateProv")
city = json.StringOf("city")