EnableScriptStream Property

Summary

Gets or sets a boolean value that represents whether the script stream is enabled.

Syntax
C#
VB
C++
public bool EnableScriptStream { get; set; } 
Public Property EnableScriptStream As Boolean 
public: 
property bool EnableScriptStream { 
   bool get(); 
   void set (    bool ); 
} 

Property Value

A boolean value that represents whether the script stream is enabled.

Example
C#
VB
using Leadtools; 
using Leadtools.Multimedia; 
using LeadtoolsMultimediaExamples.Fixtures; 
 
public bool _result = false; 
public CaptureCtrlForm _form = new CaptureCtrlForm(); 
public DateTime _startTime; 
CaptureCtrl _capturectrl; 
WMScript _mux; 
 
public void WriteScriptStreamExample() 
{ 
   _capturectrl = _form.CaptureCtrl; 
 
   // reference the capture control 
   string outFile = Path.Combine(LEAD_VARS.MediaDir, "WriteScriptStream_Dest.wmv"); 
 
   try 
   { 
      _capturectrl.TargetFormat = TargetFormatType.WMVMux; 
      _capturectrl.TargetFile = outFile; 
 
      // set an audio device, use the name of your device here 
      if (_capturectrl.VideoDevices["Logitech"] == null) 
         throw new Exception("No USB audio device available"); 
 
      _capturectrl.VideoDevices["Logitech"].Selected = true; 
 
      if (_capturectrl.IsModeAvailable(CaptureMode.Video)) 
      { 
         _capturectrl.FrameDelay = .033;  // 30 frames per second 
         _capturectrl.TimeLimit = 10;     // just 10 seconds of capture time 
         _capturectrl.UseTimeLimit = true; 
 
         // call ReadyCapture, so the target object is added 
         _capturectrl.ReadyCapture(CaptureMode.Video | CaptureMode.InhibitRun); 
 
         // get the scripter object 
         _mux = _capturectrl.WMScripter; 
         if (_mux == null) 
            return; 
 
         // enable the script stream 
         _mux.EnableScriptStream = true; 
 
         // subscribe to the complete event 
         _capturectrl.Complete += new EventHandler(CaptureCtrl_Complete); 
 
         // subscribe to the error abort event 
         _capturectrl.ErrorAbort += new ErrorAbortEventHandler(CaptureCtrl_ErrorAbort); 
 
         // set the start time 
         _startTime = DateTime.Now; 
 
         // set a timer so we can write the Script commands every second 
         _form.TestTimer.Interval = 1000; 
         _form.TestTimer.Tick += new EventHandler(TestTimer_Tick); 
         _form.TestTimer.Start(); 
 
         // start the capture process 
         _capturectrl.StartCapture(CaptureMode.Video); 
 
         // 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 (_capturectrl.State == CaptureState.Running) 
            Application.DoEvents(); 
      } 
   } 
   catch (Exception) 
   { 
      return; 
   } 
 
   // 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 (_capturectrl.State == CaptureState.Running) 
      Application.DoEvents(); 
 
   _result = true; 
} 
 
public void TestTimer_Tick(object sender, EventArgs e) 
{ 
   // stop the capture 
   try 
   { 
      double elapsedTime = (DateTime.Now - _startTime).TotalMilliseconds / 1000; 
      String sz = String.Format("Sample caption script at {0} seconds", elapsedTime); 
      _mux.WriteScriptStream("caption", sz, elapsedTime); 
   } 
   catch (Exception) 
   { 
      _result = false; 
      _capturectrl.StopCapture(); 
   } 
} 
 
public void CaptureCtrl_Complete(object sender, EventArgs e) 
{ 
   // set result 
   _result = true; 
   // the capture has finished, do not write scripts anymore 
   // Note that since the capture has finished automatically, I do not need to call _mux.CloseScriptStream() 
   _form.TestTimer.Stop(); 
} 
 
