Récupérer les coordonnées GPS Latitude et Longitude

[oricman34]

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

[Patrick88]

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

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"

reste à faire le programme purebasic pour exploiter tout ce bazar...

Pat

[Ollivier]

Bonjour Patrick88,

merci pour ce partage des infos. C'est et ça sera sûrement utile.

Cordialement

[Naheulf]

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

[Zorro]

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

[kernadec]

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

[oricman34]

Merci les gars c'est vraiment sympa de votre part,
Cordialement

Lolo