(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.

For more information, see https://www.ip2location.io/ip2location-documentation

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

    success.i

    ; 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