Android Question Adress to Coordonates GPS location

ciginfo · Apr 7, 2021

Hello,
With "Geolocation" I know to get an adress from longitude and latitude, but what is code to get longitude and latitude from an adress.
Thank you

Star-Dust · Apr 7, 2021

In the forum you can find everything. Using the search function will be very useful to you

[B4X] Google Geocoding REST API

This code is compatible with B4A, B4i and B4J. 1. Get an API key: https://developers.google.com/maps/documentation/geocoding/get-api-key 2. Sub PlaceToLatLon(Place As String) As ResumableSub Dim res() As Double = Array As Double(9999, 9999) Dim j As HttpJob j.Initialize("", Me)...

www.b4x.com

emexes · Apr 7, 2021

ciginfo said:
what is code to get longitude and latitude from an address.

I have used this, maybe France has something similar. Our state government has similar free public datasets available, eg every road speed zone in the state.

emexes · Apr 7, 2021

emexes said:
I have used this, maybe France has something similar. Our state government has similar free public datasets available, eg every road speed zone in the state.

This looks promising:

The first French collaborative National Address Database is now online, and freely accessible.

The BAN associates each address listed on the French territory (25 million addresses) with its geographic coordinates.

This looks like the file:

https://adresse.data.gouv.fr/data/ban/adresses/latest/csv/adresses-france.csv.gz

Seems to be semicolon-separated rather than comma-separated but if that's our biggest problem, then I think we're on the home stretch:

B4X:

id;id_fantoir;numero;rep;nom_voie;code_postal;code_insee;nom_commune;code_insee_ancienne_commune;nom_ancienne_commune;x;y;lon;lat;alias;nom_ld;libelle_acheminement;nom_afnor;source_position;source_nom_voie
17002_yssy3h_00001;;1;;Route de l’Abbaye;17500;17002;Agudelle;;;429137.84;6481692.86;-0.462021;45.381192;;;AGUDELLE;ROUTE DE L ABBAYE;inconnue;inconnue
17002_yssy3h_00002;;2;;Route de l’Abbaye;17500;17002;Agudelle;;;429137.84;6481692.86;-0.462021;45.381192;;;AGUDELLE;ROUTE DE L ABBAYE;inconnue;inconnue
17002_yssy3h_00003;;3;;Route de l’Abbaye;17500;17002;Agudelle;;;429137.84;6481692.86;-0.462021;45.381192;;;AGUDELLE;ROUTE DE L ABBAYE;inconnue;inconnue
17002_yssy3h_00004;;4;;Route de l’Abbaye;17500;17002;Agudelle;;;429137.84;6481692.86;-0.462021;45.381192;;;AGUDELLE;ROUTE DE L ABBAYE;inconnue;inconnue
17002_yssy3h_00005;;5;;Route de l’Abbaye;17500;17002;Agudelle;;;429137.84;6481692.86;-0.462021;45.381192;;;AGUDELLE;ROUTE DE L ABBAYE;inconnue;inconnue
17002_yssy3h_00001_a;;1;a;Route de l’Abbaye;17500;17002;Agudelle;;;428997.37;6481342.86;-0.463618;45.377988;;;AGUDELLE;ROUTE DE L ABBAYE;arcep;inconnue
17002_yssy3h_00001_b;;1;b;Route de l’Abbaye;17500;17002;Agudelle;;;429115.9;6481667.58;-0.462287;45.380956;;;AGUDELLE;ROUTE DE L ABBAYE;arcep;inconnue
17002_auqti8_00001;;1;;Le Groizard Chemin de l’Étang;17500;17002;Agudelle;;;428191.67;6482852.96;-0.474751;45.391254;;;AGUDELLE;LE GROIZARD CHEMIN DE L ETANG;inconnue;inconnue
17002_auqti8_00003;;3;;Le Groizard Chemin de l’Étang;17500;17002;Agudelle;;;428191.67;6482852.96;-0.474751;45.391254;;;AGUDELLE;LE GROIZARD CHEMIN DE L ETANG;inconnue;inconnue
17002_auqti8_00005;;5;;Le Groizard Chemin de l’Étang;17500;17002;Agudelle;;;428191.67;6482852.96;-0.474751;45.391254;;;AGUDELLE;LE GROIZARD CHEMIN DE L ETANG;inconnue;inconnue
17002_auqti8_00007;;7;;Le Groizard Chemin de l’Étang;17500;17002;Agudelle;;;428191.67;6482852.96;-0.474751;45.391254;;;AGUDELLE;LE GROIZARD CHEMIN DE L ETANG;inconnue;inconnue
17002_vxge1k_00001;;1;;Chez Limousin;17500;17002;Agudelle;;;428560.47;6482330.39;-0.469749;45.386699;;;AGUDELLE;CHEZ LIMOUSIN;inconnue;inconnue

ciginfo · Apr 7, 2021

Star-Dust said:
In the forum you can find everything. Using the search function will be very useful to you

[B4X] Google Geocoding REST API

This code is compatible with B4A, B4i and B4J. 1. Get an API key: https://developers.google.com/maps/documentation/geocoding/get-api-key 2. Sub PlaceToLatLon(Place As String) As ResumableSub Dim res() As Double = Array As Double(9999, 9999) Dim j As HttpJob j.Initialize("", Me)...

www.b4x.com

I have found nothing with Geolocation library.

Star-Dust · Apr 7, 2021

ciginfo said:
I have found nothing with Geolocation library.

