Android Question Music-Player NB6

[kisoft]

Hi
I'm using this example.

Background task

I'm struggling to create a background task using Tracker as a guide. I have a simple music player that we like but of course it stops when the screen goes off. Where should my Process Globals/Globals and all subs go? Particularly what happens to what was Activity_Create ?

www.b4x.com

he service code looks like this:

Sub Process_Globals
    Private nid As Int = 1
    Private lock As PhoneWakeState
    Private pl As SimpleExoPlayer
End Sub

Sub Service_Create
    lock.PartialLock
    pl.Initialize("pl")
End Sub


Sub Service_Start (StartingIntent As Intent)
    Service.StopAutomaticForeground
End Sub

Public Sub Play
    Service.StartForeground(nid, CreateNotification("Playing music - Radio Paradise"))
    pl.Prepare(pl.CreateUriSource("http://stream.radioparadise.com/aac-128"))
    pl.Play
End Sub

Sub pl_Error (Message As String)
    Log(Message)
End Sub

Sub pl_Complete
    Log("complete")
End Sub

Public Sub Stop
    Service.StopForeground(nid)
    pl.Pause
End Sub


Sub CreateNotification (Body As String) As Notification
    Dim notification As Notification
    notification.Initialize2(notification.IMPORTANCE_LOW)
    notification.Icon = "icon"
    notification.SetInfo("Tracking location", Body, Main)
    Return notification
End Sub

Sub Service_Destroy
    pl.Pause
    lock.ReleasePartialLock
End Sub

How can I add action buttons (pause, play) to this notification? Or how to replace this notification with NB6 class? Or how to integrate NB6 class with this service?

 

[DonManfred]

Notification - audio play / pause button

Is there a way to have a play/pause button like Audible has in the notification? In the screenshot below, I show the closest thing I could find with the nb6 class. But it requires you to pull down the notification to show the actions. Contrast with the Audible notification above that.

www.b4x.com

 

[kisoft]

@DonManfred, thank you for the answer, I saw this example. Only how to apply it in this service ...

 

[DonManfred]

Only how to apply it in this service ...

implementing it in a service has nothing to do with the questions asked.

You want to add buttons in the Notification. I posted a link to a solution.

Maybe i do not understand the question.

 

[pazzokli]

Simply replace your notification with NB6 class and use that SUB:

Sub Notification_WithActions
    Dim n As NB6
    n.Initialize("default", Application.LabelName, "DEFAULT").SmallIcon(smiley)
    n.AddButtonAction(smiley, "Action 1", MyService, "action 1")
    Dim cs As CSBuilder
    n.AddButtonAction(Null, cs.Initialize.Color(Colors.Red).Bold.Append("Action 2").PopAll, MyService, "action 2")
    n.DeleteAction(MyService, "delete action")
    n.Build("Actions", "Actions", "tag", Me).Notify(1)
    
End Sub

Remember to import "MyService" also

 

[kisoft]

And what about starting the service ( Service.StartForeground)

 

[Erel]

NB6.Build returns a regular notification. You should pass it to Service.StartForeground.

 

[kisoft]

NB6.Build returns a regular notification. You should pass it to Service.StartForeground.

Yes ... but I don't know how to do it correctly. I do it's just wrong ...

Sub Service_Start (StartingIntent As Intent)
    If StartingIntent.IsInitialized Then
        Dim cs As CSBuilder
        cs.Initialize.Bold.Size(20).Append($"Action: ${StartingIntent.Action}"$).PopAll
        Log(cs)
    If StartingIntent.Action="Pause" Then  Stop
    If StartingIntent.Action="Play" Then   Play
    If StartingIntent.Action="finish" Then
        Stop
        CallSub(Main,"subfinish")
        End If
    End If
    Service.StopAutomaticForeground
End Sub

Public Sub Play
    Service.StartForeground(nid, CreateNotification("Playing music - Radio Paradise"))
    pl.Prepare(pl.CreateUriSource("http://stream.radioparadise.com/aac-128"))
    pl.Play
    MediaStyle_Notification
End Sub

Sub MediaStyle_Notification
    Dim n As NB6
    n.Initialize("default", Application.LabelName, "LOW").SmallIcon(smiley)
    n.AddButtonAction(smiley, "Action 1", Me, "Play") 'use different bitmaps...
    n.AddButtonAction(smiley, "Action 2",Me, "Pause")
    n.AddButtonAction(smiley, "Action 3", Me, "Finish")
    n.MediaStyle
    n.Build("", "", "tag", Me).Notify(1)
end sub
   
Sub CreateNotification (Body As String) As Notification
    Dim notification As Notification
    notification.Initialize2(notification.IMPORTANCE_LOW)
    notification.Icon = "icon"
    notification.SetInfo("Radio Paradise", Body, Main)
    Return notification
End Sub

 

[Erel]

Public Sub Play
    Service.StartForeground(nid, MediaStyle_Notification )
    pl.Prepare(pl.CreateUriSource("http://stream.radioparadise.com/aac-128"))
    pl.Play
    MediaStyle_Notification
End Sub

Sub MediaStyle_Notification As Notification
    Dim n As NB6
    n.Initialize("default", Application.LabelName, "LOW").SmallIcon(smiley)
    n.AddButtonAction(smiley, "Action 1", Me, "Play") 'use different bitmaps...
    n.AddButtonAction(smiley, "Action 2",Me, "Pause")
    n.AddButtonAction(smiley, "Action 3", Me, "Finish")
    n.MediaStyle
    Return n.Build("", "", "tag", Me)
end sub

 

[kisoft]

I am getting this error

B4A Wersja: 9.50
Java Wersja: 11
Parsowanie kodu.    (0.16s)
Building folders structure.    (0.07s)
Kompilowanie kodu.    (0.15s)
Kompilowanie kodu układu.    (0.03s)
Organizowanie bibliotek.    (0.00s)
    (AndroidX SDK)
Generowanie pliku R.    (0.72s)
Kompilowanie wygenerowanego kodu Java.    Error
B4A line: 64
Service.StartForeground(nid, MediaStyle_Notificat
src\radio\panel\player.java:258: error: incompatible types: String cannot be converted to Notification
mostCurrent._service.StartForeground(_nid,(android.app.Notification)(_mediastyle_notification()));

 

[Erel]

Have you added the "As Notification" to the sub signature?

 

[kisoft]

Have you added the "As Notification" to the sub signature?

Sorry... I did not add, my mistake. Thank you all for your help.