Android Question Runtime permission splash screen

[marcick]

I wanted to put this in code snippet section but (altought it seems to work) I'm sure there are some concept error, so better some expert do some comments before.

I was trying to implement runtime permission, but I falled in a loop because permission CheckAndRequest is not a blocking code and several part of the app requires a permission.
So I have moved all my code in Main activity to a second activity MainRP. The new Main activity only ask in sequence all the permission you need. After the user has approved everything, the real activity (MainRP) is started.
A splash screen can be added to the layout of the main activity eventually.

Attached the sample project.
Any comment is appreciated.
Not sure wich problems I'll encounter for those part of code that is better to put in the starter service for example.

 

[Mahares]

I redid your code based on my very limited knowledge (which is shaky) of Runtime Permission. This is all the code needed and it worked, no other activity is needed:

'In Starter Service:
Sub Process_Globals
    Public rp As RuntimePermissions
End Sub

'In Main Activity:
Sub Activity_Create(FirstTime As Boolean)   
    Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)  '
    Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
    If PResult = False Then
        MsgboxAsync("No permission to access external storage", "")
        Return
    Else
        Log("external storage")
    End If
   
    Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)  '
    Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
    If PResult = False Then
        MsgboxAsync("No permission to access loc", "")
        Return
    Else
        Log("fine loc")
    End If
   
    Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)  '
    Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
    If PResult = False Then
        MsgboxAsync("No permission to access phone id", "")
        Return
    Else
        Dim pid As PhoneId
        Log("phone id: " & pid)
    End If

    Activity.LoadLayout("Layout1")
End Sub

 

[marcick]

The problem is that "Wait For Activity_PermissionResult" is not blocking the flow, so you must be careful in what you do after
Activity.LoadLayout("Layout1"), in Activity_Resume, and other service that you run in your code.
I found difficult to modify all my code to respect the sequence of what I can do or not before all permission have been accepted.
Instead, I find easy to manage the permissions in a separate activity and only when all have been accepted run my real app, without modify it.

 

[ilan]

is not blocking the flow

i do it like this and it works fine.

Sub checkifDirecteryexistsandcreate As ResumableSub
    Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    wait for Activity_PermissionResult(Permission As String,  Result As Boolean)
    If Result = False  Then
        MsgboxAsync("To continue you have to accept the Permission.","Warning")
        Return False
    End If
   
    If File.Exists(File.DirRootExternal, "mySalaryBackupsNew") = False Then
        File.MakeDir(File.DirRootExternal, "mySalaryBackupsNew")
    End If
    Return True
End Sub

now you can say something like this:

Sub backupphoneupload_Click
    Wait For(checkifDirecteryexistsandcreate) Complete (Result As Boolean)
    If Result = False Then Return 'if user denied permission sub will end here!
       
    If File.Exists(File.DirRootExternal,"pc.zip") Then File.Delete(File.DirRootExternal,"pc.zip")
    zipmode = 0
    createFullZip(zipmode)
End Sub

 

[marcick]

Brilliant solution, works perfect, thanks a lot !

 

[Antonio Costa]

i do it like this and it works fine.

Sub checkifDirecteryexistsandcreate As ResumableSub
    Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    wait for Activity_PermissionResult(Permission As String,  Result As Boolean)
    If Result = False  Then
        MsgboxAsync("To continue you have to accept the Permission.","Warning")
        Return False
    End If
  
    If File.Exists(File.DirRootExternal, "mySalaryBackupsNew") = False Then
        File.MakeDir(File.DirRootExternal, "mySalaryBackupsNew")
    End If
    Return True
End Sub

now you can say something like this:

Sub backupphoneupload_Click
    Wait For(checkifDirecteryexistsandcreate) Complete (Result As Boolean)
    If Result = False Then Return 'if user denied permission sub will end here!
      
    If File.Exists(File.DirRootExternal,"pc.zip") Then File.Delete(File.DirRootExternal,"pc.zip")
    zipmode = 0
    createFullZip(zipmode)
End Sub

posso aggiungere direttamente questo codice ? modificando solo in File.DirRootExternal, "mathtest/Listresult.txt"
i need a sub ?

 

[DonManfred]

This is the english part of the forum. Please write english here.

 

[ilan]

posso aggiungere direttamente questo codice ? modificando solo in File.DirRootExternal, "mathtest/Listresult.txt"
i need a sub ?

you can add it directly like this:

'...
    Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    wait for Activity_PermissionResult(Permission As String,  Result As Boolean)
    If Result = False  Then
        MsgboxAsync("To continue you have to accept the Permission.","Warning")
        Return 'user denied permission so exit sub!
    End If

    'user has accepted the permission so let's do something now
    If File.Exists(File.DirRootExternal, "mySalaryBackupsNew") = False Then
        File.MakeDir(File.DirRootExternal, "mySalaryBackupsNew")
    End If

 

[Antonio Costa]

This is the english part of the forum. Please write english here.

sorry DonManfred , i will do next time

 

[Christian García S.]

Hello, I have a question with a runtime permissions.

When do you work with SQLite, the suggestion is SQL1.Initialize(File.DirDefaultExternal, "test1.db", True) -> https://www.b4x.com/android/forum/threads/sql-tutorial.6736/

But when do you put the DB in this directory, do you have to ask for -> PERMISSION_WRITE_EXTERNAL_STORAGE, and the app not use this directory like images.

Do you recommend put there or put in folder File.DirAssets, or which is your suggestion.

Thanks for your help.

 

[Mahares]

If you are dealing with runtime permissions and your target SDK is 23 and higher, use the below to initialize. You will not need to ask for permission, example:

Private rp as Runtimepermissions

Private MyFolder as string
MyFolder= rp.GetSafeDirDefaultExternal("") 
SQL1.Initialize(MyFolder, "test1.db", True)

Alternatively, you can also use File.DirInternal without requesting permission.

 

[Christian García S.]

Thanks @Mahares, this works.

 

[LucaMs]

When do you work with SQLite, the suggestion is SQL1.Initialize(File.DirDefaultExternal, "test1.db", True)

My personal suggestion is to crete the DB in File.DirInternal (but not to avoid to ask permssions).