Android Question Intent Filters-problem

[kisoft]

HI
I use this solution. It works very well on the version targetSdkVersion="19".

https://www.b4x.com/android/forum/t...sms-messages-in-the-background.20103/#content

Unfortunately when compiling the project to the "targetSdkVersion =" 26 "version. The filter does not work.

'ACTIVITI (main)

Sub Globals
    Private Label1 As Label
    Private Label2 As Label
    Private Label3 As Label
    Private Label4 As Label
end sub

Sub demo
   
    Label3.Text=S1.dane1
    Label4.Text=S1.dane2
   
End Sub

'Service module

Sub Process_Globals
    Type Message (Address As String, Body As String)
    Dim dane1 As String
    Dim dane2 As String
End Sub

Sub Service_Create
 
End Sub
     
Sub Service_Start(startingIntent As Intent)
   
    If startingIntent.Action = "android.provider.Telephony.SMS_RECEIVED" Then
        Dim messages() As Message
        messages = ParseSmsIntent(startingIntent)
        For i = 0 To messages.Length - 1
            Log(messages(i))
        Next
    End If
   
    Service.StopAutomaticForeground
   
End Sub

'Parses an SMS intent and returns an array of messages

Sub ParseSmsIntent (in As Intent) As Message()
   
    Dim messages() As Message
    If in.HasExtra("pdus") = False Then Return messages
    Dim pdus() As Object
    Dim r As Reflector
    pdus = in.GetExtra("pdus")
    If pdus.Length > 0 Then
        Dim messages(pdus.Length) As Message
        For i = 0 To pdus.Length - 1
            r.Target = r.RunStaticMethod("android.telephony.SmsMessage","createFromPdu", _
                Array As Object(pdus(i)), Array As String("[B"))
            messages(i).Body = r.RunMethod("getMessageBody")
            messages(i).Address = r.RunMethod("getOriginatingAddress")
            dane1= messages(i).Body
            dane2= messages(i).Address
            akcja
        Next
    End If
    Return messages
   
End Sub

Sub akcja

Dim a As Boolean
   a=dane1.Contains("Aa1")
     If a = True Then
      CallSubDelayed(Main,"demo")
      StartActivity("main")
      StopService(Me)
     End If
                             
End Sub

 

[Erel]

See the runtime permissions video tutorial.

 

[kisoft]

How to add support for runtime permissions in the service module.

 

[kisoft]

I did it like that. I work very well. However, please colleagues for feedback.

'Service module

Sub Process_Globals
    Type Message (Address As String, Body As String)
    Dim dane1 As String
    Dim dane2 As String
End Sub

Sub Service_Create
 
    Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_ALWAYS
    rp.Check(rp.PERMISSION_RECEIVE_SMS)

    If rp.PERMISSION_RECEIVE_SMS= False Then
        CallSubDelayed(Main,"ITN")
        StartActivity("main")
    End If

End Sub
  
Sub Service_Start(startingIntent As Intent)
 
    If startingIntent.Action = "android.provider.Telephony.SMS_RECEIVED" Then
        Dim messages() As Message
        messages = ParseSmsIntent(startingIntent)
        For i = 0 To messages.Length - 1
            Log(messages(i))
        Next
    End If
 
    Service.StopAutomaticForeground
 
End Sub

'Parses an SMS intent and returns an array of messages

Sub ParseSmsIntent (in As Intent) As Message()
 
    Dim messages() As Message
    If in.HasExtra("pdus") = False Then Return messages
    Dim pdus() As Object
    Dim r As Reflector
    pdus = in.GetExtra("pdus")
    If pdus.Length > 0 Then
        Dim messages(pdus.Length) As Message
        For i = 0 To pdus.Length - 1
            r.Target = r.RunStaticMethod("android.telephony.SmsMessage","createFromPdu", _
                Array As Object(pdus(i)), Array As String("[B"))
            messages(i).Body = r.RunMethod("getMessageBody")
            messages(i).Address = r.RunMethod("getOriginatingAddress")
            dane1= messages(i).Body
            dane2= messages(i).Address
            akcja
        Next
    End If
    Return messages
 
End Sub

Sub akcja

Dim a As Boolean
   a=dane1.Contains("Aa1")
     If a = True Then
      CallSubDelayed(Main,"demo")
      StartActivity("main")
      StopService(Me)
     End If
                          
End Sub

Activity Main

Sub Globals
    Private Label1 As Label
    Private Label2 As Label
    Private Label3 As Label
    Private Label4 As Label
end sub

Sub demo
 
    Label3.Text=S1.dane1
    Label4.Text=S1.dane2
 
End Sub

Sub ITN
  
    rp.CheckAndRequest(rp.PERMISSION_RECEIVE_SMS)
    Wait For activity_PermissionResult (Permission As String, Result As Boolean)
    If Result Then
        Activity.Finish
    End If
  
End Sub

 

[Erel]

Almost correct.

It should be:

If rp.Check(rp.PERMISSION_RECEIVE_SMS) = False Then 
 StartActivity(...)

rp.PERMISSION_RECEIVE_SMS will always return the string "android.permission.RECEIVE_SMS" so it will never be false.

 

[kisoft]

HI
Thank you for the hint. I made a mistake when copying.

 

[kisoft]

I uninstalled the application. I changed the package name and reinstalled. Unfortunately, this solution does not work.

Sub Service_Create
    
    Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_ALWAYS
        rp.Check(rp.PERMISSION_RECEIVE_SMS)
        If rp.Check(rp.PERMISSION_RECEIVE_SMS) = False Then
          CallSubDelayed(Main,"ITN")
          StartActivity("main")
    End If
    
End Sub

I had to accidentally add a permit. Unfortunately, after verification, it does not work.

 

[Erel]

Your previous code worked and this code doesn't?

 

[kisoft]

After your answer I realized that the code could not work and I checked it carefully. There are other places in the code where I give runtime permiision. Probably there the application caught the rights.

I did it like that

Actv(main)

Sub Activity_Create(FirstTime As Boolean)
  
    Activity.LoadLayout("1")
    rp.CheckAndRequest(rp.PERMISSION_RECEIVE_SMS)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result Then
        Label3.Text="ok"
    End If
End SUB

S1

Sub Service_Create
  
        Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_ALWAYS
           rp.Check(rp.PERMISSION_RECEIVE_SMS)
        If rp.Check(rp.PERMISSION_RECEIVE_SMS) = False Then
          StartActivity("main")
    End If
  
End Sub

Now the user is immediately asked for permission after starting the application.