DataFlex
DataFlex
ip2location.io GeoLocation API
See more Geolocation Examples
Demonstrates how to lookup Geolocation data for an IPv4 address using the ip2location.io GeoLocation API.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoHttp
String sJsonStr
Handle hoJson
String sIp
String sCountry_code
String sCountry_name
String sRegion_name
String sCity_name
String sLatitude
String sLongitude
String sZip_code
String sTime_zone
String sAsn
String sV_as
Boolean iIs_proxy
String sTemp1
Boolean bTemp1
Move False To iSuccess
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
// Note: This is not a real API key. Replace with your own...
Get ComSetUrlVar Of hoHttp "api_key" "2C312FBC9E667E5A0211F5152E5A1333" To iSuccess
Get ComSetUrlVar Of hoHttp "ip_address" "8.8.8.8" To iSuccess
// 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..
Get ComQuickGetStr Of hoHttp "https://api.ip2location.io/?key={$api_key}&ip={$ip_address}&format=json" To sJsonStr
Get ComLastMethodSuccess Of hoHttp To bTemp1
If (bTemp1 = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Set ComEmitCompact Of hoJson To False
Get ComLoad Of hoJson sJsonStr To iSuccess
Get ComEmit Of hoJson To sTemp1
Showln sTemp1
// 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
// }
Get ComStringOf Of hoJson "ip" To sIp
Get ComStringOf Of hoJson "country_code" To sCountry_code
Get ComStringOf Of hoJson "country_name" To sCountry_name
Get ComStringOf Of hoJson "region_name" To sRegion_name
Get ComStringOf Of hoJson "city_name" To sCity_name
Get ComStringOf Of hoJson "latitude" To sLatitude
Get ComStringOf Of hoJson "longitude" To sLongitude
Get ComStringOf Of hoJson "zip_code" To sZip_code
Get ComStringOf Of hoJson "time_zone" To sTime_zone
Get ComStringOf Of hoJson "asn" To sAsn
Get ComStringOf Of hoJson "as" To sV_as
Get ComBoolOf Of hoJson "is_proxy" To iIs_proxy
End_Procedure