Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As PlayCtrlForm = New PlayCtrlForm()
Public Sub GetStillDIBExample()
' reference the player control
Dim playctrl As PlayCtrl = _form.PlayCtrl
' input file for player
Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_Source.avi")
playctrl.SourceFile = inFile
Try
Dim dib As IntPtr = playctrl.GetStillDIB(-1)
_result = True
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 bool _result = false;
public PlayCtrlForm _form = new PlayCtrlForm();
public void GetStillDIBExample()
{
// reference the player control
PlayCtrl playctrl = _form.PlayCtrl;
// input file for player
string inFile =Path.Combine(LEAD_VARS.MediaDir,"PlayCtrl_Source.avi");
playctrl.SourceFile = inFile;
try
{
IntPtr dib = playctrl.GetStillDIB(-1);
_result = true;
}
catch (Exception)
{
_result = false;
}
}
static class LEAD_VARS
{
public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media";
}