Android Question [Solved]FusedLocation Resolution Dialog Not working

A

AndroidMadhu

Active Member
Licensed User
Hello,
I am following the below link for GPS enabled service at B4xPages.

https://www.b4x.com/android/forum/threads/fusedlocationprovider-resolution-dialog.111652/

But when I am enabling GPS service at the device the dialog is not showing. Whereas the below code is running at B4A and the GPS enabled dialog is showing as expected.
I am running the same code at B4xPages, but the resolution dialog is not showing.
B4X: 
Log("gps check")
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Starter.flp.IsConnected = False Then
SetState("Location provider not available")
End If
If Result Then
Dim rs As ResumableSub = Starter.CheckLocationSettingStatus() 'CallSub(Starter, "CheckLocationSettingStatus")
Wait For (rs) Complete (SettingsResult As LocationSettingsResult)
Dim sc As StatusCodes
Select SettingsResult.GetLocationSettingsStatus.GetStatusCode
Case sc.SUCCESS
SettingsAreGood
Case sc.RESOLUTION_REQUIRED
SetState("RESOLUTION_REQUIRED")
SettingsResult.GetLocationSettingsStatus.StartResolutionDialog("srd")
Wait For srd_ResolutionDialogDismissed(LocationSettingsUpdated As Boolean)
If LocationSettingsUpdated Then
SettingsAreGood
Else
SetState("Not enabled")
End If
Case Else
SetState("Not available")
End Select
Else
SetState("No permission")
End If

Please advice

Thanks
 
Sort by date Sort by votes

Erel

B4X founder
Staff member
Licensed User
Longtime User
It has something to do with the way FLP handles the event.

Workaround:
B4X: 
'B4XMainPage:
Sub Button1_Click
    rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
    Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
    If Starter.flp.IsConnected = False Then
        SetState("Location provider not available")
    End If
    If Result Then
        Dim rs As ResumableSub = Starter.CheckLocationSettingStatus 
        Wait For (rs) Complete (SettingsResult As LocationSettingsResult)
        Dim sc As StatusCodes
        Select SettingsResult.GetLocationSettingsStatus.GetStatusCode
            Case sc.SUCCESS
                SettingsAreGood
            Case sc.RESOLUTION_REQUIRED
                SetState("RESOLUTION_REQUIRED")
                CallSub2(Main, "StartResolutionDialog", SettingsResult)
                Wait For LocationSettings_Updated (LocationSettingsUpdated As Boolean)
                If LocationSettingsUpdated Then
                    SettingsAreGood
                Else
                    SetState("Not enabled")
                End If
            Case Else
                SetState("Not available")
        End Select
    Else
        SetState("No permission")
    End If
End Sub

B4X: 
'Main
Public Sub StartResolutionDialog (SettingsResult As LocationSettingsResult)
    SettingsResult.GetLocationSettingsStatus.StartResolutionDialog("srd")
    Wait For srd_ResolutionDialogDismissed(LocationSettingsUpdated As Boolean)
    CallSubDelayed2(B4XPages.MainPage, "LocationSettings_Updated", LocationSettingsUpdated) 'change page if needed
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar Threads

  • Question
Android Question Mock Locations with New Fused_Location_Provider_GMS lib
Replies
2
Views
5K
Harris
I
  • Article
B4A Library FusedLocationProviderGMS (Latest)
2
Replies
21
Views
19K
Ivica Golubovic
I
  • Article
Android Tutorial FusedLocationProvider + Resolution Dialog
2
Replies
20
Views
17K
Justcooldev
  • Question
Android Question [SOLVED] v6.00 how to point to Google Play Services Fused Location ?
Replies
4
Views
10K
fbritop
  • Article
B4A Library FusedLocationProvider
6 7 8
Replies
158
Views
98K
Alessandro71
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…