B4A Library [B4X] Fused Location B4xLibrary

Hey everyone,

I created this B4X library to avoid the different implementations of GPS Locating in B4A and B4i.

In B4A it uses the FusedLocationProvider and in B4i it uses the iLocation Library. The code for the FusedLocationProvider in B4A is taken and changed slighly from this thread:

FusedLocationProvider

FusedLocationProvider is Android's latest attempt to improve the location services available to your applications. Official documentation can be found here: https://developer.android.com/google/play-services/location.html. This library depends on the Google Play Services library...
www.b4x.com



Implementation in B4A

1) Add the following code to the manifest
Manifest Code: 
'Manifest
'=============================================================
'Fused Location Provider
'*************************************************************
AddPermission(android.permission.ACCESS_FINE_LOCATION)
AddPermission(android.permission.ACCESS_COARSE_LOCATION)
AddApplicationText(<meta-data
    android:name="com.google.android.gms.version"
    android:value="[USER=21225]@Integer[/USER]/google_play_services_version" />)
'*************************************************************

Edit: [ USER=21225]@Integer[/USER ] is just "at" integer but it is changed automatically.



2) Add the following to the Main Activity
Main Activity Code: 
'Main
'=============================================================
'*************************************************************
#AdditionalJar: com.android.support:support-v4
#AdditionalJar: com.google.android.gms:play-services-location
'*************************************************************

Sub Process_Globals
    Dim rp as RuntimePermissions
    Dim fl As FusedLocation
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
    wait for Activity_PermissionResult(Permission As String, Result As Boolean)
    rp.CheckAndRequest(rp.PERMISSION_ACCESS_COARSE_LOCATION)
    wait for Activity_PermissionResult(Permission As String, Result As Boolean)

    If Result = False Then Activity.Finish

    fl.Initialize("fl", Me)
    fl.StartFLP
End Sub

Public Sub fl_LocationChanged(Location1 As Location)
    Log(Location1.Latitude & "," &  Location1.Longitude)
    fl.StopFLP
End Sub


Implementation in B4i

Add the following to Module Main

Code in Module Main: 
'Main
'=============================================================
'*************************************************************
#PlistExtra:<key>NSLocationWhenInUseUsageDescription</key><string>This application is used to display the current navigation data.</string>
#PlistExtra:<key>NSLocationUsageDescription</key><string>This application is used to display the current navigation data.</string>
'*************************************************************
Sub Process_Globals

    Dim fl As FusedLocation
End Sub

Private Sub Application_Start (Nav As NavigationController)
    'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
    NavControl = Nav
    Page1.Initialize("Page1")
    Page1.Title = "Page 1"
    Page1.RootPanel.Color = Colors.White
    NavControl.ShowPage(Page1)
    fl.Initialize("fl", Me)
    fl.StartFLP
End Sub

Public Sub fl_LocationChanged(Location1 As Location)
    Log(Location1.Latitude & "," &  Location1.Longitude)
    fl.StopFLP
End Sub
 

Attachments

  • NHFusedLocation.b4xlib
    1.3 KB · Views: 511
Last edited:
Click to expand...

iz0ndg

Active Member
Licensed User
Longtime User
I have an error (In library folder fusedlocationprovider : 1.31)

in the manifest I put :
B4X: 
'Manifest
'=============================================================
'Fused Location Provider
'*************************************************************
AddPermission(android.permission.ACCESS_FINE_LOCATION)
AddPermission(android.permission.ACCESS_COARSE_LOCATION)
AddApplicationText(<meta-data
    android:name="com.google.android.gms.version"
    android:value="[USER=21225]@Integer[/USER]/google_play_services_version" />)
'*************************************************************

