Forums PureBasic - Français
http://forums.purebasic.com/french/
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"
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