German Wie bekomme ich einen automatischen Neustart des Streams hin

Discussion in 'German Forum' started by fabs222, Feb 21, 2012.

  1. fabs222

    fabs222 Member Licensed User

    Hallo,

    wie kann ich es machen, dass der Stream sollte er einmal abbrechen (weil z. Bsp. Wlan kurz aus war) alleine wieder startet??

    Folgenden Code hae ich im Einsatz:

    Sub Process_Globals
    Dim MPS As MediaPlayerStream
    End SubSub

    Activity_Create(FirstTime As Boolean)
    MPS.Initialize("MPS")
    MPS.SetVolume(1,1)
    MPS.Load("http://relay.181.fm:8004/")
    End Sub

    Sub MPS_StreamReady
    MPS.Play
    End Sub
     
  2. fabs222

    fabs222 Member Licensed User

    Keiner eine IDEE???
     
  3. Kiffi

    Kiffi Active Member Licensed User

    ja, Mensch. Da hast Du Dich ja schon richtig dolle mit dem Code beschäftigt! :D

    Meine MPS_StreamError() - Sub hättest Du aber auch noch posten können. Und
    das ganze in Code-Tags einpacken, damit es hier im Forum auch schön aussieht.

    Oder hast Du MPS_StreamError() gar nicht mehr? Könnte ja sein, dass -- wenn der
    Stream mal abbrechen sollte -- in diese Sub gesprungen wird. Das wäre doch
    schon mal ein Anhaltspunkt.

    Grüße ... Kiffi
     
  4. fabs222

    fabs222 Member Licensed User

    Hallo,

    das mit deinem Code war nur ein Beispiel, Ich habe ihn schon leicht verändert und es läuft so weit auch gut.

    Den StreamError hatte ich schon garnicht mehr, bringt mich glaube ich jetzt in die richtige Richtung.

    Ich versuche es jetzt so mal


    Code:
    Sub MPS_StreamError
       MPS.Load(
    "http://sc16.frf.llnw.net:80/stream/ndrstream_n-joy_hi_mp3")
       MPS_StreamReady
       MPS.Play
    End Sub
    oder gibt es einen Goto Befehl?
     
  5. fabs222

    fabs222 Member Licensed User

    geht mit dem Code leider nicht:signOops:
     
  6. fabs222

    fabs222 Member Licensed User

    Hier mal mein ganze "Werk"

    Code:
    Sub Process_Globals
       
    Dim MPS As MediaPlayerStream
       
    Dim MPS1 As MediaPlayerStream
       
    Dim MPS2 As MediaPlayerStream
       
    Dim MPS3 As MediaPlayerStream
       
    Dim MPS4 As MediaPlayerStream
    End Sub
    Sub Globals
       
    Dim Button1 As Button
       
    Dim Button2 As Button
       
    Dim Button3 As Button
       
    Dim Button4 As Button
       
    Dim Button5 As Button
       
    Dim Button6 As Button
    End Sub
    Sub Activity_Create(FirstTime As Boolean)
       MPS.Initialize(
    "MPS")
       MPS.SetVolume(
    0,0)
       MPS.Load(
    "http://sc16.frf.llnw.net:80/stream/ndrstream_n-joy_hi_mp3")
       MPS1.Initialize(
    "MPS1")
       MPS1.SetVolume(
    0,0)
       MPS1.Load(
    "http://62.27.44.59:8000/ostseewellelive/livestream.mp3")
       MPS2.Initialize(
    "MPS2")
       MPS2.SetVolume(
    0,0)
       MPS2.Load(
    "http://85.239.108.31:80/antennemv-mp3")
       MPS3.Initialize(
    "MPS3")
       MPS3.Load(
    "http://edge.live.mp3.mdn.newmedia.nacamar.net/harmonyfm/hqschlager.mp3")
       MPS3.SetVolume(
    0,0)
       MPS4.Initialize(
    "MPS4")
       MPS4.Load(
    "http://onair.krone.at:80/kronehit-charts.mp3")
       MPS4.SetVolume(
    0,0)
       
    Activity.LoadLayout("1")
    End Sub 
    Sub MPS_StreamReady
       MPS.Play
       
    End Sub
    Sub MPS1_StreamReady
       MPS1.Play
    End Sub
    Sub   MPS2_StreamReady
       MPS2.Play
    End Sub
    Sub MPS3_StreamReady
       MPS3.Play
    End Sub
    Sub MPS4_StreamReady
       MPS4.Play
    End Sub
    Sub MPS_StreamError (ErrorCode As String, ExtraData As Int)
       MPS.Load(
    "http://sc16.frf.llnw.net:80/stream/ndrstream_n-joy_hi_mp3")
       MPS_StreamReady
       MPS.Play
    End Sub

    Sub Button1_Click
       MPS.SetVolume(
    1,1)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    0,0)
    End Sub
    Sub Button2_Click
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    0,0)
    End Sub
    Sub Button4_Click
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    1,1)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    0,0)
    End Sub
    Sub Button3_Click
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    1,1)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    0,0)
    End Sub
    Sub Button5_Click
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    1,1)
       MPS4.SetVolume(
    0,0)
    End Sub
    Sub Button6_Click
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    1,1)
    End Sub
    Nur leider geht nicht der automatische Reconect wenn das Netzwerk mal abbricht.
    Ich hab es bis jetzt nur für MPS probiert.
    Bitte Bitte gib mir jemand einen Tip
     
  7. fabs222

    fabs222 Member Licensed User

    Erledigt, habe es alleine hin bekommen, nach Kiffi´s Hinweis. :icon_clap:
     
  8. Kiffi

    Kiffi Active Member Licensed User

    Du spielst 5 Streams parallel ab? Mein lieber Scholli! Dann würde ich als
    Netz auch mal ab und zu nen Kollaps bekommen. ;)

    Versuch es erst einmal, den Code so umzuschreiben, dass Du nur ein
    MPS-Objekt hat und bei Knopfdruck nur die Stream-Adresse austauschst.

    Damit sollten sich die Verbindungsabrüche ein wenig reduzieren.
    Dann sehen wir weiter.

    Grüße ... Kiffi
     
  9. fabs222

    fabs222 Member Licensed User

    Das mit den 5 Streams geht eigendlich ohne Verbindungsabbrüche und das mit 4 Tablets gleichzeitig. Ich wollte das mit dem StreamError nur für alle Fälle.
    Das mit den einzelnen Streams habe ich vorher gemacht, funktionierte auch aber die Ladezeiten von1-2 Minuten waren mir einfach zu lange, deshalb jetzt alle Streams gelichzeitig.

    Was mir jetzt aufgefallen ist ist das mein StreamError am Emulator geht aber auf dem Tablet nicht :BangHead:

    Benutzen tue ich

    Code:
    Sub MPS_StreamError (ErrorCode As String, ExtraData As Int)
       MPS.Stop
       MPS.Load(
    "http://sc16.frf.llnw.net:80/stream/ndrstream_n-joy_hi_mp3")
    End Sub
     
  10. Kiffi

    Kiffi Active Member Licensed User

    1-2 Minuten? Habe hier bis max. 5 Sekunden, bis die Streams spielen.

    Habe Dir noch mal Dein Projekt ein wenig umgeschrieben und als Anhang
    diesem Post hinzugefügt. Die Streams werden nur dann gespielt, wenn die
    entsprechenden Buttons gedrückt werden.

    Grüße ... Kiffi
     

    Attached Files:

  11. fabs222

    fabs222 Member Licensed User

    Hallo und vielen Dank,

    so in der Art hatte ich das auch schon, aber die Ladezeiten auf dem Tablet sind total Lange 40 Sek. und aufwärts. Im Emulator sind die Ladezeiten bei mir auch nur 2 Sek. Liegt wohl an den "großen" MP3 Streams. AAC Streams wären mir auch lieber, aber die laufen garnicht.
     
  12. fabs222

    fabs222 Member Licensed User

    So nun der ganze Code mit 5 Streams, Läuft auf Android 2.1 Emulator mit automatischem Neuaufbau der Streams bei Verbindungsabbrüchen und läuft auf Android 2.2 aber da leider ohne automatischen Neuaufbau der Streams Das verstehe ich nicht. Was muss ich bei 2.2 denn anders machen???? Leider haben die Tablets 2.2. Bin langsam am verzweifeln.
    :BangHead::BangHead::BangHead::BangHead::BangHead::BangHead::BangHead:


    Code:
    Sub Process_Globals
       
    Dim MPS As MediaPlayerStream
       
    Dim MPS1 As MediaPlayerStream
       
    Dim MPS2 As MediaPlayerStream
       
    Dim MPS3 As MediaPlayerStream
       
    Dim MPS4 As MediaPlayerStream
    End Sub
    Sub Globals
       
    Dim Button1 As Button
       
    Dim Button2 As Button
       
    Dim Button3 As Button
       
    Dim Button4 As Button
       
    Dim Button5 As Button
       
    Dim Button6 As Button
    End Sub
    Sub Activity_Create(FirstTime As Boolean)
       
    If FirstTime Then
       MPS.Initialize(
    "MPS")
       MPS1.Initialize(
    "MPS1")
       MPS2.Initialize(
    "MPS2")
       MPS3.Initialize(
    "MPS3")
       MPS4.Initialize(
    "MPS4")
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    0,0)
       MPS.Load(
    "http://sc16.frf.llnw.net:80/stream/ndrstream_n-joy_hi_mp3")
       MPS1.Load(
    "http://62.27.44.59:8000/ostseewellelive/livestream.mp3")
       MPS2.Load(
    "http://85.239.108.31:80/antennemv-mp3")
       MPS3.Load(
    "http://edge.live.mp3.mdn.newmedia.nacamar.net/harmonyfm/hqschlager.mp3")
       MPS4.Load(
    "http://onair.krone.at:80/kronehit-charts.mp3")
       
    End If
       
    Activity.LoadLayout("1")
    End Sub 
    Sub MPS_StreamReady
       MPS.Play
       
    End Sub
    Sub MPS1_StreamReady
       MPS1.Play
    End Sub
    Sub   MPS2_StreamReady
       MPS2.Play
    End Sub
    Sub MPS3_StreamReady
       MPS3.Play
    End Sub
    Sub MPS4_StreamReady
       MPS4.Play
    End Sub
    Sub MPS_StreamError(ErrorCode As String, ExtraData As Int)
          MPS.Load(
    "http://sc16.frf.llnw.net:80/stream/ndrstream_n-joy_hi_mp3")
    End Sub
    Sub MPS1_StreamError(ErrorCode As String, ExtraData As Int)
          MPS1.Load(
    "http://62.27.44.59:8000/ostseewellelive/livestream.mp3")
    End Sub
    Sub MPS2_StreamError(ErrorCode As String, ExtraData As Int)
          MPS2.Load(
    "http://85.239.108.31:80/antennemv-mp3")
    End Sub
    Sub MPS3_StreamError(ErrorCode As String, ExtraData As Int)
          MPS3.Load(
    "http://edge.live.mp3.mdn.newmedia.nacamar.net/harmonyfm/hqschlager.mp3")
    End Sub
    Sub MPS4_StreamError(ErrorCode As String, ExtraData As Int)
          MPS4.Load(
    "http://onair.krone.at:80/kronehit-charts.mp3")
    End Sub
    Sub Button1_Click
       MPS.SetVolume(
    1,1)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    0,0)
    End Sub
    Sub Button2_Click
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    0,0)
    End Sub
    Sub Button4_Click
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    1,1)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    0,0)
    End Sub
    Sub Button3_Click
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    1,1)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    0,0)
    End Sub
    Sub Button5_Click
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    1,1)
       MPS4.SetVolume(
    0,0)
    End Sub
    Sub Button6_Click
       MPS.SetVolume(
    0,0)
       MPS1.SetVolume(
    0,0)
       MPS2.SetVolume(
    0,0)
       MPS3.SetVolume(
    0,0)
       MPS4.SetVolume(
    1,1)
    End Sub
     
    Last edited: Feb 24, 2012
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