Author: Pawe Gowacki
There are many situation when it would handy to know the IP address of a device where our app is running. Maybe you want to identify who is running your app? By IP address it is also possible to calculate the approximate location of a device. If you connect to Internet through a router, there are big chances that it implements “Network Address Translation” (NAT), to make it harder for remote machines to establish a direct connection to a machine within a local network.
Recently I have come across a very simple and useful REST API that makes it possible to get the IP address and the geographical location of a client that invokes it. In this way we could find out under which IP address the Internet “sees” us.
If you send an HTTP GET request to http://ip-api.com/json, you will receive a JSON document with information about your IP address, longitude and latitude, country, city, zip code, ISP provider name, timezone and region.
In order to make this service easily accessible in code I have put together a little Delphi “TMyIP” class that provides one class function “GetInfo” that takes “TIPInfo” record “out” parameter and returns a boolean value that indicates if the parameter contains valid information. The actual HTTP GET request is made using the native “THTTPClient” class from “System.Net.HttpClient” unit. The JSON processing is done using “TJSONTextReader” class.
Below is the full source code of the “uMyIP” unit that contains the “TMyIP” class.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 |
<strong> unit</strong> uMyIP; <strong>interface</strong> <strong>type</strong> TIPInfo = <strong>record</strong> status: <strong>string</strong>; aAs: <strong>string</strong>; city: <strong>string</strong>; country: <strong>string</strong>; countyCode: <strong>string</strong>; Isp: <strong>string</strong>; lat: double; lon: double; org: <strong>string</strong>; IPAddress: <strong>string</strong>; region: <strong>string</strong>; regionName: <strong>string</strong>; timezone: <strong>string</strong>; zip: <strong>string</strong>; <strong>end</strong>; TMyIP = <strong>class</strong> <strong>public</strong> <strong>class</strong> <strong>function</strong> GetInfo(<strong>out</strong> info: TIPInfo): boolean; <strong>end</strong>; <strong>implementation</strong> <strong>uses</strong> System.SysUtils, System.Classes, System.JSON.Readers, System.JSON.Types, System.Net.HttpClient; <strong>const</strong> IP_API_JSON_URL = 'http://ip-api.com/json'; <em>{ TMyIP }</em> <strong>class</strong> <strong>function</strong> TMyIP.GetInfo(out info: TIPInfo): boolean; <strong>var</strong> c: THTTPClient; json: <strong>string</strong>; sr: TStringReader; jtr: TJsonTextReader; resp: IHTTPResponse; <strong>begin</strong> Result := False; c := THTTPClient.Create; <strong>try</strong> <strong>try</strong> resp := c.Get(IP_API_JSON_URL); json := resp.ContentAsString; <strong>except</strong> exit; <strong>end</strong>; <strong>finally</strong> c.Free; <strong>end</strong>; sr := TStringReader.Create(json); <strong>try</strong> jtr := TJsonTextReader.Create(sr); <strong>try</strong> <strong>while</strong> jtr.Read <strong>do</strong> <strong>begin</strong> <strong>if</strong> jtr.TokenType = TJsonToken.PropertyName <strong>then</strong> <strong>begin</strong> <strong>if</strong> jtr.Value.ToString = 'status' <strong>then</strong> <strong>begin</strong> jtr.Read; info.status := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'as' <strong>then</strong> <strong>begin</strong> jtr.Read; info.aAs := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'city' <strong>then</strong> <strong>begin</strong> jtr.Read; info.city := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'country' <strong>then</strong> <strong>begin</strong> jtr.Read; info.country := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'countyCode' <strong>then</strong> <strong>begin</strong> jtr.Read; info.countyCode := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'isp' <strong>then</strong> <strong>begin</strong> jtr.Read; info.isp := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'lat' <strong>then</strong> <strong>begin</strong> jtr.Read; info.lat := jtr.Value.AsExtended; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'lon' <strong>then</strong> <strong>begin</strong> jtr.Read; info.lon := jtr.Value.AsExtended; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'org' <strong>then</strong> <strong>begin</strong> jtr.Read; info.org := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'query' <strong>then</strong> <strong>begin</strong> jtr.Read; info.IPAddress := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'region' <strong>then</strong> <strong>begin</strong> jtr.Read; info.region := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'regionName' <strong>then</strong> <strong>begin</strong> jtr.Read; info.regionName := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'timezone' <strong>then</strong> <strong>begin</strong> jtr.Read; info.timezone := jtr.Value.AsString; <strong>end</strong> <strong>else</strong> <strong>if</strong> jtr.Value.ToString = 'zip' <strong>then</strong> <strong>begin</strong> jtr.Read; info.zip := jtr.Value.AsString; <strong>end</strong> <strong>end</strong>; <strong>end</strong> <strong>finally</strong> jtr.Free; <strong>end</strong>; <strong>finally</strong> sr.Free; <strong>end</strong>; Result := info.status = 'success'; <strong>end</strong>; <strong>end</strong>. |
Let’s quickly test this class. Start Delphi and create a new “Multi-Device Application” project. Choose “Blank Application” template and save the main form as “uFormMyIP” and the whole project as “MyIP”. You can optionally change the “Name” property of the form to “FormMyIP”. Add a new unit to the project and save it as “uMyIP”. Copy the above code, select the source code of the empty unit and paste the code to replace the entire content. Now add the new “uMyIP” unit to the uses clause of the form. Drop a button on the form and align it to “Top”. Change its “Text” property to “Check IP”. Drop “TListView” control onto the form, align it to “Client” and change its “Name” property to “lstvwInfo”. Double-click on the button and add the following code to the “OnClick” event handler to invoke the “TMyIP.GetInfo” and display the data in the list view.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
<strong> uses</strong> uMyIP; <strong>procedure</strong> TFormMyIP.btnCheckIPClick(Sender: TObject); <strong> procedure</strong> AddItem(txt, det: <strong>string</strong>); <strong> var</strong> item: TListViewItem; <strong> begin</strong> item := lstvwInfo.Items.Add; item.Text := txt; item.Detail := det; <strong> end</strong>; <strong>var</strong> info: TIPInfo; item: TListViewItem; <strong>begin</strong> <strong>if</strong> TMyIP.GetInfo(info) <strong>then</strong> <strong>begin</strong> lstvwInfo.BeginUpdate; <strong>try</strong> lstvwInfo.Items.Clear; AddItem(info.IPAddress, 'IP address'); AddItem(info.city, 'City'); AddItem(info.country, 'Country'); AddItem(info.timezone, 'Timezone'); AddItem(info.lat.ToString, 'Latitude'); AddItem(info.lon.ToString, 'Longitude'); <strong>finally</strong> lstvwInfo.EndUpdate; <strong>end</strong>; <strong>end</strong> <strong>else</strong> ShowMessage('Failed'); <strong>end</strong>; |
Save all and run the project. When you click on the button you should see how the world sees You!
The complete source code of this simple demo can be downloaded from here. Enjoy!
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
