(DataFlex) Geolocation of IP Address

To get information about an IP address, there are various public web services that can be queried. I would also guess that paid-for services exist. In any case, it's likely the service is accessible via a REST API. This example demonstrates a few public geolocation API's, each of which may have limitations on the number of queries per hour/day/etc.

Also, please note that this example was created on 23-Sep-2016. As time goes by, the public services referenced by this example may have changed or disappeared entirely. Make sure to do your research before assuming this example will work. The intent of this example is to give a flavor of what might be possible.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    String sIpAddress
    Handle hoRest
    Boolean iBTls
    Integer iPort
    Boolean iBAutoReconnect
    Boolean iSuccess
    String sResponseJson
    Integer iMaxWaitMs
    Handle hoJson
    String sTemp1
    Boolean bTemp1

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

    // The IP address used in this example is 104.40.211.35
    Move "104.40.211.35" To sIpAddress

    // First we'll try the service at freegeoip.net.
    // They have a limit of 10,000 queries per hour, and also 
    // provide free source code to run your own server.

    Get Create (RefClass(cComChilkatRest)) To hoRest
    If (Not(IsComObjectCreated(hoRest))) Begin
        Send CreateComObject of hoRest
    End

    // Connect to freegeoip.net
    Move False To iBTls
    Move 80 To iPort
    Move True To iBAutoReconnect
    Get ComConnect Of hoRest "freegeoip.net" iPort iBTls iBAutoReconnect To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Query the IP address to return JSON.
    Get ComFullRequestNoBody Of hoRest "GET" "/json/104.40.211.35" To sResponseJson
    Get ComLastMethodSuccess Of hoRest To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Just in case we are still connected..
    Move 10 To iMaxWaitMs
    Get ComDisconnect Of hoRest iMaxWaitMs To iSuccess

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComLoad Of hoJson sResponseJson To iSuccess
    Set ComEmitCompact Of hoJson To False

    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    // The JSON we get back looks like this:
    // {
    //   "ip": "104.40.211.35",
    //   "country_code": "US",
    //   "country_name": "United States",
    //   "region_code": "WA",
    //   "region_name": "Washington",
    //   "city": "Redmond",
    //   "zip_code": "98052",
    //   "time_zone": "America/Los_Angeles",
    //   "latitude": 47.6801,
    //   "longitude": -122.1206,
    //   "metro_code": 819
    // }

    // Examine a few bits of information:
    Get ComStringOf Of hoJson "country_name" To sTemp1
    Showln "country name = " sTemp1
    Get ComStringOf Of hoJson "country_code" To sTemp1
    Showln "country code = " sTemp1

    // -----------------------------------------------------
    // Now to use ip-api.com, which is mostly the same..

    Get ComConnect Of hoRest "ip-api.com" iPort iBTls iBAutoReconnect To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Query the IP address to return JSON.
    Get ComFullRequestNoBody Of hoRest "GET" "/json/104.40.211.35" To sResponseJson
    Get ComLastMethodSuccess Of hoRest To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Just in case we are still connected..
    Get ComDisconnect Of hoRest iMaxWaitMs To iSuccess

    Get ComLoad Of hoJson sResponseJson To iSuccess
    Set ComEmitCompact Of hoJson To False

    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    // The JSON we get back looks like this:
    // This is very strange, because the two services don't agree.
    // {
    //   "as": "AS8075 Microsoft Corporation",
    //   "city": "Amsterdam",
    //   "country": "Netherlands",
    //   "countryCode": "NL",
    //   "isp": "Microsoft Corporation",
    //   "lat": 52.35,
    //   "lon": 4.9167,
    //   "org": "Microsoft Azure",
    //   "query": "104.40.211.35",
    //   "region": "NH",
    //   "regionName": "North Holland",
    //   "status": "success",
    //   "timezone": "Europe/Amsterdam",
    //   "zip": "1091"
    // }

    // Examine a few bits of information:
    Get ComStringOf Of hoJson "country" To sTemp1
    Showln "country name = " sTemp1
    Get ComStringOf Of hoJson "countryCode" To sTemp1
    Showln "country code = " sTemp1


End_Procedure