PureBasic

ip2location.io GeoLocation API

See more Geolocation Examples

Demonstrates how to lookup Geolocation data for an IPv4 address using the ip2location.io GeoLocation API. PureBasic

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

Procedure ChilkatExample()

    success.i = 0

    ; 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

    ; Note: This is not a real API key.  Replace with your own...
    CkHttp::ckSetUrlVar(http,"api_key","2C312FBC9E667E5A0211F5152E5A1333")
    CkHttp::ckSetUrlVar(http,"ip_address","8.8.8.8")

    ; Note: When first creating an ip2location.io account, make sure to at least subscribe to the free access.
    ; Otherwise your API key will not yet work..
    jsonStr.s = CkHttp::ckQuickGetStr(http,"https://api.ip2location.io/?key={$api_key}&ip={$ip_address}&format=json")
    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 = 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

    ; {
    ;   "ip": "8.8.8.8",
    ;   "country_code": "US",
    ;   "country_name": "United States of America",
    ;   "region_name": "California",
    ;   "city_name": "Mountain View",
    ;   "latitude": 37.405992,
    ;   "longitude": -122.078515,
    ;   "zip_code": "94043",
    ;   "time_zone": "-07:00",
    ;   "asn": "15169",
    ;   "as": "Google LLC",
    ;   "is_proxy": false
    ; }

    ip.s = CkJsonObject::ckStringOf(json,"ip")
    country_code.s = CkJsonObject::ckStringOf(json,"country_code")
    country_name.s = CkJsonObject::ckStringOf(json,"country_name")
    region_name.s = CkJsonObject::ckStringOf(json,"region_name")
    city_name.s = CkJsonObject::ckStringOf(json,"city_name")
    latitude.s = CkJsonObject::ckStringOf(json,"latitude")
    longitude.s = CkJsonObject::ckStringOf(json,"longitude")
    zip_code.s = CkJsonObject::ckStringOf(json,"zip_code")
    time_zone.s = CkJsonObject::ckStringOf(json,"time_zone")
    asn.s = CkJsonObject::ckStringOf(json,"asn")
    v_as.s = CkJsonObject::ckStringOf(json,"as")
    is_proxy.i = CkJsonObject::ckBoolOf(json,"is_proxy")


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


    ProcedureReturn
EndProcedure