public void CaptureCtrl_ErrorAbort(object sender, ErrorAbortEventArgs e) 
{ 
   // set result 
   _result = false; 
   // the capture has finished, do not write scripts anymore 
   // Note that since the capture has finished automatically, I do not need to call _mux.CloseScriptStream() 
   _form.TestTimer.Stop(); 
} 
 
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 New CaptureCtrlForm() 
Public _startTime As DateTime 
Private _capturectrl As CaptureCtrl 
Private _mux As WMScript 
 
Public Sub WriteScriptStreamExample() 
   _capturectrl = _form.CaptureCtrl 
 
   ' reference the capture control 
   Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "WriteScriptStream_Dest.wmv") 
 
   Try 
      _capturectrl.TargetFormat = TargetFormatType.WMVMux 
      _capturectrl.TargetFile = outFile 
 
      ' set an audio device, use the name of your device here 
      If _capturectrl.VideoDevices("Logitech") Is Nothing Then 
         Throw New Exception("No USB audio device available") 
      End If 
 
      _capturectrl.VideoDevices("Logitech").Selected = True 
 
      If _capturectrl.IsModeAvailable(CaptureMode.Video) Then 
 
         _capturectrl.FrameDelay = 0.033 ' 30 frames per second 
 
         _capturectrl.TimeLimit = 10 ' just 10 seconds of capture time 
         _capturectrl.UseTimeLimit = True 
 
         ' call ReadyCapture, so the target object is added 
         _capturectrl.ReadyCapture(CaptureMode.Video Or CaptureMode.InhibitRun) 
 
         ' get the scripter object 
         _mux = _capturectrl.WMScripter 
         If _mux Is Nothing Then 
            Return 
         End If 
 
         ' enable the script stream 
         _mux.EnableScriptStream = True 
 
         ' subscribe to the complete event 
         AddHandler _capturectrl.Complete, AddressOf CaptureCtrl_Complete 
 
         ' subscribe to the error abort event 
         AddHandler _capturectrl.ErrorAbort, AddressOf CaptureCtrl_ErrorAbort 
 
         ' set the start time 
         _startTime = DateTime.Now 
 
         ' set a timer so we can write the Script commands every second 
         _form.TestTimer.Interval = 1000 
         AddHandler _form.TestTimer.Tick, AddressOf TestTimer_Tick 
         _form.TestTimer.Start() 
 
         ' start the capture process 
         _capturectrl.StartCapture(CaptureMode.Video) 
 
         ' 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 _capturectrl.State = CaptureState.Running 
            Application.DoEvents() 
         End While 
      End If 
   Catch generatedExceptionName As Exception 
      Return 
   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. 
   While _capturectrl.State = CaptureState.Running 
      Application.DoEvents() 
   End While 
 
   _result = True 
End Sub 
 
Public Sub TestTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) 
   ' stop the capture 
   Try 
      Dim elapsedTime As Double = (DateTime.Now - _startTime).TotalMilliseconds / 1000 
      Dim sz As [String] = [String].Format("Sample caption script at {0} seconds", elapsedTime) 
      _mux.WriteScriptStream("caption", sz, elapsedTime) 
   Catch generatedExceptionName As Exception 
      _result = False 
      _capturectrl.StopCapture() 
   End Try 
End Sub 
 
Public Sub CaptureCtrl_Complete(ByVal sender As Object, ByVal e As EventArgs) 
   ' set result 
   _result = True 
   ' the capture has finished, don't write scripts anymore 
   ' Note that since the capture has finished automatically, I don't need to call _mux.CloseScriptStream() 
   _form.TestTimer.[Stop]() 
End Sub 
 
Public Sub CaptureCtrl_ErrorAbort(ByVal sender As Object, ByVal e As ErrorAbortEventArgs) 
   ' set result 
   _result = False 
   ' the capture has finished, don't write scripts anymore 
   ' Note that since the capture has finished automatically, I don't need to call _mux.CloseScriptStream() 
   _form.TestTimer.[Stop]() 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 20\Media" 
End Class 
Requirements

Target Platforms

See Also

Reference

WMScript Class

WMScript Members

Help Version 20.0.2019.11.25
Products | Support | Contact Us | Intellectual Property Notices
© 1991-2019 LEAD Technologies, Inc. All Rights Reserved.

Leadtools.Multimedia Assembly