Comment faire en PureBasic, pour récupérér à partir d'un lieu ou d'une ville pour
récupérér les coordonnées GPS (Latitude Longitude) à partir par exemple
de Mappy en France ou bien de Google Earth ou autre programme, merci à vous
oricman
Récupérer les coordonnées GPS Latitude et Longitude
Re: Récupérer les coordonnées GPS Latitude et Longitude
une petite recherche gougeuleu sur "coordonnées gps villes de france"
Liste des villes de France en SQL, CSV ou XML = https://sql.sh/736-base-donnees-villes-francaises
trié sur le numéro de département
exemple avec le csv
reste à faire le programme purebasic pour exploiter tout ce bazar...
Pat
Liste des villes de France en SQL, CSV ou XML = https://sql.sh/736-base-donnees-villes-francaises
trié sur le numéro de département
exemple avec le csv
Code : Tout sélectionner
1,"01","ozan","OZAN","ozan","Ozan","O250","OSN","01190","284","01284","2","26","6","618","469","500","93","6.6","4.91667","46.3833","2866","51546","+45456","462330","170","205"
2,"01","cormoranche-sur-saone","CORMORANCHE-SUR-SAONE","cormoranche sur saone","Cormoranche-sur-Saône","C65652625","KRMRNXSRSN","01290","123","01123","2","27","6","1058","903","1000","107","9.85","4.83333","46.2333","2772","51379","+44953","461427","168","211"
Pat
Re: Récupérer les coordonnées GPS Latitude et Longitude
Bonjour Patrick88,
merci pour ce partage des infos. C'est et ça sera sûrement utile.
Cordialement
merci pour ce partage des infos. C'est et ça sera sûrement utile.
Cordialement
Re: Récupérer les coordonnées GPS Latitude et Longitude
Si l'on omet la partie spécifique "France" de la question (qui à déjà une réponse de la part de Patrick88), tu peut utiliser le géo-codeur d’OpenStreetMap pour faire ça : https://nominatim.openstreetmap.org/
Bon par-contre il faut faire attention à la façon dont tu fait les requêtes : https://www.smals.be/fr/content/geocoda ... p-partie-1
Bon par-contre il faut faire attention à la façon dont tu fait les requêtes : https://www.smals.be/fr/content/geocoda ... p-partie-1
Re: Récupérer les coordonnées GPS Latitude et Longitude
et voila ....
Code : Tout sélectionner
;***********************************************
;Titre :*recup_gps_affiche_sur_carte
;Auteur : Dobro
;Date :09/07/2020
;Heure :09:41:09
;Version Purebasic : PureBasic 5.71 LTS (Windows - x86)
;Version de l'editeur :EPB PHOENIX V2.68
; Libairies necessaire : Aucune
;***********************************************
;{- Enumerations / DataSections
;{ Windows
Enumeration
#Win
EndEnumeration
;}
;{ Gadgets
Enumeration
#Web
#timer
EndEnumeration
;}
Define.l Event
;}
Declare SetBrowserEmulation()
Global Flag.b
InitNetwork()
;SetBrowserEmulation() ; <<<<<<<<<<<<<<---------------------- Seulement avec Windows 10 pour la version GOOGLE MAP
If OpenWindow(#Win, 439, 55, 1195, 732, "Window", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
; ; ******************* GOOGLE MAP *************************************************
; ; ************* affichage par Adresse de la carte **************************
; ; Affiche le'adresse 12 rue Edouard lefebvre a Versailles ..... a 12 rue lenine a Saint Cyr l'ecole
; ;adresse.s="12 Rue Edouard Lefebvre,Versailles"
; WebGadget(#Web, 60, 55, 1055, 645, "https://www.google.com/maps/place/"+adresse.s) ; <<<<<<<<<<<<< decomenter pour tester
; ne retourne pas les coordonées , seule la carte est affichée
; ; ******************************************************************
; ********************* OPEN STREET MAP **************************************
;********************* Affiche par adresse de la carte *******************************
adresse.s="12 rue edouard lefebvre"
Ville.s="Versailles"
Pays.s="France"
etat.s=""
code_postal.s=""
;
;
WebGadget(#Web, 60, 55, 1055, 645, "https://nominatim.openstreetmap.org/search.php?street="+adresse.s+"&city="+Ville.s+"&county="+Pays.s+"&state="+etat.s+"&county="+Pays.s+"&postalcode="+code_postal.s)
; **********************************************************************************
; *********************** recuperation du point GPS ***************************************
Url.s="https://nominatim.openstreetmap.org/search.php?street="+adresse.s+"&city="+Ville.s+"&county="+Pays.s+"&state="+etat.s+"&county="+Pays.s+"&postalcode="+code_postal.s
*Buffer = ReceiveHTTPMemory(Url.s)
If *Buffer
Taille = MemorySize(*Buffer)
page.s= PeekS(*Buffer, Taille, #PB_UTF8|#PB_ByteLength)
;;;debug page.s
FreeMemory(*Buffer)
Else
Debug "Le téléchargement a échoué"
EndIf
debug "Adresse :" +adresse.s
debug "Ville :"+ville.s
debug "Pays :"+Pays.s
debug "Longitude ="+mid(stringfield(page.s,3,chr(34)+"lon"+chr(34)+":"),1,11)
debug "Latitude ="+mid(stringfield(page.s,3,chr(34)+"lat"+chr(34)+":"),1,12)
; ***************************************************************************************
EndIf
;{- Event loop
Repeat
Event = WaitWindowEvent(12)
Select Event
; ///////////////////
Case #PB_Event_Gadget
Select EventGadget()
Case #Web
Select EventType()
Case#PB_EventType_DownloadEnd
;Url.s= GetGadgetText(#Web)
;Debug Url.s
;debug GetGadgetItemText(#Web,#PB_Web_StatusMessage )
EndSelect
EndSelect
; ////////////////////////
Case #PB_Event_CloseWindow
Select EventWindow()
Case #Win
CloseWindow(#Win)
Break
EndSelect
EndSelect
Forever
;
;}
Procedure SetBrowserEmulation() ; permet de choisir le type de navigateur qu'on veux
; https://msdn.microsoft.com/en-us/library/ee330730(v=vs.85).aspx
Protected IEVersion.s = "2AF9" ; setting the desired IE-Version (see below)
; 11001 (0x2AF9) IE11. Webpages are displayed in IE11 edge mode, regardless of the declared !DOCTYPE directive. Failing to declare a !DOCTYPE directive causes the page to load in Quirks.
; 11000 (0x2AF8) IE11. Webpages containing standards-based !DOCTYPE directives are displayed in IE11 edge mode. Default value for IE11.
; 10001 (0x2711) IE10. Webpages are displayed in IE10 Standards mode, regardless of the !DOCTYPE directive.
; 10000 (0x2710) IE10. Webpages containing standards-based !DOCTYPE directives are displayed in IE10 Standards mode. Default value for IE 10.
; 9999 (0x270F) IE9. Webpages are displayed in IE9 Standards mode, regardless of the declared !DOCTYPE directive. Failing to declare a !DOCTYPE directive causes the page to load in Quirks.
; 9000 (0x2328) IE9. Webpages containing standards-based !DOCTYPE directives are displayed in IE9 mode. Default value for IE 9. Important In IE 10, Webpages containing standards-based !DOCTYPE directives are displayed in IE10 Standards mode.
; 8888 (0x22B8) IE8. Webpages are displayed in IE8 Standards mode, regardless of the declared !DOCTYPE directive. Failing to declare a !DOCTYPE directive causes the page to load in Quirks.
; 8000 (0x1F40) IE8. Webpages containing standards-based !DOCTYPE directives are displayed in IE8 mode. Default value for IE 8 Important In IE 10, Webpages containing standards-based !DOCTYPE directives are displayed in IE10 Standards mode.
; 7000 (0x1B58) IE7. Webpages containing standards-based !DOCTYPE directives are displayed in IE7 Standards mode. Default value for applications hosting the WebBrowser Control.
Protected RegistryString.s
Protected TempRegFile.s
Protected FF
RegistryString = "Windows Registry Editor Version 5.00" + #CRLF$ +
"" + #CRLF$ +
"[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION]" + #CRLF$ +
Chr(34) + GetFilePart(ProgramFilename()) + Chr(34) + "=dword:" + IEVersion + #CRLF$
TempRegFile = GetTemporaryDirectory() + "SetBrowserEmulation.reg"
FF = CreateFile(#PB_Any, TempRegFile)
If FF
WriteString(FF, RegistryString)
CloseFile(FF)
RunProgram("regedit", "/s " + Chr(34) + TempRegFile + Chr(34), "", #PB_Program_Hide | #PB_Program_Wait)
DeleteFile(TempRegFile)
ProcedureReturn #True
EndIf
EndProcedure
; Epb
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Re: Récupérer les coordonnées GPS Latitude et Longitude
bjr à tous
voici un atlas international format texte
que l'on peut reformater pour notre usage avec une petite moulinette
je l'ai moi même adapté à mes besoins
Cordialement
http://www.southville.net/astrolog32/fr/atlas_int.html
http://www.southville.net/astrolog32/fr/atlas_usa.html
voici un atlas international format texte
que l'on peut reformater pour notre usage avec une petite moulinette
je l'ai moi même adapté à mes besoins
Cordialement
http://www.southville.net/astrolog32/fr/atlas_int.html
http://www.southville.net/astrolog32/fr/atlas_usa.html
Re: Récupérer les coordonnées GPS Latitude et Longitude
Merci les gars c'est vraiment sympa de votre part,
Cordialement
Lolo
Cordialement
Lolo