Track mit NAudio in seperatem Thread abspielen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von thefiloe.

    Track mit NAudio in seperatem Thread abspielen

    Hallo,
    ich hab mal wieder ne Frage:
    Wenn ich eine Aktion ausführe und sich der GUI-Thread kurz aufhängt, bleibt ebenfalls der Track von NAudio stehen. Bei Bass.Net ist dies nicht so. Gibt es irgendeine Möglichkeit, das zu verhindern? Kann man den Track in einem extra Thread ausführen?

    Hier mein Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.ComponentModel
    3. Imports System.Windows.Threading
    4. Imports NAudio.Wave
    5. Imports WPFSoundVisualizationLib
    6. Imports System.Windows.Interop
    8. Public Class NAudioEngine
    9. Implements INotifyPropertyChanged
    10. Implements ISpectrumPlayer
    11. Implements IWaveformPlayer
    12. Implements IDisposable
    13. #Region "Fields"
    14. Private _NewTrackDelegate As NewTrackPlay
    15. Private Shared m_instance As NAudioEngine
    16. Private ReadOnly positionTimer As New DispatcherTimer(DispatcherPriority.ApplicationIdle)
    17. Private ReadOnly waveformGenerateWorker As New BackgroundWorker()
    18. Private ReadOnly wavefftDataSize As Integer = CInt(FFTDataSize.FFT2048)
    19. Private disposed As Boolean
    20. Private m_canPlay As Boolean
    21. Private m_canPause As Boolean
    22. Private m_canStop As Boolean
    23. Private m_isPlaying As Boolean
    24. Private inChannelTimerUpdate As Boolean
    25. Private m_channelLength As Double
    26. Private m_channelPosition As Double
    27. Private inChannelSet As Boolean
    28. Private waveOutDevice As WaveOut = New WaveOut()
    29. Private m_activeStream As WaveStream
    30. Private inputStream As WaveChannel32
    31. Private sampleAggregator As SampleAggregator
    32. Private waveformAggregator As SampleAggregator
    33. Private pendingWaveformPath As String
    34. Private fullLevelData As Single()
    35. Private m_waveformData As Single()
    36. Private repeatStart As TimeSpan
    37. Private repeatStop As TimeSpan
    38. Private inRepeatSet As Boolean
    39. Private _currentTrack As Track
    40. Private _volume As Single
    41. #End Region
    43. #Region "Events"
    44. Public Event ChannelPositionChanged(sender As Object, e As EventArgs)
    45. Public Event ChannelLengthChange(sender As Object, e As EventArgs)
    46. Public Event PlayStateChanged(sender As Object, e As EventArgs)
    47. Public Event TrackEnd(sender As Object, e As EventArgs)
    48. #End Region
    50. #Region "Constants"
    51. Private Const waveformCompressedPointCount As Integer = 2000
    52. Private Const repeatThreshold As Integer = 200
    53. #End Region
    55. #Region "Singleton Pattern"
    56. Public Shared ReadOnly Property Instance() As NAudioEngine
    57. Get
    58. If m_instance Is Nothing Then
    59. m_instance = New NAudioEngine()
    60. End If
    61. Return m_instance
    62. End Get
    63. End Property
    64. #End Region
    66. #Region "Constructor"
    67. Private Sub New()
    68. positionTimer.Interval = TimeSpan.FromMilliseconds(50)
    69. AddHandler positionTimer.Tick, AddressOf positionTimer_Tick
    70. AddHandler waveformGenerateWorker.DoWork, AddressOf waveformGenerateWorker_DoWork
    71. AddHandler waveformGenerateWorker.RunWorkerCompleted, AddressOf waveformGenerateWorker_RunWorkerCompleted
    72. waveformGenerateWorker.WorkerSupportsCancellation = True
    73. End Sub
    74. #End Region
    76. #Region "IDisposable"
    77. Public Sub Dispose() Implements IDisposable.Dispose
    78. Dispose(True)
    79. GC.SuppressFinalize(Me)
    80. End Sub
    82. Protected Overridable Sub Dispose(disposing As Boolean)
    83. If Not disposed Then
    84. If disposing Then
    85. StopAndCloseStream()
    86. If waveformGenerateWorker.IsBusy Then
    87. waveformGenerateWorker.CancelAsync()
    88. End If
    89. waveformGenerateWorker.Dispose()
    90. End If
    92. disposed = True
    93. End If
    94. End Sub
    95. #End Region
    97. #Region "INotifyPropertyChanged"
    98. Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
    100. Private Sub OnPropertyChanged(info As String)
    101. RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
    102. End Sub
    103. #End Region
    105. #Region "Private Utility Methods"
    106. Private Sub StopAndCloseStream()
    107. If waveOutDevice IsNot Nothing Then
    108. waveOutDevice.[Stop]()
    109. End If
    110. If m_activeStream IsNot Nothing Then
    111. inputStream.Close()
    112. inputStream = Nothing
    113. ActiveStream.Close()
    114. ActiveStream = Nothing
    115. End If
    116. If waveOutDevice IsNot Nothing Then
    117. waveOutDevice.Dispose()
    118. waveOutDevice = Nothing
    119. End If
    120. End Sub
    121. #End Region
    123. #Region "Public Methods"
    124. Public Delegate Sub NewTrackPlay(track As Track)
    126. Public Sub RegisterNewTrackDelegate(mydelegate As NewTrackPlay)
    127. _NewTrackDelegate = mydelegate
    128. End Sub
    130. Public Sub UpdateTimeStrings()
    131. OnPropertyChanged("ChannelLengthTimeToString")
    132. OnPropertyChanged("ChannelPositionTimeToString")
    133. End Sub
    135. Public Sub [Stop]()
    136. If waveOutDevice IsNot Nothing Then
    137. waveOutDevice.[Stop]()
    138. End If
    139. IsPlaying = False
    140. CanStop = False
    141. CanPlay = False
    142. CanPause = False
    143. StopAndCloseStream()
    144. Me.CurrentTrack = Nothing
    145. End Sub
    147. Public Sub Pause()
    148. If IsPlaying AndAlso CanPause Then
    149. waveOutDevice.Pause()
    150. IsPlaying = False
    151. CanPlay = True
    152. CanPause = False
    153. End If
    154. End Sub
    156. Public Sub Play()
    157. If CanPlay Then
    158. waveOutDevice.Play()
    159. IsPlaying = True
    160. CanPause = True
    161. CanPlay = False
    162. CanStop = True
    163. End If
    164. End Sub
    166. Public Overloads Sub OpenFile(t As Track)
    167. [Stop]()
    169. If ActiveStream IsNot Nothing Then
    170. SelectionBegin = TimeSpan.Zero
    171. SelectionEnd = TimeSpan.Zero
    172. ChannelPosition = 0
    173. End If
    175. StopAndCloseStream()
    177. If System.IO.File.Exists(t.Path) Then
    178. Try
    179. Dim mainWindow As Window = Application.Current.MainWindow
    180. Dim interopHelper As New WindowInteropHelper(mainWindow)
    181. waveOutDevice = New WaveOut(interopHelper.Handle) With { _
    182. .DesiredLatency = 100, _
    183. .Volume = Volume _
    184. }
    186. ActiveStream = New Mp3FileReader(t.Path)
    187. inputStream = New WaveChannel32(ActiveStream)
    188. sampleAggregator = New SampleAggregator(wavefftDataSize)
    189. AddHandler inputStream.Sample, AddressOf inputStream_Sample
    190. waveOutDevice.Init(inputStream)
    191. ChannelLength = inputStream.TotalTime.TotalSeconds
    192. GenerateWaveformData(t.Path)
    193. CanPlay = True
    194. If _NewTrackDelegate IsNot Nothing Then
    195. _NewTrackDelegate.Invoke(t)
    196. End If
    197. CurrentTrack = t
    198. Catch
    199. ActiveStream = Nothing
    200. CanPlay = False
    201. End Try
    202. End If
    203. End Sub
    204. #End Region
    206. #Region "Public Properties"
    207. Public Property CurrentTrack As Track
    208. Get
    209. Return _currentTrack
    210. End Get
    211. Protected Set(value As Track)
    212. If value IsNot _currentTrack Then
    213. _currentTrack = value
    214. OnPropertyChanged("CurrentTrack")
    215. End If
    216. End Set
    217. End Property
    219. Public Property ActiveStream() As WaveStream
    220. Get
    221. Return m_activeStream
    222. End Get
    223. Protected Set(value As WaveStream)
    224. Dim oldValue As WaveStream = m_activeStream
    225. m_activeStream = value
    226. If oldValue IsNot m_activeStream Then
    227. OnPropertyChanged("ActiveStream")
    228. End If
    229. End Set
    230. End Property
    232. Public Property CanPlay() As Boolean
    233. Get
    234. Return m_canPlay
    235. End Get
    236. Protected Set(value As Boolean)
    237. Dim oldValue As Boolean = m_canPlay
    238. m_canPlay = value
    239. If oldValue <> m_canPlay Then
    240. OnPropertyChanged("CanPlay")
    241. End If
    242. End Set
    243. End Property
    245. Public Property CanPause() As Boolean
    246. Get
    247. Return m_canPause
    248. End Get
    249. Protected Set(value As Boolean)
    250. Dim oldValue As Boolean = m_canPause
    251. m_canPause = value
    252. If oldValue <> m_canPause Then
    253. OnPropertyChanged("CanPause")
    254. End If
    255. End Set
    256. End Property
    258. Public Property CanStop() As Boolean
    259. Get
    260. Return m_canStop
    261. End Get
    262. Protected Set(value As Boolean)
    263. Dim oldValue As Boolean = m_canStop
    264. m_canStop = value
    265. If oldValue <> m_canStop Then
    266. OnPropertyChanged("CanStop")
    267. End If
    268. End Set
    269. End Property
    271. Public Property IsPlaying() As Boolean Implements IWaveformPlayer.IsPlaying
    272. Get
    273. Return m_isPlaying
    274. End Get
    275. Protected Set(value As Boolean)
    276. Dim oldValue As Boolean = m_isPlaying
    277. m_isPlaying = value
    278. If oldValue <> m_isPlaying Then
    279. OnPropertyChanged("IsPlaying")
    280. RaiseEvent PlayStateChanged(Me, EventArgs.Empty)
    281. End If
    282. positionTimer.IsEnabled = value
    283. End Set
    284. End Property
    286. Private _ChannelLengthTimeToString As String
    287. Public ReadOnly Property ChannelLengthTimeToString As String
    288. Get
    289. If ActiveStream Is Nothing Then Return "00:00:00"
    290. Return ActiveStream.TotalTime.ToString("hh\:mm\:ss")
    291. End Get
    292. End Property
    293. Private _ChannelPositionTimeToString As String
    294. Public ReadOnly Property ChannelPositionTimeToString As String
    295. Get
    296. If ActiveStream Is Nothing Then Return "00:00:00"
    297. Return ActiveStream.CurrentTime.ToString("hh\:mm\:ss")
    298. End Get
    299. End Property
    300. Public Property Volume As Single
    301. Get
    302. Return _volume
    303. End Get
    304. Set(value As Single)
    305. _volume = value
    306. If waveOutDevice IsNot Nothing Then waveOutDevice.Volume = value
    307. OnPropertyChanged("Volume")
    308. End Set
    309. End Property
    310. #End Region
    312. #Region "Event Handlers"
    313. Private Sub inputStream_Sample(sender As Object, e As SampleEventArgs)
    314. sampleAggregator.Add(e.Left, e.Right)
    315. Dim repeatStartPosition As Long = CLng((SelectionBegin.TotalSeconds / ActiveStream.TotalTime.TotalSeconds) * ActiveStream.Length)
    316. Dim repeatStopPosition As Long = CLng((SelectionEnd.TotalSeconds / ActiveStream.TotalTime.TotalSeconds) * ActiveStream.Length)
    317. If ((SelectionEnd - SelectionBegin) >= TimeSpan.FromMilliseconds(repeatThreshold)) AndAlso ActiveStream.Position >= repeatStopPosition Then
    318. sampleAggregator.Clear()
    319. ActiveStream.Position = repeatStartPosition
    320. End If
    321. End Sub
    323. Private Sub waveStream_Sample(sender As Object, e As SampleEventArgs)
    324. waveformAggregator.Add(e.Left, e.Right)
    325. End Sub
    327. Private Sub positionTimer_Tick(sender As Object, e As EventArgs)
    328. inChannelTimerUpdate = True
    329. ChannelPosition = (CDbl(ActiveStream.Position) / CDbl(ActiveStream.Length)) * ActiveStream.TotalTime.TotalSeconds
    330. If _ChannelLengthTimeToString <> ChannelLengthTimeToString Then
    331. OnPropertyChanged("ChannelLengthTimeToString")
    332. _ChannelLengthTimeToString = ChannelLengthTimeToString
    333. End If
    334. If _ChannelPositionTimeToString <> ChannelPositionTimeToString Then
    335. OnPropertyChanged("ChannelPositionTimeToString")
    336. _ChannelPositionTimeToString = ChannelPositionTimeToString
    337. End If
    338. If ChannelPosition = ActiveStream.TotalTime.TotalSeconds Then
    339. IsPlaying = False
    340. CanPlay = True
    341. CanPause = False
    342. CanStop = False
    343. RaiseEvent TrackEnd(Me, EventArgs.Empty)
    344. End If
    345. inChannelTimerUpdate = False
    346. End Sub
    347. #End Region
    348. End Class


    Danke für eure Antworten :)
    Mfg
    Vincent

    Hatte ich auch zuerst vor, nur schmeiß ich dann meinen ganzen Visualizer übern Haufen... Naja, Thema hat sich erledigt, Danke :)

    EDIT:// Eine Frage hätte ich noch: Geht das denn alles schon mit CScore, also Multihreading, oder muss das thefileoe erst noch implementieren?
    Mfg
    Vincent

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „VincentTB“ ()

    Geht und die Visualisierung kannst übernehmen. Außerdem unterscheidet sich cscore abgesehen von der grundlegenden Architektur doch recht stark. Zudem nicht, dass ein falscher Eindruck entsteht... Ich habe den gesamten Code selbst geschrieben außer ein paar enumerationen, etc. Diese teile sind aber auch gekennzeichnet.

    Aber wie immer danke für die Werbung @artentus.
    Und ja es ist das notwendige schon implementiert.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

Facebook
Telefonspende