Trouver des infos à partir de l'adresse IP

Il peut être intéressant, à partir d'une adresse ip, d'avoir le pays, la ville et les coordonnées géographique.
Cela est utile pour afficher des informations liées à la ville, ou positionner l'internaute sur une carte.
C'est possible avec le projet HostIp.
Voici une collection de procédures permettant de récupérer ces infos :

Déclarations des procédures globales :
Infos est un tableau associatif (*, *, *, 4) de chaînes

PROCEDURE RecupInfos(sIp est une chaîne)
s est une chaîne

// On interroge Hostip.
SI PAS HTTPRequête("http://api.hostip.info/get_html.php?ip="+sIp+"&position=true") ALORS
Erreur()
SINON
sres est une chaîne = HTTPDonneRésultat(HTTPRésultat)
// sRes est de la forme
// Country: FRANCE (FR)
// City: (Unknown city)
// Latitude:
// Longitude:
POUR TOUTE CHAINE s DE sres SEPAREE PAR Caract(10)
Infos[SansEspace(ExtraitChaîne(s,1,":",DepuisDébut))] = ExtraitChaîne(s,2,":",DepuisDébut)
FIN
FIN

PROCEDURE Pays()

RENVOYER Infos["Country"]

PROCEDURE Ville()

RENVOYER Infos["City"]

PROCEDURE Lattitude()

RENVOYER Infos["Latitude"]

PROCEDURE Longitude()

RENVOYER Infos["Longitude"]