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:
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:
