B4A Library GeoLocation

Sub Process_Globals
    Private geocoder As JavaObject
End Sub


Dim context As JavaObject
context.InitializeContext
geocoder.InitializeNewInstance("android.location.Geocoder", Array(context))


' Method to get addresses from a location (latitude, longitude)
Sub GetFromLocation(lat As Double, lon As Double, maxResults As Int) As List
    Dim addresses As List
    addresses.Initialize
    Try
        Dim result As Object
        result = geocoder.RunMethod("getFromLocation", Array(lat, lon, maxResults))  'note: deprecated in API level 33.
        
        ' Convert the result to a B4A list of Address objects
        Dim addressList As List
        addressList.Initialize
        
        Dim addressArray As Object = result
        Dim size As Int = addressArray.RunMethod("size", Null)
        
        For i = 0 To size - 1
            Dim address As Object = addressArray.RunMethod("get", Array(i))
            addressList.Add(address)
        Next
        
        Return addressList
    Catch
        Log(LastException.Message)
    End Try
    Return Null