German Wie bekomme ich einen automatischen Neustart des Streams hin

fabs222

Member
Licensed User
Longtime 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
 

Kiffi

Well-Known Member
Licensed User
Longtime User
Folgenden Code hae ich im Einsatz:
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
 

fabs222

Member
Licensed User
Longtime 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


B4X:
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?
 

fabs222

Member
Licensed User
Longtime User
Hier mal mein ganze "Werk"

B4X:
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
 

Kiffi

Well-Known Member
Licensed User
Longtime 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
 

fabs222

Member
Licensed User
Longtime 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

B4X:
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
 

Kiffi

Well-Known Member
Licensed User
Longtime User
aber die Ladezeiten von1-2 Minuten waren mir einfach zu lange
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
 

Attachments

  • Mp3StreamingTest.zip
    6.6 KB · Views: 184

fabs222

Member
Licensed User
Longtime 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.
 

fabs222

Member
Licensed User
Longtime 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:


B4X:
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:
Top