Android Question Background Service - Vitamio

Discussion in 'Android Questions' started by supriono, Feb 26, 2015.

  1. supriono

    supriono Member Licensed User

    Hei guys,
    I made program to listen music from internet radio.
    My problem is when activity pause, service didn't play music because vitamio videoview pause

    Here my main Code
    Code:
    #Region  Activity Attributes
        
    #FullScreen: False
        
    #IncludeTitle: False
    #End Region

    Sub Process_Globals
        
    Public play As Boolean
        
    Public ph As Phone
    End Sub

    Sub Globals
        
    Private pnlUtama As Panel
        
    Private btnPlay As Button
        
    Private btnFB As Button
        
    Private btnTwitter As Button
        
    Private btnWG As Button
        
    Private pnlNav As Panel
     
        
    Dim VitamioMediaController1 As Vitamio_MediaController
        
    Dim VitamioVideoView1 As Vitamio_VideoView
     
        
    Dim sm As SlideMenu
        
    Private btnMenu As Button
     
        
    Private mAlphaAnimation As Animation
        
    Private mRotateAnimation As Animation
        
    Private ivLogo As ImageView
    End Sub

    Sub Activity_Create(FirstTime As Boolean)
        
    Activity.LoadLayout ("radio")
     
        sm.Initialize(
    Activity, Me, "SlideMenu"0222dip)
        sm.AddItem(
    "Wiki Gunungkidul""Informasi"LoadBitmap(File.DirAssets, "icon.png"), 1)
        sm.AddItem(
    "Hubungi Kami""Hubungi Manajemen"LoadBitmap(File.DirAssets, "icon.png"), 2)
        sm.AddItem(
    "Investasi""Mari Berbisnis"LoadBitmap(File.DirAssets, "icon.png"), 3)
        sm.AddItem(
    "SmileCodes""Programmer"LoadBitmap(File.DirAssets, "logo.png"), 4)

        mAlphaAnimation.InitializeAlpha(
    ""0.11)
        mAlphaAnimation.Duration = 
    5000
        mAlphaAnimation.Start(ivLogo)
        mAlphaAnimation.RepeatCount = -
    1
        mAlphaAnimation.RepeatMode = mAlphaAnimation.REPEAT_REVERSE
     
        mRotateAnimation.InitializeRotateCenter(
    ""090, btnMenu)
        mRotateAnimation.Duration = 
    200
     
        
    StartService (WikiRadio)
    End Sub

    Sub playRadio 
        
    If VitamioVideoView1.CheckVitamioLibs Then 
            VitamioVideoView1.Initialize(
    "VitamioVideoView1")
            
    Activity.AddView(VitamioVideoView1, 100%x100%y100%x100%y)
         
            VitamioMediaController1.Initialize(
    "VitamioMediaController1")
            VitamioMediaController1.Hide
         
            VitamioVideoView1.SetMediaController(VitamioMediaController1)
            VitamioVideoView1.SetVideoQuality(VitamioVideoView1.VIDEO_QUALITY_HIGH)
         
            VitamioVideoView1.SetVideoPath(
    "http://103.16.199.126:6767/wiki")
        
    End If
    End Sub

    Sub Activity_Resume

    End Sub

    Sub Activity_Pause (UserClosed As Boolean)
     
    End Sub

    Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
        If KeyCode = KeyCodes.KEYCODE_BACK Then
            
    StopService(WikiRadio)
            
    Activity.Finish
            
    ExitApplication
            
    Return True
        
    Else If KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then
            
    Dim currVol As Int = ph.GetVolume(ph.VOLUME_MUSIC)
            ph.SetVolume(ph.VOLUME_MUSIC, currVol + 
    1True)
            
    Return True
        
    Else If KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then
            
    Dim currVol As Int = ph.GetVolume(ph.VOLUME_MUSIC)
            ph.SetVolume(ph.VOLUME_MUSIC, currVol - 
    1True)
            
    Return True
        
    End If
    End Sub
    Sub btnPlay_Click
        
    If play = True Then
            VitamioVideoView1.StopPlayback
            VitamioVideoView1.Invalidate
            VitamioVideoView1.RemoveView
            play = 
    False
            btnPlay.SetBackgroundImage(
    LoadBitmap(File.DirAssets, "play.png"))
        
    Else If play = False Then
            playRadio
            play = 
    True
            btnPlay.SetBackgroundImage(
    LoadBitmap(File.DirAssets, "stop.png"))
        
    End If
    End Sub
    Sub btnWG_Click
        wikigkweb.url = 
    "http://wikigunungkidul.com"
        wikigkweb.title = 
    "Wiki Gunung Kidul"
        
    StartActivity(wikigkweb)
        
    Activity.Finish
    End Sub
    Sub btnTwitter_Click
        wikigkweb.url = 
    "https://mobile.twitter.com/wikigunungkidul"
        wikigkweb.title = 
    "Twitter Wiki Gunungkidul"
        
    StartActivity(wikigkweb)
        
    Activity.Finish
    End Sub
    Sub btnFB_Click
        wikigkweb.url = 
    "https://www.facebook.com/pages/WikiGunungkidul/317163711785052"
        wikigkweb.title = 
    "FB Wiki Gunungkidul"
        
    StartActivity(wikigkweb)
        
    Activity.Finish
    End Sub

    '    events raised by Vitamio_MediaController
    Sub VitamioMediaController1_Hidden
        
    Log("VitamioMediaController1_Hidden")
    End Sub

    Sub VitamioMediaController1_Shown
        
    Log("VitamioMediaController1_Shown")
    End Sub

    '    events raised by Vitamio_VideoView
    Sub VitamioVideoView1_BitmapSubtitleUpdated(Bitmap1() As Byte, Width As Int, Height As Int)
     
    End Sub

    Sub VitamioVideoView1_Buffering(Percent As Int)
        
    '    Log("VitamioVideoView1_Buffering: "&Percent)    '    commented out to avoid excess logging
    End Sub

    Sub VitamioVideoView1_Complete
        
    Log("VitamioVideoView1_Complete")
    End Sub

    Sub VitamioVideoView1_Error(MEDIA_ERROR As Int) As Boolean
        
    '    this event Sub must return a Boolean value to indicate whether it has handled the error or not
        '    returning True will prevent the library from taking any action such as displaying an error message
        Log("VitamioVideoView1_Error")
     
        
    Return True
    End Sub

    Sub VitamioVideoView1_Info(What As Int, Extra As Int) As Boolean
        
    '    what does this event mean?
        '    what do the Int parameters represent?
     
        
    '    Log("VitamioVideoView1_Info")    '    commented out to avoid excess logging
        Return False     '    indicates that this Sub has NOT handled the event and that the library should handle it
    End Sub

    Sub VitamioVideoView1_Prepared
        
    Log("VitamioVideoView1_Prepared")
    End Sub

    Sub VitamioVideoView1_SeekComplete
     
    End Sub

    Sub VitamioVideoView1_TextSubtitleUpdated(SubText As String)
     
    End Sub

    'Event sub which is called when an item in the slidemenu is clicked
    Sub SlideMenu_Click(Item As Object) 
        
    Select Case Item
            
    Case 1    'Wiki Gunungkidul
                Msgbox("Wiki Gunungkidul, Seperti Radio - Mirip Majalah" & CRLF & _
                    
    "Radio streaming yang didirikan sebagai hobi dan kebanggaan warga Gunungkidul""Informasi")
            
    Case 2    'Hubungi Kami
                Msgbox("Anda dapat menghubungi kami di : " & CRLF & _
                    
    "Web : http://wikigunungkidul.com" & CRLF & _
                    
    "Twitter : @wikigunungkidul" & CRLF & _
                    
    "Facebook: WikiGunungkidul""Hubungi Wiki Gunungkidul")
            
    Case 3    'Investasi
                Msgbox("Anda ingin menanamkan modal atau berbisnis dengan kami?" & CRLF & _
                    
    "Silakan datang langsung ke xxxxx" & CRLF & _
                    
    "No. Telp    : +6281234567890""Mari Berbisnis")
            
    Case 4    'SmileCodes
                Msgbox("Software House" & CRLF & _
                    
    "WhatsApp : +6283835701554" & CRLF & _
                    
    "Pin BBM : 7AEA4420""SmileCodes")
        
    End Select
    End Sub
    Sub btnMenu_Click
        sm.Show
        mRotateAnimation.Start(btnMenu)
    End Sub
    And here my service code
    Code:
    #Region  Service Attributes
        
    #StartAtBoot: True
        
    #StartCommandReturnValue: android.app.Service.START_STICKY
    #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
        Utama.play = 
    False
        
    CallSub(Utama, "btnPlay_Click"
     
        
    Dim n As Notification
        n.Initialize
        n.Icon = 
    "icon"
        n.Insistent = 
    False
        n.Sound = 
    False
        n.Light = 
    False
        n.OnGoingEvent = 
    True
        n.SetInfo2(
    "WikiRadio""Seperti Radio - Mirip Majalah""wg", Utama)
     
        
    Service.StartForeground(1, n)
    End Sub

    Sub Service_Start (StartingIntent As Intent)

    End Sub

    Sub Service_Destroy

    End Sub
    Many thank to your answer
     
    Last edited: Feb 26, 2015
    Bobi likes this.
  2. Erel

    Erel Administrator Staff Member Licensed User

    Please do not limit your questions to a single member. Sorry but I never worked with vitamiao.
     
  3. Bobi

    Bobi Member Licensed User

  4. scsjc

    scsjc Well-Known Member Licensed User

    Hello,
    i have a same problem. i test anothers solutions for play URL MUSIC, and vitamino its very compatible with codecs.
    some one solution this problems? or have anoter solution?

    thanks...
     
  5. Bobi

    Bobi Member Licensed User

    try search "codecs" instead "vitamio" (which looks like a road to nowhere).
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice