Awesome

</br>

IPGeoLocation

Biblioteca de geolocalização por IP.

Implementado na linguagem Delphi, utiliza o conceito de fluent interface para guiar no uso da biblioteca.</br> Biblioteca desenvolvida utilizando os principais players do mercado de solução de "IP-Geolocation", em anexo a lista dos provedores homologados.

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

Instalação Automatizada

Utilizando o Boss (Dependency anager for Delphi) é possível instalar a biblioteca de forma automática.

boss install github.com/antoniojmsjr/IPGeoLocation

Instalação Manual:

Project > Options > Delphi Compiler > Target > All Configurations > Search path

..\IPGeoLocation\Source

Uso

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;

Demo

Youtube

Licença

IPGeoLocation is free and open-source software licensed under the