Einfacher Audio-Player

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von rotherford.

    Einfacher Audio-Player

    Hallo zusammen!

    Ich habe einen einfachen Player programmiert:

    VB.NET-Quellcode

    1. Public Class Player
    2. Private playlist As New List(Of String)
    3. Private songIndex As Byte
    5. Private Sub play(ByVal songPath As String)
    6. My.Computer.Audio.Play(songPath)
    7. End Sub
    9. Sub New(ByVal path As String)
    10. For Each foundFile As String In My.Computer.FileSystem.GetFiles(path)
    11. If System.IO.Path.GetExtension(foundFile) = ".wav" Then
    12. playlist.Add(foundFile)
    13. End If
    14. Next
    15. End Sub
    17. Sub startSong()
    18. play(playlist.Item(songIndex))
    19. End Sub
    21. Sub stopSong()
    22. My.Computer.Audio.Stop()
    23. End Sub
    25. Sub nextSong()
    26. songIndex = (songIndex + 1) Mod playlist.Count
    27. play(playlist.Item(songIndex))
    28. End Sub
    29. End Class


    Dabei möchte ich den Windows Media Player nicht verwenden, welchen ich auch nicht installiert habe.
    Nun habe ich folgende Schwierigkeiten:
    1) Die Wiedergabe endet nachdem die erste Audiodatei abgespielt ist. Ist es möglich die Wiedergabe automatisch mit der nächsten Datei fortzusetzten?
    Ich habe mir überlegt, dass ein Timer mit der Länge des Stückes gestartet werden könnte, welcher das nächste Stück aufruft. Allerdings ist die Länge des Stückes nicht bekannt und es ist auch nicht gerade eine schöne Lösung.
    2) Es sind nur wav-Dateien unterstützt.
    Via API wäre wohl auch das vorherige Problem lösbar, allerdings habe ich damit noch keine Erfahrung... Mit diesem Code lassen sich wohl nur wav-Dateien abspielen.

    Verschiedene Erweiterungen wie das Pausieren der Wiedergabe oder das auslesen von Informationen der Audiodatei wären toll aber nicht notwendig. Die Idee wäre ein möglichst schlanker Player, welcher im Hintergrund einer Applikation eine Playlist abspielen kann.

    lg marx

    Marx schrieb:

    Die Wiedergabe endet nachdem die erste Audiodatei abgespielt ist. Ist es möglich die Wiedergabe automatisch mit der nächsten Datei fortzusetzten?

    Für dein Vorhaben ist der My-Namespace unpassend. Wenn du etwas WMP-Unabhängiges willst, solltest du dich mit mci od. der Bass.dll beschäftigen.
    Wenn du Beispiel dazu suchst solltest du auf CodeProject gucken. (Stichwort : MciSendString)

    Es werden auf deine Weise halt nur .wav Dateien unterstützt.
    Liebe Grüße
    /nicht getestet

    hey & danke für den Beitrag.
    ich habe nun mit der BasicAudio.dll folgende Klasse Programmiert:

    VB.NET-Quellcode

    1. Public Class Player
    2. Private argusPlayer As Argus.Audio.AudioFile
    3. Private playlist As New List(Of String)
    4. Private songIndex As Byte
    5. Private songHasFinished As Boolean
    7. Sub New(ByVal path As String)
    8. For Each foundFile As String In My.Computer.FileSystem.GetFiles(path)
    9. If System.IO.Path.GetExtension(foundFile) = ".mp3" Then
    10. playlist.Add(foundFile)
    11. End If
    12. Next
    14. argusPlayer = New Argus.Audio.AudioFile(playlist.Item(0))
    15. End Sub
    17. Sub playSong()
    18. argusPlayer.Play()
    19. songHasFinished = True
    20. End Sub
    22. Sub stopSong()
    23. argusPlayer.Stop()
    24. songHasFinished = False
    25. End Sub
    27. Private Sub pauseSong()
    28. argusPlayer.Pause()
    29. End Sub
    31. Private Sub resumeSong()
    32. argusPlayer.Resume()
    33. End Sub
    35. Sub pauseResumeSong()
    36. If Not argusPlayer.IsPaused Then
    37. pauseSong()
    38. Else
    39. resumeSong()
    40. End If
    41. End Sub
    43. Private Sub changeSong()
    44. songHasFinished = False
    45. argusPlayer.Close()
    46. argusPlayer.Filename = playlist.Item(songIndex)
    47. playSong()
    48. End Sub
    50. Sub nextSong()
    51. songIndex = (songIndex + 1) Mod playlist.Count
    52. changeSong()
    53. End Sub
    55. Sub previousSong()
    56. songIndex = (songIndex + playlist.Count - 1) Mod playlist.Count
    57. changeSong()
    58. End Sub
    60. Private Sub autoProceed() 'argusPlayer.Status-Changed-Event
    61. If argusPlayer.Status.Remove(7) = "stopped" And songHasFinished Then
    62. nextSong()
    63. End If
    64. End Sub
    65. End Class


    Mit dem argusPlayer.Status-String wird auch die automatische Wiedergabe der Playlist realisierbar. Liesse sich da ein Event auslösen, wenn der Wert der Status-Variable geändert wird (Z 60)?

    lg Marx

    hmm ich habe einmal folgendes versucht:

    VB.NET-Quellcode

    1. Dim WithEvents argusPlayer As Argus.Audio.AudioFile
    3. Sub eventHandler Handles argusPlayer.
    4. End Sub


    Nach dem „Handles“ sollte doch eig. ein Event angegeben werden, doch da wird vom Editor keins vorgeschlagen… Es ist heute zum ersten Mal, dass ich mich mit Events auseinandersetzte, auch wenn ich diese schon häufiger verwendet habe.

    Die erweiterte Klasse:

    VB.NET-Quellcode

    1. Private Class ExtendedAudioFile
    2. Inherits Argus.Audio.AudioFile
    3. Implements System.ComponentModel.INotifyPropertyChanged
    4. Public Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
    5. End Class


    Und die Sub, welche den nächsten Song abspielt:

    VB.NET-Quellcode

    1. Private Sub autoProceed() Handles argusPlayer.PropertyChanged
    2. If argusPlayer.Status.Remove(7) = "stopped" And songHasFinished Then
    3. nextSong()
    4. End If
    5. End Sub


    Das Event PropertyChanged wird allerdings nicht aufgerufen,
    wenn eine Eigenschaft des Players geändert wird. Muss ich da noch ein RaiseEvent
    einbauen oder kann man AudioFile.Filename als Property deklarieren?

    Ja,

    VB.NET-Quellcode

    1. Private Class ExtendedAudioFile
    2. Inherits Argus.Audio.AudioFile
    3. Implements INotifyPropertyChanged
    5. Public Event PropertyChanged As PropertyChangedEventHandler _
    6. Implements INotifyPropertyChanged.PropertyChanged
    8. Private Sub NotifyPropertyChanged(ByVal info As String)
    9. RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
    10. End Sub
    12. Public Overloads Property PlayState As String
    13. Get
    14. Return MyBase.PlayState
    15. End Get
    16. Set(ByVal value As String)
    17. MyBase.PlayState = value
    18. NotifyPropertyChanged("PlayState")
    19. End Set
    20. End Property
    22. End Class
    /nicht getestet

Facebook
Telefonspende