Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works

Random project

IPGeoLocation

Biblioteca de geolocalização por IP.

View on GitHub

Anyone may press Interesting, signed in or not. It helps others find this project.

Member rating

No ratings yet.

Sign in to rate this project.

README

IPGeoLocation

Biblioteca de geolocalização por IP.

Implementa uma classe de abstração que recupera informações de geolocalização de um IP utilizando provedores de solução “IP-Geolocation”.

O que é a geolocalização de IP?

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

Para que?

Essa tecnologia é amplamente usada em:

  • Geo Marketing
    • Propagandas direcionadas/sob medida
    • Informação interessante com base na localização
    • Promoções/campanhas destinadas a certo público/local
    • Empresas de turismo, companhias aéreas, redes hoteleiras
    • Entretenimento
  • Direcionamento de conteúdo
    • Portais “globais” com conteúdos “locais”
    • Informações no idioma do leitor
    • Conteúdo de interesse local (notícia, novidades, etc)
    • Portais de notícias
    • Serviços de informação meteorológica
    • Serviços de emergência
  • Controle de acesso (à conteúdos/serviços)
    • Restringir acesso conteúdo/serviços com base na “localização” do usuário
    • Conteúdos específicos para determinado “público”
    • Censura
    • Jogos online
    • Streaming vídeos/músicas
  • Segurança
    • Restringir tráfego, por localização do usuário
    • Em situação de emergência/ataque descartar tráfego “não esperado”
    • Controle de SPAM
    • Firewalls

Provedores Homologados

Provedor Site API
IP2Location https://www.ip2location.com https://api.ip2location.com/v2
IP Geolocation https://ipgeolocation.io https://api.ipgeolocation.io/ipgeo
IP Stack https://ipstack.com http://api.ipstack.com
IP Ify https://geo.ipify.org https://geo.ipify.org/api/v1
IP API https://ipapi.com http://api.ipapi.com/api
IP Info https://ipinfo.io https://ipinfo.io
IP Geolocation API https://ipgeolocationapi.com https://api.ipgeolocationapi.com/geolocate
IP Data https://ipdata.co https://api.ipdata.co

Demo

delphi
uses IPGeoLocation, IPGeoLocation.Types;
delphi
  try
     TIPGeoLocation
    .New
      .IP['177.97.112.28']
      .Provider[TTypeIPGeoLocationProvider.IPInfo]
        .Params
      .Request
        .Execute
        .ToJSON(ResultJSON); 
  except
    on E: EIPGeoLocationRequestException do
    begin
      var lMsg: string;
      lMsg := EmptyStr;
      lMsg := Concat(lMsg, Format('Provider: %s', [E.Provider]), sLineBreak);
      lMsg := Concat(lMsg, Format('Kind: %s', [IPGeoLocationExceptionKindToString(E.Kind)]), sLineBreak);
      lMsg := Concat(lMsg, Format('URL: %s', [E.URL]), sLineBreak);
      lMsg := Concat(lMsg, Format('Method: %s', [E.Method]), sLineBreak);
      lMsg := Concat(lMsg, Format('Status Code: %d', [E.StatusCode]), sLineBreak);
      lMsg := Concat(lMsg, Format('Status Text: %s', [E.StatusText]), sLineBreak);
      lMsg := Concat(lMsg, Format('Message: %s', [E.Message]), sLineBreak);

      Application.MessageBox(PWideChar(lMsg), 'ATENÇÃO', MB_OK + MB_ICONERROR);
    end;
    on E: Exception do
    begin
      Application.MessageBox(PWideChar(E.Message), 'ATENÇÃO', MB_OK + MB_ICONERROR);
    end;
  end;

IP Geolocalização

Licença