在WPF程序中,我们可以使用 MediaElement 控件播放视频,只要我们的系统中拥有相应的解码器即可。
即便Windows系统中没有相关的解码器,我们也可以通过安装一些解码器补丁程序(如 K-Lite Basic ),来增强和补完系统的媒体解码器。

虽然播放格式的问题可以通过第三方插件解决,然而 MediaElement 有一个致命的缺点,那就是它仅支持从本地或是网络地址来加载媒体文件,并不能通过数据流加载媒体,因此在使用时有许多的限制。

好在我们可以通过使用第三方的媒体库 VlcLib 来解决这个问题,让我们的 WPF 或是 WinForm 程序实现从文件流、内存流中加载媒体文件,并且其自身就拥有丰富的解码器插件,因此并不需要第三方或是系统解码器的支持,即可播放绝大部分的视频格式!

首先,我们需要获取 VlcLib 媒体库

VlcLib 采用 LGPL 协议,如果没有修改过源码,可以将其用于闭源或商业程序。
我们要使用 VlcLib,只需要调用它的 libvlc.dlllibvlccore.dllplugins 文件夹。
VlcLib 分为x86与x64两个版本,你可以根据需求选择,或者将两个版本集合到一起。

在 nuget 上可以找到最新 3.0+ 版的 VlcLib

https://www.nuget.org/packages/VideoLAN.LibVLC.Windows/

我个人觉得 3.x 版不仅容量大,而且启动速度也比 2.x 版慢上许多,所以我推荐您使用 2.2.5.1 版。

旧版本 VlcLib 获取方式

1. 在官方网站下载旧版本的 VLC 播放器,提取里面的 libvlc.dlllibvlccore.dllplugins 文件夹即可!
https://www.videolan.org/vlc/releases/

2. 在官方资源站上可以找到所有的源码与VLC安装程序,按照上面的方法提取 VlcLib 库文件即可。
https://download.videolan.org/vlc/

其二,安装 VlcDotNet,部署 VlcLib

在 nuget 上安装 Vlc.DotNet.Core Vlc.DotNet.Core.Interops两个库文件,并根据你所编写的程序类型,选择安装Vlc.DotNet.FormsVlc.DotNet.Wpf库!

https://www.nuget.org/packages/Vlc.DotNet.Core/
https://www.nuget.org/packages/Vlc.DotNet.Core.Interops/
https://www.nuget.org/packages/Vlc.DotNet.Forms/
https://www.nuget.org/packages/Vlc.DotNet.Wpf/

将 VlcLib 的资源文件(libvlc.dlllibvlccore.dllplugins文件夹)丢入程序目录下的 \libvlc\win64\ 文件夹下,这个路径你可以自己定义!
如果你想包含x86版本的,还可以将x86类库放到 \libvlc\win32\ 文件夹下!

在工程项目中添加引用(nuget会自动引用):
Vlc.DotNet.Core
Vlc.DotNet.Core.Interops
Vlc.DotNet.Wpf 或是 Vlc.DotNet.Forms

至此,VLC的运行环境便已经搭好!

使用 VlcDotNet 播放视频

以下所有示例全部采用 WPF,WinForm 可直接使用工具栏中的Vlc控件,基本的操作流程应该是差不多的!

首先,我们在窗体主标签中添加对Vlc命名空间的引用:
<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="519" Width="693"

    xmlns:Vlc="clr-namespace:Vlc.DotNet.Wpf;assembly=Vlc.DotNet.Wpf"
>
...
之后可以在主容器内添加VLC控件:
<Grid Name="GridMain">
    <Vlc:VlcControl Name="vlcControl" Background="Transparent" />
</Grid>
然后,我们在窗体的 Loaded 事件中进行一些基本的设置:
Dim WithEvents MediaPlayer As Vlc.DotNet.Core.VlcMediaPlayer

