GPS coordinates

[Natter]

Hi all !

Is it possible to get GPS coordinates by address ?

[Antonio Linares]

https://stackoverflow.com/questions/113 ... oordinates

Code: Select all

<script type="text/javascript">
var dir1 = "5th ave, new york";
var google_url = "http://maps.googleapis.com/maps/api/geocode/json?address=";
var sensor = "&sensor=false";
var resultado;

function myFunction(){ 

    $.getJSON(
        google_url+dir1+sensor,
        function(result){
            $( "body" ).append( "Latitude: " + JSON.stringify(result.results[0].geometry.bounds.northeast.lat) )
            $( "body" ).append( "Longitude: " + JSON.stringify(result.results[0].geometry.bounds.northeast.lng) )  
    });

}

[Natter]

Thanks it is excellent! But how to make it on a FWH 18.06 ?!

[Antonio Linares]

Code: Select all

#include "FiveWin.ch"

function Main()

   local cGoogleURL := "http://maps.googleapis.com/maps/api/geocode/json?address="
   local cAddress   := "5th ave, new york"
   local cSensor    := "&sensor=false"
   local cKey       := "&key=" + MY_API_KEY

   MsgInfo( WebPageContents( cGoogleURL + cAddress + cSensor + cKey ) )

return nil

To get your API Key:
https://developers.google.com/maps/docu ... sdk/signup

[Silvio.Falconi]

run ok
but Now how obtainthe Lat e long from that message ?

[AntoninoP]

if you want you can try Nominatim with its Web API.
For example

Code: Select all

#include <fivewin.ch>
function Main()

   local cGoogleURL := "https://nominatim.openstreetmap.org/search?format=json&q="
   local cAddress   := "5th ave, new york"
   local aReturn, i, cTxt := ""
   aReturn := hb_jsonDecode( WebPageContents( cGoogleURL + cAddress) )
   if !empty(aReturn)
      for i:=1 to len(aReturn)
         cTxt += aReturn[i,"display_name"] + e"\r\n"
         cTxt += aReturn[i,"lat"]+" "+aReturn[i,"lon"] + e"\r\n" + e"\r\n"
      next
   else
      cTxt:="not found"
   endif
   MsgInfo(cTxt)
return nil

[Otto]

Hello Antonino,
when I try your sample I get only a number as aReturn.
CAn you help us, please.
Best regards,
Otto

[Cgallegoa]

Otto:

This is correct:

Code: Select all

#include "FiveWin.ch"

function Main()

   local cGoogleURL := "https://nominatim.openstreetmap.org/search?format=json&q="
   local cAddress   := "5th ave, new york"
   local aReturn, i, cTxt := ""

  // aReturn := hb_jsonDecode( WebPageContents( cGoogleURL + cAddress) )   // *** Change this *** 
   aReturn := WebPageContents( cGoogleURL + cAddress)
   hb_jsondecode( aReturn, @aReturn )

   if !empty(aReturn)
      for i:=1 to len(aReturn)
         cTxt += aReturn[i,"display_name"] + e"\r\n"
         cTxt += aReturn[i,"lat"]+" "+aReturn[i,"lon"] + e"\r\n" + e"\r\n"
      next
   else
      cTxt:="not found"
   endif
   MsgInfo(cTxt)
return nil
 

Regards

[Otto]

Hello Antonino, hello Carlos,
Thank you so much. All working.
Best regards,
Otto

[AntoninoP]

I am not sure, but the different syntax of hb_jsondecode is relative the Harbour and XHarbour implementations.

You can do the get on browser and use some tools like JSON formatter to see that there are a lot of other information.