Products | Support | Email a link to this topic. | Send comments on this topic. | Back to Introduction | Help Version 19.0.2.9
|
Leadtools.Multimedia Namespace > MediaInfo Class : VideoFrames Property |
Imports Leadtools Imports Leadtools.Multimedia Imports LeadtoolsMultimediaExamples.Fixtures Public _form As PlayCtrlForm = New PlayCtrlForm() Public _result As Boolean = False Public Sub ResetSourceExample() ' reference the play control Dim playctrl As PlayCtrl = _form.PlayCtrl ' input file Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "MediaInfo_Source.avi") Dim info As String = String.Empty Try ' create a new media info object Dim mi As MediaInfo = New MediaInfo() ' set the input and output files mi.SourceFile = inFile ' set the info string info = String.Format("Source File={0}" _ & Microsoft.VisualBasic.Constants.vbLf _ & "Source File Size={1}" & Microsoft.VisualBasic.Constants.vbLf _ & "Source BitRate={2}" & Microsoft.VisualBasic.Constants.vbLf _ & "Duration={3}" & Microsoft.VisualBasic.Constants.vbLf _ & "VideoBitRate={4}" _ & Microsoft.VisualBasic.Constants.vbLf _ & "VideoBitCount={5}" _ & Microsoft.VisualBasic.Constants.vbLf + Microsoft.VisualBasic.Constants.vbLf _ & "Are these values correct?", _ mi.SourceFile, _ mi.SourceFileSize, _ mi.SourceBitRate, _ mi.SourceDuration, _ mi.VideoBitRate, _ mi.VideoBitCount) ', mi.AudioBitsPerSample, mi.AudioChannels); ' verify the values _result = (MessageBox.Show(_form, info, "Media Info", MessageBoxButtons.YesNo) = DialogResult.Yes) ' reset the source mi.ResetSource() ' set the result to what we expect _result = _result And (mi.SourceFile Is Nothing) Catch e1 As Exception _result = False End Try End Sub Public NotInheritable Class LEAD_VARS Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media" End Class
using Leadtools; using Leadtools.Multimedia; using LeadtoolsMultimediaExamples.Fixtures; public PlayCtrlForm _form = new PlayCtrlForm(); public bool _result = false; public void ResetSourceExample() { // reference the play control PlayCtrl playctrl = _form.PlayCtrl; // input file string inFile =Path.Combine(LEAD_VARS.MediaDir,"MediaInfo_Source.avi"); string info = string.Empty; try { // create a new media info object MediaInfo mi = new MediaInfo(); // set the input and output files mi.SourceFile = inFile; // set the info string info = string.Format("Source File={0}\nSource File Size={1}\nSource BitRate={2}\nDuration={3}\nVideoBitRate={4}\nVideoBitCount={5}\n\nAre these values correct?", // AudioBitsPerSample={5}\nAudioChannels={6}\n mi.SourceFile, mi.SourceFileSize, mi.SourceBitRate, mi.SourceDuration, mi.VideoBitRate, mi.VideoBitCount); //, mi.AudioBitsPerSample, mi.AudioChannels); // verify the values _result = (MessageBox.Show(_form, info, "Media Info", MessageBoxButtons.YesNo) == DialogResult.Yes); // reset the source mi.ResetSource(); // set the result to what we expect _result &= (mi.SourceFile == null); } catch (Exception) { _result = false; } } static class LEAD_VARS { public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media"; }