Biblioteca de geolocalização por IP.
Biblioteca de geolocalização por IP.
Implementado na linguagem Delphi, utiliza o conceito de fluent interface para guiar no uso da biblioteca. Biblioteca desenvolvida utilizando os principais players do mercado de solução de "IP-Geolocation", em anexo a lista dos provedores homologados.
A geolocalização baseada em endereços IP é uma técnica usada para estimar a localização geográfica de um dispositivo conectado à Internet usando o endereço IP do mesmo. Este mecanismo depende de que o endereço IP do dispositivo apareça em um banco de dados com sua respectiva localização, endereço postal, cidade, país, região ou coordenadas geográficas, que são alguns dos níveis de detalhe que podem ser registrados.
Para mais informações: Geolocalização de IPs
Essa tecnologia é amplamente usada em:
Geo Marketing
Direcionamento de conteúdo
Controle de acesso (à conteúdos/serviços)
Segurança
Provedor | Site | API | Free Requests |
---|---|---|---|
IP2Location | https://www.ip2location.com | https://api.ip2location.com/v2 | 10.000 yearthly |
IPGeolocation | https://ipgeolocation.io | https://api.ipgeolocation.io/ipgeo | 1.500 daily |
IPStack | https://ipstack.com | http://api.ipstack.com | 10.000 monthly |
IPIfy | https://geo.ipify.org | https://geo.ipify.org/api/v1 | 1.000 monthly |
IPAPI | https://ipapi.com | http://api.ipapi.com/api | 10.000 yearthly |
IPInfo | https://ipinfo.io | https://ipinfo.io | 50.000 monthly |
IPGeolocationAPI | https://ipgeolocationapi.com | https://api.ipgeolocationapi.com/geolocate | Unlimited |
IPWhois | https://ipwhois.io | http://ipwhois.app | 10.000 monthly |
IPDig | https://ipdig.io | https://ipdig.io | Unlimited |
IPData | https://ipdata.co | https://api.ipdata.co | 1.500 daily |
IPLabstack | https://labstack.com/ip | https://ip.labstack.com/api/v1 | 10.000 monthly |
IPTwist | https://iptwist.com | https://iptwist.com | 1.000 monthly |
IP-API | https://ip-api.com | http://ip-api.com | Unlimited |
DB-IP | https://db-ip.com | http://api.db-ip.com/v2 | Unlimited |
Utilizando o Boss (Dependency anager for Delphi) é possível instalar a biblioteca de forma automática.
boss install github.com/antoniojmsjr/IPGeoLocation
Project > Options > Delphi Compiler > Target > All Configurations > Search path
..\IPGeoLocation\Source
uses IPGeoLocation, IPGeoLocation.Interfaces, IPGeoLocation.Types;
var
lMsgError: string;
lGeoLocation: IGeoLocation;
begin
try
lGeoLocation := TIPGeoLocation.New
.IP['201.86.220.241']
.Provider[TIPGeoLocationProviderKind.IPInfo]
//.SetTimeout(5000) //[OPCIONAL]
//.SetAPIKey('TOKEN') //[OPCIONAL]: VERIFICAR ARQUIVO: APIKey.inc
.Request
//.SetResultLanguageCode('pt-br') //[OPCIONAL]
.Execute;
Application.MessageBox(PWideChar(lGeoLocation.ToJSON), 'JSON', MB_OK + MB_ICONINFORMATION); //JSON COM O RESULTADO DA GEOLOCALIZAÇÃO
except
on E: EIPGeoLocationRequestException do
begin
lMsgError := Concat(lMsgError, Format('IP: %s', [E.IP]), sLineBreak);
lMsgError := Concat(lMsgError, Format('IPVersion: %s', [E.IPVersion]), sLineBreak);
lMsgError := Concat(lMsgError, Format('Provider: %s', [E.Provider]), sLineBreak);
lMsgError := Concat(lMsgError, Format('DateTime: %s', [DateTimeTostr(E.DateTime)]), sLineBreak);
lMsgError := Concat(lMsgError, Format('Kind: %s', [E.Kind.AsString]), sLineBreak);
lMsgError := Concat(lMsgError, Format('URL: %s', [E.URL]), sLineBreak);
lMsgError := Concat(lMsgError, Format('Method: %s', [E.Method]), sLineBreak);
lMsgError := Concat(lMsgError, Format('Status Code: %d', [E.StatusCode]), sLineBreak);
lMsgError := Concat(lMsgError, Format('Status Text: %s', [E.StatusText]), sLineBreak);
lMsgError := Concat(lMsgError, Format('Message: %s', [E.Message]));
Application.MessageBox(PWideChar(lMsgError), 'A T E N Ç Ã O', MB_OK + MB_ICONERROR);
end;
on E: Exception do
begin
Application.MessageBox(PWideChar(E.Message), 'A T E N Ç Ã O', MB_OK + MB_ICONERROR);
end;
end;
end;
IPGeoLocation
is free and open-source software licensed under the