Hallo,
kann mir vielleicht jemand helfen und sagen, warum dieser Code unter Android-10 die App zum Absturz bringt?
Ich finde keinen Fehler und unter älteren Android-Versionen funktioniert es auch.
Wenn die Erlaubnis erteilt wird, stürzt meine App ab, bei Verweigerung ist alles OK.
kann mir vielleicht jemand helfen und sagen, warum dieser Code unter Android-10 die App zum Absturz bringt?
Ich finde keinen Fehler und unter älteren Android-Versionen funktioniert es auch.
B4X:
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, istOK As Boolean)
If istOK Then
'access here
'Msgbox2Async("Zugriff OK", "Ich", "", "OK", "", Null, False)
'Wait For Msgbox_Result (Result As Int)
ListDir = File.DirRootExternal & "/MeinVerzeichnis "
File.MakeDir(File.DirRootExternal,"MeinVerzeichnis ")
'ListDir = rp.GetSafeDirDefaultExternal("MeinVerzeichnis ")
Else
'no Permission
Msgbox2Async("Wenn Sie der App keinen Zugriff gewähren, werden die Daten im internen Speicher abgelegt auf den Sie keinen Zugriff haben. Sämtliche Daten werden bei einer Deinstallation gelöscht.", "Datenspeicherung", "noch einmal fragen", "Zugriff nicht erlauben", "", Null, False)
'Msgbox2Async("kein Zugriff", "Ich", "", "OK", "", Null, False)
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, istOK As Boolean)
If istOK Then
'access here
ListDir = File.DirRootExternal & "/MeinVerzeichnis "
File.MakeDir(File.DirRootExternal,"MeinVerzeichnis ")
Else
ListDir = File.DirInternal & "/MeinVerzeichnis "
File.MakeDir(File.DirInternal,"MeinVerzeichnis ")
End If
Else
ListDir = File.DirInternal & "/MeinVerzeichnis "
File.MakeDir(File.DirInternal,"MeinVerzeichnis ")
MsgboxAsync("Zum Speichern wird der interne Speicher verwendet.","Hinweis")
End If
End
Last edited: