如何在VB.Net中实现媒体播放器单轨双声道输出及单声道转换？

核心思路 #

别用Windows Media Player控件做这个了——它只能调平衡，没法直接操作音频样本数据。推荐用NAudio这个.Net平台常用的音频处理库，能轻松实现声道分离、合并以及双声道映射。先通过NuGet安装：
Install-Package NAudio

1. 单独播放左声道（人物A）到双耳 #

读取MP3的左声道音频样本，将其同时复制到左右两个声道，让双耳都能听到人物A的声音：

Imports NAudio.Wave

Public Class LeftToStereoProvider
    Inherits WaveProviderBase
    Private ReadOnly sourceProvider As IWaveProvider
    Private buffer As Byte()

    Public Sub New(source As IWaveProvider)
        MyBase.New(source.WaveFormat)
        sourceProvider = source
        buffer = New Byte(source.WaveFormat.Channels * source.WaveFormat.BitsPerSample / 8 * 1024 - 1) {}
    End Sub

    Public Overrides Function Read(buffer As Byte(), offset As Integer, count As Integer) As Integer
        Dim bytesRead = sourceProvider.Read(Me.buffer, 0, count)
        Dim sampleSize = WaveFormat.BitsPerSample / 8

        ' 遍历每个样本，把左声道数据复制到右声道位置
        For i = 0 To bytesRead - 1 Step sampleSize * 2
            Array.Copy(Me.buffer, i, buffer, offset + i, sampleSize)
            Array.Copy(Me.buffer, i, buffer, offset + i + sampleSize, sampleSize)
        Next

        Return bytesRead
    End Function
End Class

' 使用示例
Dim mp3Reader As New Mp3FileReader("你的MP3文件路径")
Dim leftToStereo As New LeftToStereoProvider(mp3Reader)
Dim waveOut As New WaveOut()
waveOut.Init(leftToStereo)
waveOut.Play()

2. 单独播放右声道（人物B）到双耳 #

逻辑和上面类似，只是把右声道的数据复制到左右两个声道：

Public Class RightToStereoProvider
    Inherits WaveProviderBase
    Private ReadOnly sourceProvider As IWaveProvider
    Private buffer As Byte()

    Public Sub New(source As IWaveProvider)
        MyBase.New(source.WaveFormat)
        sourceProvider = source
        buffer = New Byte(source.WaveFormat.Channels * source.WaveFormat.BitsPerSample / 8 * 1024 - 1) {}
    End Sub

    Public Overrides Function Read(buffer As Byte(), offset As Integer, count As Integer) As Integer
        Dim bytesRead = sourceProvider.Read(Me.buffer, 0, count)
        Dim sampleSize = WaveFormat.BitsPerSample / 8

        ' 遍历每个样本，把右声道数据复制到左声道位置
        For i = 0 To bytesRead - 1 Step sampleSize * 2
            Array.Copy(Me.buffer, i + sampleSize, buffer, offset + i, sampleSize)
            Array.Copy(Me.buffer, i + sampleSize, buffer, offset + i + sampleSize, sampleSize)
        Next

        Return bytesRead
    End Function
End Class

' 使用示例
Dim mp3Reader As New Mp3FileReader("你的MP3文件路径")
Dim rightToStereo As New RightToStereoProvider(mp3Reader)
Dim waveOut As New WaveOut()
waveOut.Init(rightToStereo)
waveOut.Play()

3. 合并双声道为单声道（双耳听到双方声音） #

把左右声道的样本数据混合后，同时输出到左右声道：

Public Class StereoToMonoProvider
    Inherits WaveProviderBase
    Private ReadOnly sourceProvider As IWaveProvider
    Private buffer As Byte()

    Public Sub New(source As IWaveProvider)
        MyBase.New(source.WaveFormat)
        sourceProvider = source
        buffer = New Byte(source.WaveFormat.Channels * source.WaveFormat.BitsPerSample / 8 * 1024 - 1) {}
    End Sub

    Public Overrides Function Read(buffer As Byte(), offset As Integer, count As Integer) As Integer
        Dim bytesRead = sourceProvider.Read(Me.buffer, 0, count)
        Dim sampleSize = WaveFormat.BitsPerSample / 8

        For i = 0 To bytesRead - 1 Step sampleSize * 2
            ' 以16位音频为例混合左右声道，其他位深需调整逻辑
            If WaveFormat.BitsPerSample = 16 Then
                Dim left = BitConverter.ToInt16(Me.buffer, i)
                Dim right = BitConverter.ToInt16(Me.buffer, i + sampleSize)
                Dim mixed = CShort((left + right) / 2) ' 简单平均混合
                Dim mixedBytes = BitConverter.GetBytes(mixed)
                ' 混合后的数据输出到左右声道
                Array.Copy(mixedBytes, 0, buffer, offset + i, sampleSize)
                Array.Copy(mixedBytes, 0, buffer, offset + i + sampleSize, sampleSize)
            End If
        Next

        Return bytesRead
    End Function
End Class

' 使用示例
Dim mp3Reader As New Mp3FileReader("你的MP3文件路径")
Dim stereoToMono As New StereoToMonoProvider(mp3Reader)
Dim waveOut As New WaveOut()
waveOut.Init(stereoToMono)
waveOut.Play()

注意事项 #

• 处理8位、24位等不同位深的音频时，需要调整样本读取和混合的逻辑，上面示例默认适配常用的16位格式。
• 播放结束后记得调用waveOut.Stop()和Dispose()释放资源，避免内存泄漏。

内容的提问来源于stack exchange，提问作者Diego