随着高速（20M）宽带、HTPC、大容量硬盘（3T）的普及，下载高清片并利用大屏幕观看也成为普通的事情。
随着下载影片的增多，管理就有了问题，有时在茫茫文件夹下找寻一个影片也是一件费时费力的事。
于是萌生了自己编写电影管理器的想法，并逐步逐步在实现。利用博客记录编写的过程，也是和网友之间的交流。期望在交流的过程中，网友能提出一些中肯的意见，使自己少走些弯路。
我在拿到一个高清视频文件时。我希望能有办法获知以下的信息
文件名：视频文件的文件名，这个比较简单，利用FileInfo类就能获得
文件大小：视频文件的大小，这个也比较简单，利用FileInfo类能获得
视频分辨率：视频文件的分辨率，例如：宽1980像素，高1040像素。
视频时长：视频文件的时长，例如：长1小时32分
音频数：视频文件中的音频数，有不少的高清视频文件中包含不止一个音频。有的包含英文、中文2个音频；有的包含英文、中文、粤语3个音频
音频的语言类型：具体到每个音频的语言。例如：音频1是英文，音频2是中文等
以上信息中的后面四个（视频分辨率、视频时长、音频数、音频的语言类型），用视频播放器都能获得。但是如何在自己的程序中获得这些信息呢？
我们可以利用MediaInfo来获取这些信息（视频分辨率、视频时长、音频数、音频的语言类型）
先看看MediaInfo的介绍，MediaInfo官网。在官网上有相关的介绍，并给出了调用的代码（很完备。C++，C#，Visual Basic等都有）
高清视频文件的相关信息都保存在文件的头部区域，记录的信息有很多（除却上面的四种外，还包括码率、编码类型等等）。而MediaInfo就是利用读取头部区域的信息来获得相关的信息。官网的更新很快，笔者下载的是2013年7月6日发布的最新版。
下面就介绍如何利用MediaInfo来获得高清视频文件的相关信息。
1、下载相应的DLL
在http://sourceforge.net/projects/mediainfo/files/development_snapshots/上点击Download MediaInfo_GUI_0.7.64_Windows.exe (4.5 MB)，下载最新的版本。安装后在安装的目录中找到MediaInfo.dll和MediaInfo_i386.dll这两个DLL文件。
2、新建项目
在VS2010中新建项目，把相关的DLL复制到可执行程序的目录（在项目文件夹下的bin\Debug\，或者复制到系统目录中）
注：MediaInfo.dll貌似是64位的；MediaInfo_i386.dll貌似是32位的；在后面的调试中，MediaInfo.dll始终会报错，反而MediaInfo_i386.dll改成MediaInfo.dll后复制到目录中调试一遍成功。
3、把官网中的提供的调用代码添加到项目中来
由于DLL仅仅提供了函数。而目前的编码基本上都是面向对象，所以在官网上针对很多的语言都提供了相应的代码，把函数调用包装成类，方便调用者使用。Visual Basic的调用代码在http://sourceforge.net/p/mediainfo/code/5846/tree/MediaInfoLib/trunk/Project/MSVB2010/上，其他语言在相关的网页上也能找到，这里就不赘述了。
要注意的是，在如上所做时，还得在VS2010中进行设置
在打开的项目属性中，点开“调试”，勾上“启用非托管代码调试”，才能正常调试。
如果没有勾上，运行时则会出现下面的对话框
可能是缺少Lib文件的缘故，不过我没在官网上找到Lib文件的下载
另，不需要在项目中对MediaInfo.dll引用。引用会出错，如下所示：
官网上的Visual Basic 2010调用代码如下：
Public Enum StreamKind As UInteger
General
Visual
Audio
Text
Chapters
Image
Menu
Max
End Enum
Public Enum InfoKind As UInteger
Name
Text
Measure
Options
NameText
MeasureText
Info
HowTo
Max
End Enum
Public Enum InfoOptions As UInteger
ShowInInform
Reserved
ShowInSupported
TypeOfValue
Max
End Enum
Public Class MediaInfo
Private Declare Unicode Function MediaInfo_New Lib "MediaInfo.DLL" () As IntPtr
Private Declare Unicode Sub MediaInfo_Delete Lib "MediaInfo.DLL" (ByVal Handle As IntPtr)
Private Declare Unicode Function MediaInfo_Open Lib "MediaInfo.DLL" (ByVal Handle As IntPtr, ByVal FileName As String) As UIntPtr
Private Declare Unicode Sub MediaInfo_Close Lib "MediaInfo.DLL" (ByVal Handle As IntPtr)
Private Declare Unicode Function MediaInfo_Inform Lib "MediaInfo.DLL" (ByVal Handle As IntPtr, ByVal Reserved As UIntPtr) As IntPtr
Private Declare Unicode Function MediaInfo_GetI Lib "MediaInfo.DLL" (ByVal Handle As IntPtr, ByVal StreamKind As UIntPtr, ByVal StreamNumber As UIntPtr, ByVal Parameter As UIntPtr, ByVal KindOfInfo As UIntPtr) As IntPtr
Private Declare Unicode Function MediaInfo_Get Lib "MediaInfo.DLL" (ByVal Handle As IntPtr, ByVal StreamKind As UIntPtr, ByVal StreamNumber As UIntPtr, ByVal Parameter As String, ByVal KindOfInfo As UIntPtr, ByVal KindOfSearch As UIntPtr) As IntPtr
Private Declare Unicode Function MediaInfo_Option Lib "MediaInfo.DLL" (ByVal Handle As IntPtr, ByVal Option_ As String, ByVal Value As String) As IntPtr
Private Declare Unicode Function MediaInfo_State_Get Lib "MediaInfo.DLL" (ByVal Handle As IntPtr) As UIntPtr
Private Declare Unicode Function MediaInfo_Count_Get Lib "MediaInfo.DLL" (ByVal Handle As IntPtr, ByVal StreamKind As UIntPtr, ByVal StreamNumber As IntPtr) As UIntPtr
Dim Handle As IntPtr
Sub New()
Handle = MediaInfo_New()
End Sub
Protected Overrides Sub Finalize()
MediaInfo_Delete(Handle)
End Sub
Function Open(ByVal FileName As String) As System.UIntPtr
Return MediaInfo_Open(Handle, FileName)
End Function
Sub Close()
MediaInfo_Close(Handle)
End Sub
Function Inform() As String
Return Marshal.PtrToStringUni(MediaInfo_Inform(Handle, CType(0, UIntPtr)))
End Function
Function Get_(ByVal StreamKind As StreamKind, ByVal StreamNumber As Integer, ByVal Parameter As Integer, Optional ByVal KindOfInfo As InfoKind = InfoKind.Text) As String
Return Marshal.PtrToStringUni(MediaInfo_GetI(Handle, CType(StreamKind, UIntPtr), CType(StreamNumber, UIntPtr), CType(Parameter, UIntPtr), CType(KindOfInfo, UIntPtr)))
End Function
Function Get_(ByVal StreamKind As StreamKind, ByVal StreamNumber As Integer, ByVal Parameter As String, Optional ByVal KindOfInfo As InfoKind = InfoKind.Text, Optional ByVal KindOfSearch As InfoKind = InfoKind.Name) As String
Return Marshal.PtrToStringUni(MediaInfo_Get(Handle, CType(StreamKind, UIntPtr), CType(StreamNumber, UIntPtr), Parameter, CType(KindOfInfo, UIntPtr), CType(KindOfSearch, UIntPtr)))
End Function
Function Option_(ByVal Option__ As String, Optional ByVal Value As String = "") As String
Return Marshal.PtrToStringUni(MediaInfo_Option(Handle, Option__, Value))
End Function
Function State_Get() As Integer
Return CInt(MediaInfo_State_Get(Handle))
End Function
Function Count_Get(ByVal StreamKind As StreamKind, Optional ByVal StreamNumber As UInteger = UInteger.MaxValue) As Integer
If StreamNumber = UInteger.MaxValue Then
Return CInt(MediaInfo_Count_Get(Handle, CType(StreamKind, UIntPtr), CType(-1, IntPtr)))
Else
Return CInt(MediaInfo_Count_Get(Handle, CType(StreamKind, UIntPtr), CType(StreamNumber, IntPtr)))
End If
End Function
End Class
4、再次包装，方便调用
由于上面的代码是提供了一个类供调用者使用，因此，我决定再包装一下，使其看起来简单一些（我只需要分辨率、时长、音频数、音频语言这四个信息）。
我包装的代码如下：
Private _M As MediaInfo
Public Sub New()
_M = New MediaInfo
End Sub
Public Function GetInfo(FileName As String) As String
_M.Open(FileName)
_M.Option_("Complete")
Return _M.Inform
End Function
Public Function Width() As String
Return _M.Get_(StreamKind.Visual, 0, "Width")
End Function
Public Function Height() As String
Return _M.Get_(StreamKind.Visual, 0, "Height")
End Function
Public Function Duration() As String
Return _M.Get_(StreamKind.General, 0, "Duration/String3")
End Function
Public Function AudioCount() As Integer
Return Convert.ToInt32(_M.Get_(StreamKind.General, 0, "AudioCount"))
End Function
Public Function AudioLanguage(Index As Integer) As String
If Index < 0 OrElse Index > AudioCount() - 1 Then Index = 0
Return _M.Get_(StreamKind.Audio, Index, "Language/String")
End Function
Public Function AudioLanguage() As String()
Dim I As Integer, C As Integer = AudioCount()
Dim L(C - 1) As String
For I = 0 To C - 1
L(I) = _M.Get_(StreamKind.Audio, I, "Language/String")
Next
Return L
End Function
End Class
解释一下：
首先在类的内部定义一个MediaInfo类的实例，具体的功能都是通过该实例来完成。
在查看信息前，需调用GetInfo(FileName As String)函数，该函数的目的是获得相关的信息，一共三句话
_M.Open(FileName)
_M.Option_("Complete")
Return _M.Inform
第1句，打开FileName指定的文件；第2句，获取相关信息，并通知类，已经获取完毕（可能在DLL中会有释放资源等操作）；第3句，返回视频文件的相关信息。
第3句话返回的是所有的信息，长长的一串。
如果仅仅是想获得某一个信息，则需要调用下面的语句
_M.Get_(StreamKind.Visual, 0, "Width")
一共三个参数。
第1个参数，获取信息的类别。一般取StreamKind.General（通用信息）、StreamKind.Visual（视频信息）、StreamKind.Audio（音频信息）
第2个参数，获取信息的流编号。一般取0（第1个流，视频一般就1个流，音频有可能多于1个流），音频的话，取相应的流编号（0开始，到流数减1）
第3个参数，获取信息的名字。根据该参数返回对应的信息。
那么，对应的调用就是
视频宽度：_M.Get_(StreamKind.Visual, 0, "Width")
视频高度：_M.Get_(StreamKind.Visual, 0, "Height")
视频时长：_M.Get_(StreamKind.General, 0, "Duration/String3")。这个有多种选择，该调用返回 01:34:48.683 这种格式；如果是：_M.Get_(StreamKind.General, 0, "Duration")，则返回 5688683 ，还需要自己转换。
音频个数：_M.Get_(StreamKind.General, 0, "AudioCount")
音频语言：_M.Get_(StreamKind.Audio, I, "Language/String")。也是多种选择，该调用返回 English 这种格式；如果是：_M.Get_(StreamKind.Audio, I, "Language")，则返回 en 这种格式。
如果想获取其他的信息，直接给出相应的参数就行了。例如想获得视频的最大码率，给出参数BitRate_Maximum就行了。如下调用
_M.Get_(StreamKind.Visual, 0, "BitRate_Maximum")
那么，如何能知道有哪些参数呢？参看
这两篇文章对参数介绍的很详细，只是文章写得早，提供的DLL版本比较低罢了
下面是获取 G:\Despicable.Me.2010.BluRay.1080p.DTS.2Audio.x264-CHD.mkv 这个高清视频文件信息的调用代码：
Dim S As New clsMediaInfo
S.GetInfo("G:\Despicable.Me.2010.BluRay.1080p.DTS.2Audio.x264-CHD.mkv")
Dim S1 As String = ""
S1 &= S.Width & " " & S.Height & vbNewLine
S1 &= S.Duration & vbNewLine
S1 &= S.AudioCount & vbNewLine
S1 &= S.AudioLanguage(0) & "," & S.AudioLanguage(1)
RichTextBox1.Text = S1
返回的信息如下：
1920 1040
01:34:48.683
2
English,Chinese
说明视频分辨率为1920*1040；时长：1小时34分48秒；2个音频；分别是英文和中文；
这个代码在做高清视频文件的信息库的时候特别有用。可以根据高清视频文件自动获取相关信息，毋须再手动填充信息。