Android Question Google gecode API works on debug mode, but not on release mode

[Jakes72]

Hi guys,

I have enabled the Geocoding API in the console.developers.google.com site.
I am trying to get the longitude & latitude from an address using Google's API.
It works great when I run the compiler in debug mode and use b4bridge to show it on my phone. But when I switch to release mode, it only returns '9999' and '9999' for the latitude and longitude.

Any idea what could be wrong, why it doesn't work in release mode?

Thanks in advance!

Sub btnGetLatLong_Click
                  
        
                Wait For(PlaceToLatLon(txtAddress.Text.trim)) Complete (ll() As Double)
                If ll(0) <> 9999 Then
                    Msgbox("Location: " & ll(0) & ", " & ll(1),"")
                Else
                    Msgbox("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","MyAPIKey", "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")
                    End If
                End If
            Else
                Log("Error!")
            End If
            j.Release
            Return res
        End Sub

 

[Jakes72]

Update on my problem, it looks like google only allows me 1 request a day as I looked at the returned JSON and the status says: OVER_QUERY_LIMIT.
Is this normal? How do I overcome this?

 

[Jakes72]

Hi Syd,

Thanks for the reply and the advice about my key. The thing is that I am only pushing the button exactly once, so I should only be making one request. How come i am going over the limit?

 

[BillMeyer]

@Jakes72 ,
2 things from previous experience:
1. Did you fill in your billing information on an active credit card ?
2. Did you activate the correct API ?

 

[DonManfred]

Thanks for the reply and the advice about my key. The thing is that I am only pushing the button exactly once, so I should only be making one request. How come i am going over the limit?

every user which calls this api without an own key are using the free quota. ALL which are using it AROUND the World. If 30.000 people do it once a day the last 5000 did get an error

 

[DonManfred]

Also note that you need to have your own Key connected to a account with Billing setup correctly.
since a few month there are no free Quota for this Api. You must use a valid Key.

 

[Jakes72]

Hi Everyone, thanks for the help and suggestions.
I eventually got this too work by using the 'Geocoder' library which another member kindly created.

I post my code here to help anyone else battling with this:

Sub btnGetLatLong_Click
                             
       'The 'Geocoder_GeocodeDone' sub will fire once the adddress has been decoded to latitude & longitude co-ords.
        GeoCoder.GetFromLocationName(txtAddress.Text.Trim,5, Null)

End Sub


Sub Geocoder_GeocodeDone(Results() As Address, Tag As Object)
           
                   
            If Results.Length>0 Then
                Dim Address1 As Address
                Dim i As Int
                For i=0 To Results.Length-1
                    Address1=Results(i)
                Next
              
                Msgbox(Address1.Latitude,"")
                Msgbox(Address1.Longitude,"")
       
            Else
            
               Msgbox("GetFromLocation", "No Address matched the Latitude and Longitude")
           
            End If
                   
 End Sub

 

[DonManfred]

I eventually got this too work by using the 'Geocoder' library which another member kindly created.

https://developers.google.com/maps/documentation/geocoding/faq

The old geocoder is discontinued at the end of March 2017

So i expect the Library Geocoder does not work any longer. You need to use the Rest Api.

 

[Jakes72]

Hi Don, well so far the Geocoder library is working for me, I just tested it this morning.
But as a matter of interest how would I use the Rest API to implement this, I do not have a clue, I'm still a noob