Private Sub Window_Loaded(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
    ' 根据当前系统设置 VlcLib 的目录
    Dim vlcLibDirectory = New DirectoryInfo(Path.Combine(Environment.CurrentDirectory, "libvlc", If(IntPtr.Size = 4, "win32", "win64")))
    ' 不准备支持32位系统的话直接用这行代码
    'Dim vlcLibDirectory = New DirectoryInfo(Path.Combine(Environment.CurrentDirectory, "libvlc\win64"))

    ' 创建播放器实例
    Dim options = New String() {}
    vlcControl.SourceProvider.CreatePlayer(vlcLibDirectory, options)

    ' 从实例中获取播放器本体
    MediaPlayer = vlcControl.SourceProvider.MediaPlayer
End Sub
再之后,请在窗体内添加一个按钮,我们使用此按钮来加载一个视频:
Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
    Dim mediaPath As String = "文件路径,可以是任何常规的视频媒体,即便Windows系统内没有安装过该解码器!"

    ' 音量控制(2.2版以下无效?)
    MediaPlayer.Audio.Volume = 25

    ' 播放速度
    MediaPlayer.Rate = 3.5

    ' 自动重播
    Dim opts As String()
    If MediaPlayer.Manager.VlcVersionNumber.Major < 3 Then
        opts = {"input-repeat=-1"} '2.x版
    Else
        opts = {"input-repeat=65535"} '3.x版
    End If

    ' 播放本地文件(参数必须是FileInfo)
    MediaPlayer.SetMedia(New FileInfo(mediaPath), opts)

    ' 开始播放
    MediaPlayer.Play()
End Sub
如果一切正常,那么你窗体上的VLC播放器便会开始启动,并且会以25%音量、3.5倍速、循环播放你所设置的视频!

需要注意的是:
  • VLC3的循环需要设置参数为input-repeat=65535,而VLC2可以设置为input-repeat=-1
  • 音量控制似乎对 VLC2.2 以下版本无效?
  • 设置媒体文件时,如果是本地文件,则必须以 FileInfo 对象包裹,否则Vlc会把它当作网络路径来解析,导致程序出错!

除了解析本地媒体之外,VLC可以很容易地解析网络与流媒体!

解析网络路径的视频

' 其他代码参考上面,只需要在播放时添加一个网络URL即可
MediaPlayer.Play("http://download.blender.org/peach/bigbuckbunny_movies/big_buck_bunny_480p_h264.mov")

播放文件流、内存流视频

' 播放内存流(注意:必要时务必清除内存流)
Dim bs As Byte() = File.ReadAllBytes(mediaPath)
MediaStream = New MemoryStream(bs)
MediaStream.Position = 0 '内存流需重定向位置
MediaPlayer.Play(MediaStream, opts)

' 播放文件流(注意:必要时务必关闭文件流)
MediaStream = New FileStream(mediaPath, FileMode.Open)
MediaPlayer.Play(MediaStream, opts)

最后需要注意的事情

结束程序前,记得关闭 VLC 播放器

不管你是用 WPF 还是 WinForm,我们本质上都是在调用 VLC 为我们提供的播放器控件,所以当我们要关闭自己的程序前,一定要记得先关闭 VLC 的播放器控件,否则程序会出现报错、或者导致内存泄漏等问题!

WPF 程序在窗体的 Closing 事件中添加下面的代码即可:
Private Sub MainWindow_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles Me.Closing
    If vlcControl IsNot Nothing Then
        vlcControl.SourceProvider.Dispose()
        vlcControl.Dispose()
    End If
End Sub

如何获得进度条进度?如何得知视频即将播放完毕?

我将 MediaPlayer 写成 Dim WithEvents MediaPlayer As Vlc.DotNet.Core.VlcMediaPlayer,在VB中即可使用后期绑定来获取 MediaPlayer 的事件!
其中:
PositionChanged 可获得视频的播放进度,但是请注意,你无法获得 100% 这个进度,最多到9x%。
EndReached 在视频播放完毕时激活,但是它无法阻止视频停止,你也不能在播放完毕后重新定位视频位置。
Stopped 在强制停止、关闭媒体时发生。
其他事件请参考 Vlc.DotNet.Core.VlcMediaPlayer 对象。

如何获得更多的媒体信息?

' 在获取媒体信息之前,必须要先设置过媒体
MediaPlayer.SetMedia(New FileInfo(mediaPath))

MediaInfo = MediaPlayer.GetMedia
MediaInfo.Parse() '开始解析媒体数据
MsgBox(MediaInfo.Duration.ToString) '总长度
MsgBox(MediaPlayer.Length) '媒体文件总长度,ms
MsgBox(MediaPlayer.Time) '当前播放时间
MediaInfo 可以获得一些内置信息,请自行参考 Vlc.DotNet.Core.VlcMedia

如何跳转播放位置

MediaPlayer.Time = 62 * 1000 '62s
MediaPlayer.Position = 0.12 '12%

如何切换播放、暂停视频?

MediaPlayer.SetPause(MediaPlayer.IsPlaying)

如何关闭当前的媒体并清除资源?

MediaPlayer.ResetMedia()

最后,再来贴一个完整的VLC重载流程

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="519" Width="693"
    xmlns:Vlc="clr-namespace:Vlc.DotNet.Wpf;assembly=Vlc.DotNet.Wpf"
>
    <Grid Name="GridMain">
        <Vlc:VlcControl Name="vlcControl" Background="Transparent" />
    </Grid>
</Window>
' 一个完整的重载流程
Imports System.IO

Dim WithEvents MediaPlayer As Vlc.DotNet.Core.VlcMediaPlayer
Dim WithEvents MediaInfo As Vlc.DotNet.Core.VlcMedia
Dim MediaStream As Stream
Dim MediaPath As String = ""


' 初始化控件
If vlcControl IsNot Nothing Then
    GridMain.Children.Remove(vlcControl) '从容器中移除
    vlcControl.Dispose()
    vlcControl = Nothing

    If MediaStream IsNot Nothing Then '关闭媒体流
        MediaStream.Dispose()
        MediaStream = Nothing
    End If

    'GC.Collect() 'GC回收,会拖慢速度
End If

vlcControl = New Vlc.DotNet.Wpf.VlcControl()
vlcControl.Background = Brushes.Transparent
GridMain.Children.Insert(0, vlcControl)    '重新插入容器

' 重建播放器
Dim vlcLibDirectory = New DirectoryInfo(Path.Combine(Environment.CurrentDirectory, "libvlc", If(IntPtr.Size = 4, "win32", "win64")))
Dim options = New String() {}
vlcControl.SourceProvider.CreatePlayer(vlcLibDirectory, options)

' 初始化变量
MediaPlayer = vlcControl.SourceProvider.MediaPlayer

' 播放
MediaPath = "媒体路径..."

MediaPlayer.Audio.Volume = 25
MediaPlayer.Rate = 3.5
Dim opts = If(
    MediaPlayer.Manager.VlcVersionNumber.Major < 3, 
    {"input-repeat=-1"}, 
    {"input-repeat=65535"}
)

MediaPlayer.SetMedia(New FileInfo(MediaPath), opts)
MediaInfo = MediaPlayer.GetMedia()
MediaInfo.Parse() '解析媒体信息

MediaPlayer.Play()