B4X: 
Logger connesso a: XEDDU18112008657
--------- beginning of system
--------- beginning of main
*** Service (starter) Create ***
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
sending message to waiting queue (activity_permissionresult)
running waiting messages (1)
** Activity (main) Resume **
--------- beginning of crash
java.lang.IllegalStateException: A required meta-data tag in your app's AndroidManifest.xml does not exist.  You must have the following declaration within the <application> element:     <meta-data android:name="com.google.android.gms.version" android:value="@integer/google_play_services_version" />
    at com.google.android.gms.common.GooglePlayServicesUtilLight.isGooglePlayServicesAvailable(com.google.android.gms:play-services-basement@@17.2.1:17)
    at com.google.android.gms.common.GoogleApiAvailabilityLight.isGooglePlayServicesAvailable(com.google.android.gms:play-services-basement@@17.2.1:4)
    at com.google.android.gms.common.GoogleApiAvailability.isGooglePlayServicesAvailable(com.google.android.gms:play-services-base@@17.2.1:96)
    at com.google.android.gms.common.internal.GoogleApiAvailabilityCache.getClientAvailability(com.google.android.gms:play-services-base@@17.2.1:23)
    at com.google.android.gms.common.api.internal.zaan.zaak(com.google.android.gms:play-services-base@@17.2.1:19)
    at com.google.android.gms.common.api.internal.zaas.run(com.google.android.gms:play-services-base@@17.2.1:6)
    at java.util.concurrent.Executors$RunnableAdapter.call(Executors.java:458)
    at java.util.concurrent.FutureTask.run(FutureTask.java:266)
    at java.util.concurrent.ThreadPoolExecutor.processTask(ThreadPoolExecutor.java:1187)
    at java.util.concurrent.ThreadPoolExecutor.runWorker(ThreadPoolExecutor.java:1152)
    at java.util.concurrent.ThreadPoolExecutor$Worker.run(ThreadPoolExecutor.java:641)
    at com.google.android.gms.common.util.concurrent.zza.run(com.google.android.gms:play-services-basement@@17.2.1:6)
    at java.lang.Thread.run(Thread.java:784)
 

hatzisn

Expert
Licensed User
Longtime User


Have you removed the [ USER=21225 ] and [ /USER ] and leave just the ' "at" Integer '?
 
Last edited:

iz0ndg

Active Member
Licensed User
Longtime User
hatzisn said:
Have you removed the [ USER=21225 ] and [ /USER ] and leave just the ' "at" Integer '?
Click to expand...
In this case in compilation Windows I have:
B4X: 
B4A Versione: 9.80
Java Versione: 11
Analisi del Codice.    (0.00s)
Building folders structure.    (0.02s)
Compilazione del codice.    (0.04s)
Compilazione del codice di layouts    (0.00s)
Organizzazione Librerie.    (0.00s)
    (AndroidX SDK)
Generazione file R.    (0.00s)
Compilazione del codice Java prodotto.    (0.02s)
Conversione byte code - ottimizzazione dex.    (1.95s)
Packaging files.    Error
AndroidManifest.xml:22: error: Error: No resource found that matches the given name (at 'value' with value '@Integer/google_play_services_version').

AAPT path: C:\android\tools\..\build-tools\29.0.1\aapt.exe
Exit code:1
 

hatzisn

Expert
Licensed User
Longtime User
Open the SDK manager and update the android SDK. Further more change in the configure paths the path to android.jar of the latest android version Android-29
 

iz0ndg

Active Member
Licensed User
Longtime User
I replaced the lines with:
B4X: 
'=============================================================
'Fused Location Provider
'*************************************************************
AddPermission(android.permission.ACCESS_FINE_LOCATION)
AddPermission(android.permission.ACCESS_COARSE_LOCATION)
'AddApplicationText(<meta-data
'    android:name="com.google.android.gms.version"
'    android:value="@Integer/google_play_services_version" />)
CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)
'*************************************************************

In this mode (from another example for FusedLocationProvider) is OK
 

iz0ndg

Active Member
Licensed User
Longtime User
hatzisn said:
Open the SDK manager and update the android SDK. Further more change in the configure paths the path to android.jar of the latest android version Android-29
Click to expand...
The SDK is updated and path for Version of Android is 29
 

hatzisn

Expert
Licensed User
Longtime User
An update to NHFusedLocation library has been posted in the 1st message.

These are the changes:
B4X: 
'It is initialized like this
flp.Initialize("fl", Me)

'And this event is raised
Private Sub fl_LocationChanged(Location1 As Location)

End Sub

'You can change the parent object also
'Usage case you Initialize the NHFusedLocation in Starter
'and in Main you set the following to raise the event above
'in Main
flp.Parent = Me
 

fbritop

Well-Known Member
Licensed User
Longtime User
An improvement that could be attached:

B4X: 
Public Sub isAuthorized As Boolean
    #if b4i
    Return FLP.IsAuthorized
    #else if b4a
    Dim rp as RuntimePermissions
    Return rp.Check(rp.PERMISSION_ACCESS_FINE_LOCATION) 
    #end if
End Sub
 
Last edited:
You must log in or register to reply here.

Similar Threads

  • Question
Android Question using [B4X] Fused Location B4xLibrary
Replies
2
Views
1K
victormedranop
  • Article
B4A Library [B4X] What3Words b4xlib
Replies
0
Views
3K
hatzisn
  • Article
B4i Library [B4X] NHFusedLocation update
Replies
0
Views
2K
hatzisn
  • Article
B4i Library [B4X] Fused Location B4xLibrary
Replies
0
Views
2K
hatzisn
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…