Android Question app crash after call start service

[ricardosanchez]

hi my name is ricardo im a new programer and i have this problem

in the moment that i start the service the app close i did read the service module tutorial and i dont know what to do.

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    btn.Initialize("btn")
    btn.Text="Show WebMapView"
    Activity.AddView(btn,0,0,100%x,10%y)
   
    'mapv.Initialize(Activity,Me,"OK","Cancel","48.8567","2.3508","mapview","Drag the marker to set your location")
    mapv.Initialize(Activity,Me,"OK","Cancel","48.8567","2.3508","mapview","Drag the marker to set your location","15","google.maps.MapTypeId.ROADMAP")

    StartService(trabajo11)

End Sub

and this is my service

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

    Dim notifi As Notification
    Dim URL As String
    URL = "http://richsappforpymes.one/pageq.php"
    Dim job1 As HttpJob
    Dim query1 As String =  "SELECT `mastercode` FROM `mastercode` WHERE 1"
    Dim mastercode As Int

End Sub
Sub Service_Create
    notifi.Initialize
    notifi.Icon="icon"
    job1.Initialize("job1",Me)
   
'notifi.SetInfo("hola como estas","aprendiendo",Main)
'notifi.Notify(2)

End Sub

Sub Service_Start (StartingIntent As Intent)
    job1.PostString(URL,query1)
End Sub

Sub Service_Destroy

End Sub

Sub JobDone (Job As HttpJob)
   Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
   If Job.Success = True Then
      Select Job.JobName
         Case "job1"
            'print the result to the logs
             Dim parser As JSONParser
             parser.Initialize(Job.GetString)
             Dim datos As List
             datos.Initialize
             datos = parser.NextArray
             Dim m As Map
             m = datos.Get(0)
            'idposible = m.Get("ID")
             mastercode = m.Get("mastercode")
            ' CallSubDelayed(Main,"verifica_imei")
             notifi.SetInfo("hola",mastercode,Main)
             notifi.Notify(1)
      End Select
   Else
      Log("Error: " & Job.ErrorMessage)
      'ToastMessageShow("Error: " & Job.ErrorMessage, True)
   End If
   Job.Release
End Sub

Thanking you in advance for the consideration you will give to my problem

 

[Roycefer]

Are any error messages displayed? Any stack trace? Have you tried inserting some Log() statements to try to pinpoint which line is causing the Service to crash?

 

[ricardosanchez]

hi thanks for reading me

startservice is the exact line causing the problem , then i check the in configurations-app and i the service "trabajo11" is still runing so i dont know what to do and this is the log

 

[Erel]

When is the call to StopService (I see from the logs that the service is destroyed)?

If you are using B4A v5.20 then you should probably move the code to the starter service.

Can you upload the project (File - Export as zip)?

 

[DonManfred]

The first error you did is to place httpjob in process_global!
Dim the job where you want to send them . Every time dim a new job for a request. Dont reuse an old object!

 

[ricardosanchez]

thank you i realize that i have an old version i just update and i will dim the job every time