Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As ConvertCtrlForm = New ConvertCtrlForm()
Public Sub ClosedCaptioningTargetFile()
' reference the convert control
Dim convertctrl As ConvertCtrl = _form.ConvertCtrl
' target file
Dim targetFileCc As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_ClosedCaptioningTargetFile.srt")
Dim flags As ClosedCaptioningFlags = ClosedCaptioningFlags.Default
Dim testFile As String = String.Empty
Dim testFlags As ClosedCaptioningFlags
Try
' set target file name and save options
convertctrl.SetClosedCaptioningTargetFile(targetFileCc, flags)
convertctrl.GetClosedCaptioningTargetFile(testFile, testFlags)
If testFile = targetFileCc AndAlso testFlags = flags Then
_result = True
Else
_result = False
End If
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 18\Media"
End Class
using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public bool _result = false;
public ConvertCtrlForm _form = new ConvertCtrlForm();
public void ClosedCaptioningTargetFile()
{
// reference the convert control
ConvertCtrl convertctrl = _form.ConvertCtrl;
// target file
string targetFileCc = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_ClosedCaptioningTargetFile.srt");
ClosedCaptioningFlags flags = ClosedCaptioningFlags.Default;
string testFile;
ClosedCaptioningFlags testFlags;
try
{
// set target file name and save options
convertctrl.SetClosedCaptioningTargetFile(targetFileCc, flags);
convertctrl.GetClosedCaptioningTargetFile(out testFile, out testFlags);
if (testFile == targetFileCc && testFlags == flags)
_result = true;
else
_result = false;
}
catch (Exception)
{
_result = false;
}
}
static class LEAD_VARS
{
public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media";
}