I do not understand

Alex_197 · Apr 8, 2021

check this https://developer.here.com/documentation/geocoding-search-api/dev_guide/topics/quick-start.html

TILogistic · Apr 8, 2021

free:

Overview - Nominatim Manual

nominatim.org

ciginfo · Apr 8, 2021

Star-Dust said:
I do not understand

"Geolocation" is a library created by DonManfred that I use often. https://www.b4x.com/android/forum/threads/geolocation.99710/#content
It is easy to get an adress from longitude and latitude, I search code to get longitude and latitude from an adress .

Star-Dust · Apr 8, 2021

ciginfo said:
"Geolocation" is a library created by DonManfred that I use often. https://www.b4x.com/android/forum/threads/geolocation.99710/#content
It is easy to get an adress from longitude and latitude, I search code to get longitude and latitude from an adress .

the code that I have indicated allows you to have the same result without library. If you have a key for Google Maps using the internet api.

ciginfo · Apr 9, 2021

Star-Dust said:
the code that I have indicated allows you to have the same result without library. If you have a key for Google Maps using the internet api.

Yes, thank you, but why this code returns 9999 & 9999 and not Latitude and longitute of Israel Yodfat ? Where is the problem ?
I put in the manifest as indicated anf API_KEY is correct.

B4X:

Sub Globals
    Dim API_KEY As String
    API_KEY = "AIzaSyDo*************SIrU*******u5oPI"
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
    Wait For(PlaceToLatLon("Israel Yodfat")) Complete (ll() As Double)
    If ll(0) <> 9999 Then
        Log("Location: " & ll(0) & ", " & ll(1))
    Else
        Log("Failed to geocode.")
    End If
    
End Sub

Sub PlaceToLatLon(Place As String) As ResumableSub
    Dim res() As Double = Array As Double(9999, 9999)
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download2("https://maps.googleapis.com/maps/api/geocode/json", Array As String("key", API_KEY, "address", Place))
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Dim jp As JSONParser
        jp.Initialize(j.GetString)
        Dim m As Map = jp.NextObject
        If m.Get("status") = "OK" Then
            Dim results As List = m.Get("results")
            If results.Size > 0 Then
                Dim first As Map = results.Get(0)
                Dim geometry As Map = first.Get("geometry")
                Dim location As Map = geometry.Get("location")
                res(0) = location.Get("lat")
                res(1) = location.Get("lng")
                Log(res(0))
                Log(res(1))
            End If
        End If
    Else
        Log("Error!")
    End If
    j.Release
    Return res
End Sub

Star-Dust · Apr 9, 2021

these values indicate that it did not find the location.
Try another address, possibly a known one and see if it still returns you 9999

aeric · Apr 10, 2021

Try Log(j.GetString) and see what is the value.

ciginfo · Apr 10, 2021

aeric said:
Try Log(j.GetString) and see what is the value.

Thank you,
Log(j.GetString) -> "error_message" : "This API project is not authorized to use this API.",
I use this API_KEY with an other application and it runs fine. Have I tu use a different API_KEY for every application?
Thank you

DonManfred · Apr 10, 2021

The api key is probably bound to a specific package.
You need to check it in the google gloud console.

ciginfo · Apr 11, 2021

I have created a new Api Key but I get the same error message in Log(j.GetString) : "This API project is not authorized to use this API.",
I go to : https://console.cloud.google.com/pr...rview=project&folder=true&organizationId=true
Then "New project" -> Create
I obtain an Api Key "AIzaSyAosZSkD*************6Wn30pais"
I write in Manifest :

B4X:

CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)
AddApplicationText(
<meta-data
  android:name="com.google.android.geo.API_KEY"
  android:value="AIzaSyAosZSkD*************6Wn30pais"/>
)
AddApplicationText(
<uses-library
      android:name="org.apache.http.legacy"
      android:required="false" />
)

In Process_Global : I write :
Dim API_KEY As String
API_KEY = "AIzaSyAosZSkD*************6Wn30pais"

WHERE IS MY ERROR ?

aeric · Apr 11, 2021

Do you select the Key restrictions to None?

[B4X] Google Geocoding REST API

This code is compatible with B4A, B4i and B4J. 1. Get an API key: https://developers.google.com/maps/documentation/geocoding/get-api-key 2. Sub PlaceToLatLon(Place As String) As ResumableSub Dim res() As Double = Array As Double(9999, 9999) Dim j As HttpJob j.Initialize("", Me)...

www.b4x.com

TILogistic · Apr 12, 2021

See:

Free geocoder without api-key, respecting the conditions of use.

Search - Nominatim Manual

nominatim.org

You can use it on B4A, B4J, B4i

Sample:

ciginfo · Apr 12, 2021

aeric said:
Do you select the Key restrictions to None?

[B4X] Google Geocoding REST API

This code is compatible with B4A, B4i and B4J. 1. Get an API key: https://developers.google.com/maps/documentation/geocoding/get-api-key 2. Sub PlaceToLatLon(Place As String) As ResumableSub Dim res() As Double = Array As Double(9999, 9999) Dim j As HttpJob j.Initialize("", Me)...

www.b4x.com

Yes. Here My Api Key

aeric · Apr 12, 2021

ciginfo said:
Yes. Here My Api KeyView attachment 111511

I see a warning

Android Question Adress to Coordonates GPS location

Well-Known Member

Expert

Expert

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Expert

Attachments

Well-Known Member

Expert

Similar Threads