(Tcl) ipapi.co IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the ipapi.co 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 "https://ipapi.co/149.250.207.170/json"]
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

# {
#   "ip": "149.250.207.170",
#   "city": "Bblingen",
#   "region": "Baden-Wrttemberg",
#   "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"
# }

set ip [CkJsonObject_stringOf $json "ip"]
set city [CkJsonObject_stringOf $json "city"]
set region [CkJsonObject_stringOf $json "region"]
set region_code [CkJsonObject_stringOf $json "region_code"]
set country [CkJsonObject_stringOf $json "country"]
set country_name [CkJsonObject_stringOf $json "country_name"]
set continent_code [CkJsonObject_stringOf $json "continent_code"]
set in_eu [CkJsonObject_BoolOf $json "in_eu"]
set postal [CkJsonObject_stringOf $json "postal"]
set latitude [CkJsonObject_stringOf $json "latitude"]
set longitude [CkJsonObject_stringOf $json "longitude"]
set timezone [CkJsonObject_stringOf $json "timezone"]
set utc_offset [CkJsonObject_stringOf $json "utc_offset"]
set country_calling_code [CkJsonObject_stringOf $json "country_calling_code"]
set currency [CkJsonObject_stringOf $json "currency"]
set languages [CkJsonObject_stringOf $json "languages"]
set asn [CkJsonObject_stringOf $json "asn"]
set org [CkJsonObject_stringOf $json "org"]

delete_CkHttp $http
delete_CkJsonObject $json