(Delphi ActiveX) ipdata.co IPv4 Geolocation Lookup

See more Geolocation Examples

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
jsonStr: WideString;
json: TChilkatJsonObject;
success: Integer;
ip: WideString;
is_eu: Integer;
city: WideString;
region: WideString;
region_code: WideString;
country_name: WideString;
country_code: WideString;
continent_name: WideString;
continent_code: WideString;
latitude: WideString;
longitude: WideString;
asn: WideString;
organisation: WideString;
postal: WideString;
calling_code: WideString;
flag: WideString;
emoji_flag: WideString;
emoji_unicode: WideString;
currencyName: WideString;
currencyCode: WideString;
currencySymbol: WideString;
currencyNative: WideString;
currencyPlural: WideString;
time_zoneName: WideString;
time_zoneAbbr: WideString;
time_zoneOffset: WideString;
time_zoneIs_dst: Integer;
time_zoneCurrent_time: WideString;
threatIs_tor: Integer;
threatIs_proxy: Integer;
threatIs_anonymous: Integer;
threatIs_known_attacker: Integer;
threatIs_known_abuser: Integer;
threatIs_threat: Integer;
threatIs_bogon: Integer;
count: WideString;
i: Integer;
count_i: Integer;
name: WideString;
native: WideString;

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

http := TChilkatHttp.Create(Self);

jsonStr := http.QuickGetStr('https://api.ipdata.co/149.250.207.170?api-key=MY_API_KEY');
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
json.EmitCompact := 0;
success := json.Load(jsonStr);

Memo1.Lines.Add(json.Emit());

// Sample output:
// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

// {
//   "ip": "149.250.207.170",
//   "is_eu": true,
//   "city": null,
//   "region": null,
//   "region_code": null,
//   "country_name": "Germany",
//   "country_code": "DE",
//   "continent_name": "Europe",
//   "continent_code": "EU",
//   "latitude": 51.2993,
//   "longitude": 9.491,
//   "asn": "AS15854",
//   "organisation": "EntServ Deutschland GmbH",
//   "postal": null,
//   "calling_code": "49",
//   "flag": "https://ipdata.co/flags/de.png",
//   "emoji_flag": "\ud83c\udde9\ud83c\uddea",
//   "emoji_unicode": "U+1F1E9 U+1F1EA",
//   "languages": [
//     {
//       "name": "German",
//       "native": "Deutsch"
//     }
//   ],
//   "currency": {
//     "name": "Euro",
//     "code": "EUR",
//     "symbol": "\u20ac",
//     "native": "\u20ac",
//     "plural": "euros"
//   },
//   "time_zone": {
//     "name": "Europe/Berlin",
//     "abbr": "CEST",
//     "offset": "+0200",
//     "is_dst": true,
//     "current_time": "2019-04-20T23:54:30.715507+02:00"
//   },
//   "threat": {
//     "is_tor": false,
//     "is_proxy": false,
//     "is_anonymous": false,
//     "is_known_attacker": false,
//     "is_known_abuser": false,
//     "is_threat": false,
//     "is_bogon": false
//   },
//   "count": "2"
// }

ip := json.StringOf('ip');
is_eu := json.BoolOf('is_eu');
city := json.StringOf('city');
region := json.StringOf('region');
region_code := json.StringOf('region_code');
country_name := json.StringOf('country_name');
country_code := json.StringOf('country_code');
continent_name := json.StringOf('continent_name');
continent_code := json.StringOf('continent_code');
latitude := json.StringOf('latitude');
longitude := json.StringOf('longitude');
asn := json.StringOf('asn');
organisation := json.StringOf('organisation');
postal := json.StringOf('postal');
calling_code := json.StringOf('calling_code');
flag := json.StringOf('flag');
emoji_flag := json.StringOf('emoji_flag');
emoji_unicode := json.StringOf('emoji_unicode');
currencyName := json.StringOf('currency.name');
currencyCode := json.StringOf('currency.code');
currencySymbol := json.StringOf('currency.symbol');
currencyNative := json.StringOf('currency.native');
currencyPlural := json.StringOf('currency.plural');
time_zoneName := json.StringOf('time_zone.name');
time_zoneAbbr := json.StringOf('time_zone.abbr');
time_zoneOffset := json.StringOf('time_zone.offset');
time_zoneIs_dst := json.BoolOf('time_zone.is_dst');
time_zoneCurrent_time := json.StringOf('time_zone.current_time');
threatIs_tor := json.BoolOf('threat.is_tor');
threatIs_proxy := json.BoolOf('threat.is_proxy');
threatIs_anonymous := json.BoolOf('threat.is_anonymous');
threatIs_known_attacker := json.BoolOf('threat.is_known_attacker');
threatIs_known_abuser := json.BoolOf('threat.is_known_abuser');
threatIs_threat := json.BoolOf('threat.is_threat');
threatIs_bogon := json.BoolOf('threat.is_bogon');
count := json.StringOf('count');
i := 0;
count_i := json.SizeOfArray('languages');
while i < count_i do
  begin
    json.I := i;
    name := json.StringOf('languages[i].name');
    native := json.StringOf('languages[i].native');
    i := i + 1;
  end;
end;