In This Topic ▼

VideoWindow Property

Summary

Gets the handle to the current video window.

Syntax

C++

public virtual IntPtr VideoWindow { get; }

Public Overridable ReadOnly Property VideoWindow As IntPtr

public: 
virtual property IntPtr VideoWindow { 
   IntPtr get(); 
}

Property Value

An IntPtr value representing the video window handle.

Example

using Leadtools; 
using Leadtools.Multimedia; 
using LeadtoolsMultimediaExamples.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.avi"); 
 
   try 
   { 
      // set the source for conversion 
      convertctrl.SourceFile = inFile; 
 
      // set the video and audio compressors 
      convertctrl.VideoCompressors.Mpeg2.Selected = true; 
      convertctrl.AudioCompressors.AC3.Selected = true; 
 
      // set the target output file and format 
      convertctrl.TargetFile = outFile; 
 
      // set the target output format 
      convertctrl.TargetFormat = TargetFormatType.AVI; 
 
      // 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 play control to cover the form's client area 
      convertctrl.SetVideoWindowPos(50, 0, this._form.ClientSize.Width, this._form.ClientSize.Height); 
 
      // 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 20\Media"; 
}

Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.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.avi") 
 
   Try 
      ' set the source for conversion 
      convertctrl.SourceFile = inFile 
 
      ' set the video and audio compressors 
      convertctrl.VideoCompressors.Mpeg2.Selected = True 
      convertctrl.AudioCompressors.AC3.Selected = True 
 
      ' set the target output file and format 
      convertctrl.TargetFile = outFile 
 
      ' set the target output format 
      convertctrl.TargetFormat = TargetFormatType.AVI 
 
      ' 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 play control to cover the form's client area 
      convertctrl.SetVideoWindowPos(50, 0, Me._form.ClientSize.Width, Me._form.ClientSize.Height) 
 
      ' 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 20\Media" 
End Class