(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
set jsonStr [CkHttp_quickGetStr $http "http://api.db-ip.com/v2/free/149.250.207.170"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0
set success [CkJsonObject_Load $json $jsonStr]

puts [CkJsonObject_emit $json]

# 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"
# }

set ipAddress [CkJsonObject_stringOf $json "ipAddress"]
set continentCode [CkJsonObject_stringOf $json "continentCode"]
set continentName [CkJsonObject_stringOf $json "continentName"]
set countryCode [CkJsonObject_stringOf $json "countryCode"]
set countryName [CkJsonObject_stringOf $json "countryName"]
set stateProv [CkJsonObject_stringOf $json "stateProv"]
set city [CkJsonObject_stringOf $json "city"]

delete_CkHttp $http
delete_CkJsonObject $json