Audio wiedergabe auf masterpage

  • VB.NET (ASP)

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von markusbreitenstein.

    Audio wiedergabe auf masterpage

    Hallo Forum

    Ich habe folgendes Problem:

    Auf meiner Website habe ich auf der MasterPage eine Audio-Wiedergabe, welche funktioniert. das Problem ist nun, das bei jedem Wechsel der Seite das Audio-File neu gestartet wird. Wie kann ich das beheben ?

    unten der Code zum Audio Control

    HTML-Quellcode

    1. <audio id="audioPlayer" style="height:20px; width:450px;" autoplay src="<%=SongToPlay %>" controls onended="audioPlayerOnEnded()">Your browser does not support the Audio element.</audio>
    2. <asp:Label ID="Label1" runat="server" Text=" You listen to " Style="font-size:20px;border:none;font-family :Lucida Sans Unicode;"></asp:Label>
    3. <asp:DropDownList ID="lbAllSongs" runat="server" AutoPostBack="true" Style="font-size:20px;border:none;font-family :Lucida Sans Unicode; background-color:transparent;"></asp:DropDownList> <asp:Label ID="lblSelectedSong" runat="server" Visible="false"></asp:Label>


    und der Code behind

    VB.NET-Quellcode

    1. Public SongToPlay As String
    3. Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
    4. Select Case Page.Title
    5. Case "Home"
    6. Menu1.Visible = True
    7. Menu1.Items(0).Selected = True
    8. Case "Tickets"
    9. Menu1.Visible = True
    10. Menu1.Items(1).Selected = True
    11. Case "Fotogalerie"
    12. Menu1.Visible = True
    13. Menu1.Items(2).Selected = True
    14. Case "Video"
    15. Menu1.Visible = True
    16. Menu1.Items(3).Selected = True
    17. Case "Admin"
    18. Menu1.Visible = False
    19. End Select
    21. If Not IsPostBack Then
    23. Dim pathLocal As String
    24. Dim pathSongs As String
    26. pathLocal = Server.MapPath("~/Video")
    27. pathSongs = pathLocal & "/Audio/"
    29. Dim MyFile, MyPath As String
    30. MyPath = pathSongs
    31. MyFile = FileSystem.Dir(pathSongs & "\*.mp3")
    33. While MyFile <> ""
    35. lbAllSongs.Items.Add(MyFile)
    36. MyFile = FileSystem.Dir()
    38. End While
    40. lbAllSongs.SelectedIndex = 0
    41. SongToPlay = "../Video/Audio/" & lbAllSongs.SelectedItem.Text
    43. Else
    45. If Request.Form("__EVENTTARGET") = "audioPlayer" Then
    46. audioPlayerOnEnded()
    48. Else
    49. lblSelectedSong.Text = lbAllSongs.SelectedItem.Text
    50. SongToPlay = "../Video/Audio/" & lbAllSongs.SelectedItem.Text
    52. End If
    54. End If
    56. End Sub
    57. Protected Sub audioPlayerOnEnded()
    59. Dim nextIndex As Integer = findNextIndex()
    61. lbAllSongs.SelectedIndex = nextIndex
    63. lblSelectedSong.Text = lbAllSongs.SelectedItem.Text
    65. SongToPlay = "../Video/Audio/" & lbAllSongs.SelectedItem.Text
    67. End Sub
    68. Private Function findNextIndex() As Integer
    70. Dim current As Integer = lbAllSongs.SelectedIndex
    72. Dim nextIndex As Integer
    74. If current + 1 > lbAllSongs.Items.Count - 1 Then
    76. nextIndex = 0
    78. Else
    80. nextIndex = current + 1
    82. End If
    84. Return nextIndex
    86. End Function
    Am lernen...

    Hi

    Ich habe von soetwas keinen blassen Schimmer, aber Du könntest Dir irgendwo die bisher abgespielte Zeit merken (Cookie) und entsprechend wieder vor dem erneuten Abspielen den Cookie auslesen und die Zeit wieder setzen. So ähnlich wie das hier gemacht wird: stackoverflow.com/questions/15…l-pages/15613752#15613752 Evtl hilt Dir das ein Stück weiter.
    Mfg -Franky-