Android Question Timer in Starter

[Dianzoa]

Hello Friends!
I have a Timer in the Starter Service, to watch for changes in a remote database, even if the app is minimized o in background the starter must check for the database changes. It works for a short period of time, then it crush. Heres is the image of the log error.
EDIT: Actually the title has to be: " Calling httpjobs in Starter Service"

Sub Service_Start (StartingIntent As Intent)
 
    If gpsClient.GPSEnabled=True Then
     
    '        CallSub(Me,"StartGps")
        timer2.Initialize("timer2",20000)
        timer2.Enabled = True
'        gpsClient.Start(0, 0)
'        'timer_gps.Initialize(timer_gps_tick, 35000)
'        'timer_gps.Enabled = True
'        'ProgressDialogShow("Waiting for GPS location")
    End If
End Sub

And I check the database in the timertick event

Dim ServerUrl As String
    ServerUrl = "someurl.aspx?id=" & Main.idrepartidor
    Log(ServerUrl)
    Dim job As HttpJob
    'Msgbox(ServerUrl,"")
   
    job.Initialize("", Me)
    job.PostString(ServerUrl,"")
    Wait For (job) JobDone(j As HttpJob)
    If job.Success Then
        Dim parser As JSONParser
        Dim response As String = job.GetString
        'Msgbox(response,"")
        parser.Initialize(response)
        Dim rows As List
        rows = parser.NextArray
        If rows.Size > 0 Then
        'Msgbox("trae filas","")
            For i = 0 To rows.Size - 1
                'SendMessage(str(Main.idrepartidor), "Nuevo Pedido", Main.nombre_cliente As String)
                'Log("Rows #" & i)
                Dim m As Map
                m = rows.Get(i)
                'Msgbox(Main.idrepartidor,"repartidor")
                'Main.idrepartidor = m.Get("idrepartidor")
                nombre_cliente = m.Get("nombre_solicitante")
                           
                Select m.Get("estado")
                    Case "P "
                        estado = "Pendiente"
                                   
                        If ya_notifique = 0 Then
                                       
                            Dim p As Phone
                            'Msgbox(p.SdkVersion,"")
                            If p.SdkVersion >= 21 Then
                                Dim nb As NotificationBuilder
                                nb.Initialize
                                           
                                nb.ContentTitle = "Nuevo Pedido"
                                nb.ContentText = "Nuevo Pedido de " & nombre_cliente
                                nb.AutoCancel = True
                                If Main.idrepartidor > 0 Then
                                    nb.setActivity(interfaz_inicio)
                                Else
                                    nb.setActivity(Main)
                                End If
                                nb.SmallIcon = "ducati"
                                ya_notifique = 1
                                Main.notifico = 1
                                'nb.Notify(1)
                                If p.SdkVersion >= 26 Then
                                    Dim ctxt As JavaObject
                                    ctxt.InitializeContext
                                    Dim manager As JavaObject
                                    manager.InitializeStatic("android.app.NotificationManager")
                                    Dim Channel As JavaObject
                                    Dim importance As String
                                    importance = "IMPORTANCE_HIGH"
                                    Dim ChannelVisibleName As String = Application.LabelName
                                    Channel.InitializeNewInstance("android.app.NotificationChannel", _
                                                   Array("MyChannelId1", ChannelVisibleName,manager.GetField(importance)))
                                    manager = ctxt.RunMethod("getSystemService", Array("notification"))
                                    manager.RunMethod("createNotificationChannel", Array(Channel))
                                    Dim jo As JavaObject = nb
                                    jo.RunMethod("setChannelId", Array("MyChannelId1"))
                                    ya_notifique = 1
                                    nb.Notify(1)
                                    Return
                                Else
                                    nb.Notify(1)
                                End If
                                   
                            Else
                                Dim n As Notification
                                n.Initialize
                                n.AutoCancel = True
                                n.Icon = "ducati"
                                If Main.idrepartidor > 0 Then
                                    n.SetInfo("EnviaPy","Nuevo pedido de " & nombre_cliente, interfaz_inicio)
                                Else
                                    n.SetInfo("EnviaPy","Nuevo pedido de " & nombre_cliente, Main)
                                End If
                                   
                                ya_notifique = 1
                                Main.notifico = 1
                                n.Notify(1)
                            End If
                       
                        End If
                        'End If
                    Case "R "
                               
                    Case "T "
                               
                End Select
                       
                           
            Next
        End If
    End If
End If
End Sub

Any tips?
Regards, Diego

 

[musaso]

In Android 8.1 the test service always remains active and the notification as well.
How can the test service be terminated?

 

[Erel]

Do you mean starter service?

The actual service gets killed pretty fast. The starter virtual-service will remain active until the process is killed. You don't need to worry about it.

 

[Semen Matusovskiy]

How can the test service be terminated?

If you talk about my sample, you need to correct Service_Destroy event
Instead of simple

StartService (Me)

use

If DoNotRestart = False Then StartService (Me)

where DoNotRestart is process global variable

When you want to kill the service Test

DoNotRestart = True
StopService (Test)

About notifications. I used different ways
If API >= 23 I use Erel's NB6, otherwise - NotificationBuilder.

 

[musaso]

thanks for the info

 

[Dianzoa]

I still have problems, my app does not keeps awake, I will debug tomorrow, and watch for an error in code , maybe is my fault, and not that android keeps destroying my timer and my global variables. The thing is that when I have the phone connected to the computer through b4a bridge it works much more time than when it's running the app itself in the phone. The app installed in tge phone dies after just a few minutes if the phone is "sleeping"

 

[Dianzoa]

UPDATE: I checked that the service stays alive for many minutes, possibly if you do not touch the phone for 1 hour or something like that, the App dies. I could not find the real reason still. But I think that is enough for me, since it's very unlikely that the phone get out of activity for such a long time when people are working.

 

[walterf25]

UPDATE: I checked that the service stays alive for many minutes, possibly if you do not touch the phone for 1 hour or something like that, the App dies. I could not find the real reason still. But I think that is enough for me, since it's very unlikely that the phone get out of activity for such a long time when people are working.

I am facing the same situation, it seems that there's no way around it, if you are using any Services that you want to run in the background the OS will destroy the service, i have also confirmed that if you run the app while connected through the USB cable the app will run for ever, but if you disconnect it and let it run then the service will get destroyed right away.

Walter