(Delphi DLL) ipinfo.io IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the ipinfo.io API.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX 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
http: HCkHttp;
jsonStr: PWideChar;
json: HCkJsonObject;
success: Boolean;
ip: PWideChar;
hostname: PWideChar;
city: PWideChar;
region: PWideChar;
country: PWideChar;
loc: PWideChar;
postal: PWideChar;
asnAsn: PWideChar;
asnName: PWideChar;
asnDomain: PWideChar;
asnRoute: PWideChar;
asnType: PWideChar;
companyName: PWideChar;
companyDomain: PWideChar;
companyType: PWideChar;
carrierName: PWideChar;
carrierMcc: PWideChar;
carrierMnc: PWideChar;

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

http := CkHttp_Create();

CkHttp_putLogin(http,'ACCESS_TOKEN');
CkHttp_putPassword(http,'');
CkHttp_putAccept(http,'application/json');

// Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
jsonStr := CkHttp__quickGetStr(http,'https://ipinfo.io/149.250.207.170');
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

// Note: This is the output for the free trial account.
// 
// {
//   "ip": "149.250.207.170",
//   "city": "",
//   "region": "",
//   "country": "DE",
//   "loc": "51.2993,9.4910",
//   "org": "AS15854 EntServ Deutschland GmbH"
// }

// A full response would look like this:

// {
//   "ip": "66.87.125.72",
//   "hostname": "66-87-125-72.pools.spcsdns.net",
//   "city": "Southbridge",
//   "region": "Massachusetts",
//   "country": "US",
//   "loc": "42.0707,-72.0440",
//   "postal": "01550",
//   "asn": {
//     "asn": "AS10507",
//     "name": "Sprint Personal Communications Systems",
//     "domain": "spcsdns.net",
//     "route": "66.87.125.0/24",
//     "type": "isp"
//   },
//   "company": {
//     "name": "Sprint Springfield POP",
//     "domain": "sprint.com",
//     "type": "isp"
//   },  
//   "carrier": {
//     "name": "Sprint",
//     "mcc": "310",
//     "mnc": "120"
//   }
// }
// 

ip := CkJsonObject__stringOf(json,'ip');
hostname := CkJsonObject__stringOf(json,'hostname');
city := CkJsonObject__stringOf(json,'city');
region := CkJsonObject__stringOf(json,'region');
country := CkJsonObject__stringOf(json,'country');
loc := CkJsonObject__stringOf(json,'loc');
postal := CkJsonObject__stringOf(json,'postal');
asnAsn := CkJsonObject__stringOf(json,'asn.asn');
asnName := CkJsonObject__stringOf(json,'asn.name');
asnDomain := CkJsonObject__stringOf(json,'asn.domain');
asnRoute := CkJsonObject__stringOf(json,'asn.route');
asnType := CkJsonObject__stringOf(json,'asn.type');
companyName := CkJsonObject__stringOf(json,'company.name');
companyDomain := CkJsonObject__stringOf(json,'company.domain');
companyType := CkJsonObject__stringOf(json,'company.type');
carrierName := CkJsonObject__stringOf(json,'carrier.name');
carrierMcc := CkJsonObject__stringOf(json,'carrier.mcc');
carrierMnc := CkJsonObject__stringOf(json,'carrier.mnc');

CkHttp_Dispose(http);
CkJsonObject_Dispose(json);

end;