PureBasic

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"

;***********************************************
;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