Delphi DLL

ip2location.io GeoLocation API

See more Geolocation Examples

Demonstrates how to lookup Geolocation data for an IPv4 address using the ip2location.io GeoLocation API. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
jsonStr: PWideChar;
json: HCkJsonObject;
ip: PWideChar;
country_code: PWideChar;
country_name: PWideChar;
region_name: PWideChar;
city_name: PWideChar;
latitude: PWideChar;
longitude: PWideChar;
zip_code: PWideChar;
time_zone: PWideChar;
asn: PWideChar;
v_as: PWideChar;
is_proxy: Boolean;

begin
success := False;

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

http := CkHttp_Create();

// Note: This is not a real API key.  Replace with your own...
CkHttp_SetUrlVar(http,'api_key','2C312FBC9E667E5A0211F5152E5A1333');
CkHttp_SetUrlVar(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 := CkHttp__quickGetStr(http,'https://api.ip2location.io/?key={$api_key}&ip={$ip_address}&format=json');
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

json := CkJsonObject_Create();
CkJsonObject_putEmitCompact(json,False);
success := CkJsonObject_Load(json,jsonStr);

Memo1.Lines.Add(CkJsonObject__emit(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 := CkJsonObject__stringOf(json,'ip');
country_code := CkJsonObject__stringOf(json,'country_code');
country_name := CkJsonObject__stringOf(json,'country_name');
region_name := CkJsonObject__stringOf(json,'region_name');
city_name := CkJsonObject__stringOf(json,'city_name');
latitude := CkJsonObject__stringOf(json,'latitude');
longitude := CkJsonObject__stringOf(json,'longitude');
zip_code := CkJsonObject__stringOf(json,'zip_code');
time_zone := CkJsonObject__stringOf(json,'time_zone');
asn := CkJsonObject__stringOf(json,'asn');
v_as := CkJsonObject__stringOf(json,'as');
is_proxy := CkJsonObject_BoolOf(json,'is_proxy');

CkHttp_Dispose(http);
CkJsonObject_Dispose(json);

end;