'Declare object of class MediaManagerPro
Dim oMediaManagerPro As New MediaManagerPro()
'Get the rooth path
Dim strRootPath As String = HttpContext.Current.Server.MapPath(HttpContext.Current.Request.ApplicationPath)
'set the directory path info
oMediaManagerPro.FFMPEG_Path = HttpContext.Current.Server.MapPath("~\ffmpeg\ffmpeg.exe")
oMediaManagerPro.SourceFile_Path = strRootPath & "\contents\Source"
'set the source and output file name
oMediaManagerPro.SourceFile_Name = "GuitarPlayer.mpg"
Dim oMediaInfo As MediaInfo = oMediaManagerPro.Get_MediaInfo()
'#Region "Print Output Information"
Dim strOutputInfo As New StringBuilder()
strOutputInfo.Append("File Name= " & oMediaInfo.File_Name & "<br />")
strOutputInfo.Append("Audio Codec= " & oMediaInfo.Audio_Codec & "<br />")
strOutputInfo.Append("Video Codec= " & oMediaInfo.Video_Codec & "<br />")
strOutputInfo.Append("Video Bitrate= " & oMediaInfo.Video_Bitrate & "<br />")
strOutputInfo.Append("Audio Bitrate= " & oMediaInfo.Audio_Bitrate & "<br />")
strOutputInfo.Append("Audio Sampling Rate= " & oMediaInfo.Sampling_Rate & "<br />")
strOutputInfo.Append("Audio Channel= " & oMediaInfo.Channel & "<br />")
strOutputInfo.Append("Video Frame_Rate= " & oMediaInfo.Frame_Rate & "<br />")
strOutputInfo.Append("Video Duration= " & oMediaInfo.Duration & "<br />")
strOutputInfo.Append("Video Duration in Seconds= " & oMediaInfo.Duration_Sec & "<br />")
strOutputInfo.Append("Width= " & oMediaInfo.Width & "<br />")
strOutputInfo.Append("Height= " & oMediaInfo.Height & "<br />")
HttpContext.Current.Response.Write(strOutputInfo.ToString())
'#End Region