Sets the position and size of the video window in pixels.
Public Overridable Sub SetVideoWindowPos( _
ByVal left As Integer, _
ByVal top As Integer, _
ByVal width As Integer, _
ByVal height As Integer _
)
left
X-coordinate of the origin of the video window in pixels with respect to the screen.
top
Y-coordinate of the origin of the video window in pixels with respect to the screen.
width
Video window width in pixels.
height
Video window height in pixels.
Sets the position and size of the video window in pixels. Use the VideoWindowSizeMode property to get or set the current video window size mode.
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 19\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 19\Media"
End Class
Raster .NET | C API | C++ Class Library | JavaScript HTML5
Document .NET | C API | C++ Class Library | JavaScript HTML5
Medical .NET | C API | C++ Class Library | JavaScript HTML5
Medical Web Viewer .NET