vb.net - 使用 NAudio 播放卡顿
问题描述
当我播放音频文件(Wave)时,我在这里结结巴巴。
我尝试更改链接在一起的 ISampleProviders 的实例化顺序。
公共属性 FilePath() As String Get Return m_FilePath End Get
Set(ByVal New_FilePath As String)
Try
Dim nCount As Integer = 0
Dim retval As Integer = 0
If New_FilePath.Length = 0 Then
DisposeInputResources()
m_FilePath = ""
ChangeStatus_Controls(False)
Exit Property
End If
PositionTrackBar.Value = 0
m_Position = 0
m_LastPosition = 0
durationLabel.Text = ConvertTime(0)
m_FilePath = New_FilePath
DisposeInputResources()
AudioFileReader1 = New AudioFileReader(FilePath)
playerStatus = PhilipsStatus.stopped
SpeedControl = New VarispeedSampleProvider(AudioFileReader1, 100, New SoundTouchProfile(False, False))
SpeedControl.PlaybackRate = 1
AutomaticGainControl = New SoftLimiter(SpeedControl)
AutomaticGainControl.Boost.CurrentValue = fileAmplificationTrackBar.Value / 2
'AudioFileReader1 = New AudioFileReader(FilePath)
'Equalizer1 = New EqualizerClass(AudioFileReader1, bands)
'SpeedControl = New VarispeedSampleProvider(Equalizer1, 100, New SoundTouchProfile(False, False))
'SpeedControl.PlaybackRate = 1
'VolumeSampleProvider1 = New VolumeSampleProvider(SpeedControl)
audioLengthLabel.Text = ConvertTime(AudioFileReader1.TotalTime.TotalSeconds)
AudioFileReader1.CurrentTime = TimeSpan.Zero
If WaveOut1 IsNot Nothing Then WaveOut1.Stop()
WaveOut1 = New WaveOutEvent()
WaveOut1.Init(AutomaticGainControl)
Thread.Sleep(1000)
nCount = 60
Volume = m_Volume
Speed = m_Speed
Position = 0
PressStopKey()
Dim sWAVFileName As String = Nothing
If Path.GetExtension(New_FilePath).ToUpper() = ".DSS" Then
sWAVFileName = Path.ChangeExtension(New_FilePath, "WAV")
'I assume that ConvertDSSToWAV() has already been called to convert the .DSS to .WAV if necessary
New_FilePath = sWAVFileName
m_FilePath = sWAVFileName
End If
PositionTrackBar.Maximum = AudioFileReader1.TotalTime.TotalSeconds
PositionTrackBar.Minimum = 0
PositionTrackBar.LargeChange = PositionTrackBar.Maximum * 0.1
If PositionTrackBar.LargeChange = 0 Then PositionTrackBar.LargeChange = 1
PositionTrackBar.SmallChange = PositionTrackBar.Maximum * 0.01
If PositionTrackBar.SmallChange = 0 Then PositionTrackBar.SmallChange = 1
PositionTrackBar.TickFrequency = PositionTrackBar.SmallChange
ChangeStatus_Controls(True)
Catch ex As Exception
MessageBox.Show("Property Set FilePath(New_FilePath= " & New_FilePath & ")" & vbCrLf & ex.Message, "FootPedalsControl", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Set
End Property
在这段代码中,我链接 ISampleProviders 并在每次加载新文件时将它们传递给 WaveOut.Init。我先停止 WaveOut。
期待流畅的聆听体验(听写)。实际结果:播放卡顿。
解决方案
这解决了我的问题:每次停止播放时,我都会破坏信号链。当再次开始播放时,我重建了信号链。
推荐阅读
- bigcommerce - 在 BigCommerce 中访问店面的元字段
- java - spring boot 无法调用存储库,因为存储库为空
- python - 组合两个数据框,将值加到相应的名称中
- node.js - 我在 PassportJS 中使用的异步函数中的引用错误
- dialogflow-es - Google Assistant 上的 userStorage 奇怪的格式
- python - 如何在这段代码中调用 get_data 函数
- python - 使用正则表达式在匹配之前立即查找字符
- amazon-web-services - AWS Workspace 无法启动
- r - `learnr` 和 `gradethis` 代码框在第二次打开后不运行
- selenium-webdriver - 网络抓取项目 - 从庄家那里抓取赔率并进行比较以找到可靠投注和价值投注(可提供工作)