Leadtools.MediaFoundation Namespace > ConvertCtrl Class : VideoWindow Property |
'Declaration Public Overridable ReadOnly Property VideoWindow As IntPtr
'Usage Dim instance As ConvertCtrl Dim value As IntPtr value = instance.VideoWindow
public virtual IntPtr VideoWindow {get;}
Imports Leadtools Imports Leadtools.MediaFoundation Imports LeadtoolsMediaFoundationExamples.Fixtures Public _result As Boolean = False Public _form As ConvertCtrlForm = New ConvertCtrlForm() Public Sub VideoWindowExample() ' reference the play control Dim convertctrl As ConvertCtrl = _form.ConvertCtrl ' input and output files Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source.avi") Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_VideoWindowExample.mp4") Try ' set the source for conversion convertctrl.SourceFile = inFile ' select MP4 target format convertctrl.TargetFormat = TargetFormatType.MP4 ' select H264 video target format Dim index As Integer = -1 Dim trgvideoformats As TargetVideoFormats = convertctrl.TargetFormats(convertctrl.TargetFormat).VideoFormats index = trgvideoformats.IndexOf("{34363248-0000-0010-8000-00AA00389B71}") ' H264 trgvideoformats.Selection = index ' select AAC audio target format Dim trgaudioformats As TargetAudioFormats = convertctrl.TargetFormats(convertctrl.TargetFormat).AudioFormats index = trgaudioformats.IndexOf("{00001610-0000-0010-8000-00AA00389B71}") ' AAC trgaudioformats.Selection = index ' set the target output file and format convertctrl.TargetFile = outFile ' enable preview convertctrl.Preview = True ' play it! convertctrl.StartConvert() ' get the video and video window info Dim vwt As Integer = convertctrl.VideoWindowTop Dim vwl As Integer = convertctrl.VideoWindowLeft Dim vwh As Integer = convertctrl.VideoWindowHeight Dim vww As Integer = convertctrl.VideoWindowWidth Dim vh As Integer = convertctrl.VideoHeight Dim vw As Integer = convertctrl.VideoWidth Dim sm As SizeMode = convertctrl.VideoWindowSizeMode Dim isFullScreen As Boolean = convertctrl.FullScreenMode If vw > vww AndAlso vh > vwh AndAlso sm <> SizeMode.Fit Then convertctrl.VideoWindowSizeMode = SizeMode.Fit ElseIf vw < vww AndAlso vh < vwh Then convertctrl.VideoWindowSizeMode = SizeMode.Stretch End If ' set the result _result = (convertctrl.VideoWindow <> IntPtr.Zero) Catch e1 As Exception _result = False End Try ' we'll loop on the state and pump messages for this example. ' but you should not need to if running from a Windows Forms application. Do While convertctrl.State = ConvertState.Running Application.DoEvents() Loop End Sub Public NotInheritable Class LEAD_VARS Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media" End Class
using Leadtools; using Leadtools.MediaFoundation; using LeadtoolsMediaFoundationExamples.Fixtures; public bool _result = false; public ConvertCtrlForm _form = new ConvertCtrlForm(); public void VideoWindowExample() { // reference the play control ConvertCtrl convertctrl = _form.ConvertCtrl; // input and output files string inFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_Source.avi"); string outFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_VideoWindowExample.mp4"); try { // set the source for conversion convertctrl.SourceFile = inFile; // select MP4 target format convertctrl.TargetFormat = TargetFormatType.MP4; // select H264 video target format int index = -1; TargetVideoFormats targetvideoformats = convertctrl.TargetFormats[convertctrl.TargetFormat].VideoFormats; index = targetvideoformats.IndexOf("{34363248-0000-0010-8000-00AA00389B71}");// H264 targetvideoformats.Selection = index; // select AAC audio target format TargetAudioFormats targetaudioformats = convertctrl.TargetFormats[convertctrl.TargetFormat].AudioFormats; index = targetaudioformats.IndexOf("{00001610-0000-0010-8000-00AA00389B71}");// AAC targetaudioformats.Selection = index; // set the target output file and format convertctrl.TargetFile = outFile; // enable preview convertctrl.Preview = true; // play it! convertctrl.StartConvert(); // get the video and video window info int vwt = convertctrl.VideoWindowTop; int vwl = convertctrl.VideoWindowLeft; int vwh = convertctrl.VideoWindowHeight; int vww = convertctrl.VideoWindowWidth; int vh = convertctrl.VideoHeight; int vw = convertctrl.VideoWidth; SizeMode sm = convertctrl.VideoWindowSizeMode; bool isFullScreen = convertctrl.FullScreenMode; if (vw > vww && vh > vwh && sm != SizeMode.Fit) convertctrl.VideoWindowSizeMode = SizeMode.Fit; else if (vw < vww && vh < vwh) convertctrl.VideoWindowSizeMode = SizeMode.Stretch; // set the result _result = (convertctrl.VideoWindow != IntPtr.Zero); } catch (Exception) { _result = false; } // we'll loop on the state and pump messages for this example. // but you should not need to if running from a Windows Forms application. while (convertctrl.State == ConvertState.Running) Application.DoEvents(); } static class LEAD_VARS { public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media"; }