(Delphi ActiveX) ip-api.com IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the ip-api.com API.

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;
as: WideString;
city: WideString;
country: WideString;
countryCode: WideString;
isp: WideString;
lat: WideString;
lon: WideString;
org: WideString;
query: WideString;
region: WideString;
regionName: WideString;
status: WideString;
timezone: WideString;
zip: WideString;

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

http := TChilkatHttp.Create(Self);

// Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
jsonStr := http.QuickGetStr('http://ip-api.com/json/149.250.207.170');
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

// {
//   "as": "AS15854 Hewlett Packard GmbH",
//   "city": "B�blingen",
//   "country": "Germany",
//   "countryCode": "DE",
//   "isp": "Triaton Frankfurt",
//   "lat": 48.6779,
//   "lon": 8.97297,
//   "org": "EntServ Deutschland GmbH",
//   "query": "149.250.207.170",
//   "region": "BW",
//   "regionName": "Baden-W�rttemberg",
//   "status": "success",
//   "timezone": "Europe/Berlin",
//   "zip": "71034"
// }

as := json.StringOf('as');
city := json.StringOf('city');
country := json.StringOf('country');
countryCode := json.StringOf('countryCode');
isp := json.StringOf('isp');
lat := json.StringOf('lat');
lon := json.StringOf('lon');
org := json.StringOf('org');
query := json.StringOf('query');
region := json.StringOf('region');
regionName := json.StringOf('regionName');
status := json.StringOf('status');
timezone := json.StringOf('timezone');
zip := json.StringOf('zip');
end;