(PureBasic) ipinfo.io IPv4 Geolocation Lookup

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkJsonObject.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::setCkLogin(http, "ACCESS_TOKEN")
    CkHttp::setCkPassword(http, "")
    CkHttp::setCkAccept(http, "application/json")

    ; Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
    jsonStr.s = CkHttp::ckQuickGetStr(http,"https://ipinfo.io/149.250.207.170")
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::setCkEmitCompact(json, 0)
    success.i = CkJsonObject::ckLoad(json,jsonStr)

    Debug CkJsonObject::ckEmit(json)

    ; 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"
    ;   }
    ; }
    ; 
    ip.s
    hostname.s
    city.s
    region.s
    country.s
    loc.s
    postal.s
    asnAsn.s
    asnName.s
    asnDomain.s
    asnRoute.s
    asnType.s
    companyName.s
    companyDomain.s
    companyType.s
    carrierName.s
    carrierMcc.s
    carrierMnc.s

    ip = CkJsonObject::ckStringOf(json,"ip")
    hostname = CkJsonObject::ckStringOf(json,"hostname")
    city = CkJsonObject::ckStringOf(json,"city")
    region = CkJsonObject::ckStringOf(json,"region")
    country = CkJsonObject::ckStringOf(json,"country")
    loc = CkJsonObject::ckStringOf(json,"loc")
    postal = CkJsonObject::ckStringOf(json,"postal")
    asnAsn = CkJsonObject::ckStringOf(json,"asn.asn")
    asnName = CkJsonObject::ckStringOf(json,"asn.name")
    asnDomain = CkJsonObject::ckStringOf(json,"asn.domain")
    asnRoute = CkJsonObject::ckStringOf(json,"asn.route")
    asnType = CkJsonObject::ckStringOf(json,"asn.type")
    companyName = CkJsonObject::ckStringOf(json,"company.name")
    companyDomain = CkJsonObject::ckStringOf(json,"company.domain")
    companyType = CkJsonObject::ckStringOf(json,"company.type")
    carrierName = CkJsonObject::ckStringOf(json,"carrier.name")
    carrierMcc = CkJsonObject::ckStringOf(json,"carrier.mcc")
    carrierMnc = CkJsonObject::ckStringOf(json,"carrier.mnc")


    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure