实时存储和播放麦克风数据 vb.net答案

【问题标题】：store and play microphone data in real time vb.net实时存储和播放麦克风数据 vb.net
【发布时间】：2013-11-06 10:27:42
【问题描述】：

正如标题所说，我正在尝试使用 vb.net 2010 和 NAudio 库实时存储和播放麦克风数据。我从 NAudio Codeplex 网站获得了 C# 代码，并在 vb.net 中进行了翻译。代码没有错误，程序可以正常工作（我放置了一个计数器，每次麦克风数据可用时都会不断增加和更新标签，以查看它是否真的在工作），但我什么也听不见。

这里是代码

进口 NAudio 导入 System.IO
'我正在使用的库

Private Sub wi_dataAvailable(ByVal obj As Object, ByVal e As Wave.WaveInEventArgs) 处理 wi.DataAvailable count += 1 '这里是计数器增加的地方 Label1.Text = count '并且这里的标签被更新，它似乎工作正常 play_packet(e.Buffer) 结束子

Private Sub play_packet(ByVal DR() As Byte)
    Dim MS As New MemoryStream(DR)
    Dim frmt As New Wave.WaveFormat
    frmt = Wave.WaveFormat.CreateALawFormat(8000, 1)
    Dim rsws As New Wave.RawSourceWaveStream(MS, frmt)
    Dim pcms As Wave.WaveStream = Wave.WaveFormatConversionStream.CreatePcmStream(rsws)


    Dim m_bwp As New Wave.BufferedWaveProvider(New Wave.WaveFormat(8000, 16, 1))
    Dim dec() As Byte = cnssb(pcms)
    m_bwp.AddSamples(dec, 0, dec.Length)


    Dim latency As Integer
    Dim cbi As Wave.WaveCallbackInfo = Wave.WaveCallbackInfo.NewWindow
    Dim out_dev As New Wave.WaveOut(cbi)
    out_dev.DesiredLatency = latency
    out_dev.Init(m_bwp)
    out_dev.Play()

End Sub

Private Function cnssb(ByVal nss As Wave.WaveStream) As Byte()
    Dim memstr As New MemoryStream
    Dim buff(1024) As Byte
    Dim bytes As Integer

    bytes = nss.Read(buff, 0, buff.Length)
    While bytes > 0
        memstr.Write(buff, 0, bytes)
        bytes = nss.Read(buff, 0, buff.Length)
    End While

    Dim by() As Byte = memstr.ToArray
    Return by
End Function

希望你能帮助我！

【问题讨论】：

标签： vb.net naudio

【解决方案1】：

您不应该在每次接收到记录的缓冲区时都创建新的 WaveOut 和 BufferedWaveProvider。而是创建一个，然后在收到音频时将其添加到 BufferedWaveProvider 中。

【讨论】：

我尝试将延迟更改为80，现在我可以听到声音，但是声音失真，然后我尝试按照您说的做，但是延迟增加了一点，声音没有改变了……有什么想法吗？
您不会使用 WaveIn 和 WaveOut 实现低延迟。底层 API 根本不适合低延迟工作。
如果有延迟不是问题...现在的问题是声音非常失真...我尝试将音量设置为较低的水平并尝试增加延迟，但是声音仍然失真

【解决方案2】：

解决了！

我声明了一个布尔变量，然后我像这样编辑了 play_packet 函数：

dim initialized as boolean
'in the form load i set the variable to false
'and then here is the function

Private Sub play_packet(ByVal DR() As Byte)
        Dim MS As New MemoryStream(DR)
        Dim dec() As Byte = MS.ToArray
        m_bwp.AddSamples(dec, 0, dec.Length)
        MS.Close()
        MS.Dispose()
        Dim latency As Integer = 50
        Dim cbi As Wave.WaveCallbackInfo = Wave.WaveCallbackInfo.NewWindow
        Dim out_dev As New Wave.DirectSoundOut
        out_dev.Volume = 1
        If initialized = False Then
            out_dev.Init(m_bwp)
            out_dev.Play()
            initialized = True
        End If
    End Sub

【讨论】：