Android Question service module

[Isac]

Hello,

I have a problem with the service module: If I turn off and then I turn on the phone the alarm does not work.

I tried to use: # StartAtBoot: True

But as soon as I turn on the phone immediately starts the service module, but this is not good.

thanks

 

[DonManfred]

You run into the same problem like the one in this thread. See the comments there and you´ll have a solution for your problem

 

[Isac]

Thanks DonManfred,

Do you have any example to show me.

Hello

 

[DonManfred]

No, i just thinked over what the sulution can be. Erel stated that my thoughts were right. But i dont have an example, sorry.

 

[Erel]

But as soon as I turn on the phone immediately starts the service module, but this is not good.

There are several ways to solve it. The simplest is to use a different service to handle the boot intent.

 

[Isac]

Erel how can I change the service module?
I have no idea, now when I turn on the phone sevice module starts by itself.

thanks

#Region  Service Attributes
    #StartAtBoot: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
   
    Dim n As Notification
End Sub
Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)

n.Initialize
n.Icon = "icon"
n.SetInfo("warning ", "You have reached the date","")
n.Notify(1)
End If
End Sub

Sub Service_Destroy
    StopService("")    'Stop this service
    CancelScheduledService("")  'Cancel this service
End Sub

 

[Erel]

Create another service and set the second service to start at boot. You can then call StartServiceAt from the second service to schedule the first one.

 

[Isac]

Erel I created the new service module, now how do I share the given variable of the module Main?

 #Region  Service Attributes
    #StartAtBoot: true
#End Region
 
 
 
 
Sub Process_Globals
 
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
 
 
End Sub
Sub Service_Create
 
End Sub
 
Sub Service_Start (StartingIntent As Intent)
 
StartServiceAt(start,date,False)
 
End Sub
 
Sub Service_Destroy

 

[lemonisdead]

Hi,
To retrieve Process_Globals you have to reference it by the module's name and the variable name.
For example : Main.Variable_Name

Of course, Variable_Name should not be Private

Tip: Sometimes it is easier to store the content of the variable in a file and retrieve it from the running service. Just an idea in case of.

 

[Isac]

thanks

I tried to insert Main.date, but the variable does not see it.



Parsing code. Error
Error parsing program.
Error description: Undeclared variable 'date' is used before it was assigned any value.
Occurred on line: 19
StartServiceAt(start,date,False)

 #Region  Service Attributes
    #StartAtBoot: true
#End Region
 
Sub Process_Globals
 
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
   
    Main.date
   
End Sub
Sub Service_Create
 
End Sub
 
Sub Service_Start (StartingIntent As Intent)
 
StartServiceAt(start,date,False)
 
End Sub
 
Sub Service_Destroy
 
End Sub

 

[lemonisdead]

Excuse, this is not the correct usage.

In the Main activitiy

Sub Process_Globals
  Dim Date1 as Long
End Sub

And in the Service module you make the reference to the Main.date1

#Region Service Attributes
#StartAtBoot: true
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.'These variables can be accessed from all modules.

End Sub

Sub Service_Create
End Sub

Sub Service_Start (StartingIntent AsIntent)
  StartServiceAt(start,Main.date1,False)
  StopService("")
End Sub

Sub Service_Destroy
End Sub

 

[Isac]

Thanks lemonisdead,

That's fine but when I restart the phone the service module will start automatically without waiting for launch date.



this is the first service module called (boot)

#Region  Service Attributes
    #StartAtBoot: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub
Sub Service_Create
End Sub


Sub Service_Start (StartingIntent As Intent)

StartServiceAt(start,Main.date,False)
StopService("")

End Sub

Sub Service_Destroy

End Sub

This is the second service module called (start)

#Region  Service Attributes
    #StartAtBoot: False
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
  
    Dim n As Notification
End Sub
Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)

n.Initialize
n.Icon = "icon"
n.SetInfo("warning ", "You have reached the date","")
n.Notify(1)

End Sub

Sub Service_Destroy
    StopService("")    'Stop this service
    CancelScheduledService("")  'Cancel this service
End Sub

this is a piece of code Main

date=DateTime.Add(DATA,0,0,Giorni)

StartServiceAt(boot,date,False)

I do not understand why the service module boot starts without waiting for the date.

 

[DonManfred]

On device reboot the date you set is lost... Save the date when setting the servicestartat to somewhere... Key value store, db, statemanger, whatever.. On service start at boot you check whether the desired date is reached or not. If not then set the new startat and quit. If the date is reached or in ast then do the work.

Search the forum. There was a few threads handling this issue...

 

[Isac]

I have to be stored in an external file by following this link?

http://www.b4x.com/android/forum/th...ple-and-efficient-key-value-data-store.26317/

 

[lemonisdead]

Hi Isac,
You can use several methods. You could take a look at the File keyword. For example, you can save a list or a map with the useful information.

 

[Isac]

Hi Lemonisdead,

I could use the TextWriter to save the date of a txt file?
and then recall it with TextReader?

thanks

 

[Isac]

I am using the class Keyvaluestore:
But I need your help because it does not work.

This main module

dim memoria as Keyvaluestore
date=DateTime.Add(DATA,0,0,Giorni)
memoria.Initialize(File.DirDefaultExternal,"datastore") 
memoria.PutSimple("date",date) 
StartServiceAt(boot,date,False)

This module boot

Sub Process_Globals
 
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
     
dim memoria as Keyvaluestore
 
 
End Sub
Sub Service_Create
 
End Sub
 
Sub Service_Start (StartingIntent As Intent)
memoria.Initialize(File.DirDefaultExternal,"datastore") 
DateTime.date(memoria.GetSimple("date"))
StartServiceAt(starts,"date",False)
StopService("")

Starsts module is OK

 

[Erel]

Do you get any error message?

 

[Isac]

In compiling no errors but when I turn off and turn on the phone comes out a message saying that the application will be blocked.

 

[Erel]

Not sure what you mean with application will be blocked. If the process crashes then there should be an error message in the logs.