German App-Berechtigungen sinvoll verwenden!

BenKhederSoftware

Member
Licensed User
Hallo :)
Ich habe eine Sub mit dem Namen „StarteEinenAnruf“ diese Prüft mit der „CheckeBerichtigung“ ob die Rechte da sind, um einen Telefonruf zu machen.
Deshalb möchte ich den Code „StartActivity(p.Call(10000000000000))“,
ändern um zu prüfen ob die APP bereits die Rechte bekommen hat.
Außerdem benötige ich noch die Sub „CheckeBerechtigung“, die soll beim Click auf einem Button geöffnet werden.
Ich stelle es mir so vor, dass ein Fenster erscheint, in dem man die Rechte in der APP während der Laufzeit ändern kann.
Freue mich auf eure Hilfe.
Danke

Lösung:
B4X:
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Private rp As RuntimePermissions
End Sub

Public Sub StarteEinenAnruf(tel As String, vorgang As Int)
    Dim Success As Boolean
    If rp.Check(rp.PERMISSION_CALL_PHONE) Then
        rp.CheckAndRequest(rp.PERMISSION_CALL_PHONE)
        Wait For Activity_PermissionResult (Permission As String, Success As Boolean)
        If Success Then
            If vorgang = 0 Then
                Log("Telefon: " & tel )
            Else
                Log("Whatsapp: " & tel) 
            End If     
        End If
    Else
        MsgboxAsync("Sie haben noch keine Rechte um diesen Vorgang auszuführen.", "Berechtigungen")
        Wait For Msgbox_Result (Result As Int)
        If Result = DialogResponse.POSITIVE Then
            
        End If
        Return
    End If
End Sub
 
Last edited:

Alexander Stolte

Expert
Licensed User
Longtime User
 
Top