Creating a LEADTOOLS Multimedia Capture Application using LEADTOOLS DVR Components

Perform the following steps to create and run a multimedia capture DVR application using the LEADTOOLS Multimedia CaptureCtrl and PlayCtrl controls and DVR components of the LEADTOOLS MPEG-2 Transport module.

  1. Start Visual Studio .NET.

  2. Choose File->New->Project... from the menu.

  3. In the New Project dialog box, choose either "Visual C# Projects" or "VB Projects" in the Projects Type List, and choose "Windows Application " in the Templates List.

  4. Type the project name as "Multimedia DVR" in the Project Name field, and then click OK. If desired, type a new location for your project or select a directory using the Browse button, and then click OK.

  5. In the "Solution Explorer" window, right-click the "References" folder, and select "Add Reference..." from the context menu. In the "Add Reference" dialog box, select the ".NET" tab and select Leadtools.Multimedia and click OK. Also, right-click the "References" folder, and select "Add Reference..." from the context menu. In the "Add Reference" dialog box, select the "COM" tab and select:

    • LEAD MPEG2 Transport Demultiplexer Library
    • LEAD DVR Sink Library
    • LEAD MPEG-2 Encoder Filter Library

    Note: The above COM objects must be registered; in case they were not; using regsvr32. For more information, refer to DirectShow Registry-free Activation.

    Next click OK.

  6. Make sure Form1 is in design view. Go to the toolbox (View->Toolbox) and drag a CaptureCtrl control and a PlayCtrl control on the form. After adding it to the form, set the following properties on the controls:

    Property Value
    Name _capturectrl
    Anchor Top, Bottom, Left
    Name _playctrl
    Anchor Top, Bottom, Right
    AutoStart false

  7. Go to the toolbox (View->Toolbox) and drag a TrackBar control on the form (below the play control) and set the following properties:

    Property Value
    Name _track
    Anchor Bottom, Left, Right

  8. Go to the toolbox (View->Toolbox) and drag two Button controls to the bottom of the form and set the following properties:

    Property Value
    Name _buttonCapture
    Text Capture
    Anchor Bottom, Right
    Name _buttonPlay
    Text Play
    Anchor Bottom, Right

  9. Switch Form1 to code view (right-click Form1 in the Solution Explorer then choose View Code) and add the following lines to the beginning of the file:

    VB
    Imports Leadtools.Multimedia 
Imports LMMpgDmxTLib 
Imports LMDVRSinkLib 
Imports LMMPEG2EncoderLib

    C#
    using Leadtools.Multimedia; 
using LMMpgDmxTLib; 
using LMDVRSinkLib; 
using LMMPEG2EncoderLib;

  10. Declare the following private variables:

    VB
    Private Const SLIDER_MAX As Integer = 10000 
Private _targetFile As String 
Private _targetFolder As String 
Private _capturing As Boolean 
Private _mpegDemux As LMMpgDmxT 
Private _dvrSink As ILMDVRSink 
Private _firstPTS As Double 
Private _lastPTS As Double

    C#
    private const int SLIDER_MAX = 10000; 
private string _targetFile; 
private string _targetFolder; 
private bool _capturing; 
private LMMpgDmxT _mpegDemux; 
private ILMDVRSink _dvrSink; 
private double _firstPTS; 
private double _lastPTS;

  11. Add an event handler to the Form1 Load event and code it as follows:

    VB
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
  If _capturectrl.VideoDevices.Count = 0 Then 
     Throw New Exception("No capture devices available") 
  End If 
                  
  If _capturectrl.VideoDevices("Analog") Is Nothing Then 
     Throw New Exception("No Analog TV capture devices available") 
  End If 
                  
  _capturectrl.VideoDevices("Analog").Selected = True 
  _capturectrl.UseVideoDeviceAudio = True 
                  
  _capturing = False 
  _targetFolder = Path.Combine(Directory.GetCurrentDirectory(), "DVRFolder") 
  If (Not Directory.Exists(_targetFolder)) Then 
     Directory.CreateDirectory(_targetFolder) 
  End If 
                  
  _targetFile = "capture.lbl" 
                  
  _capturectrl.PreviewTap = CapturePreviewTap.Source 
  _capturectrl.Preview = True 
  _capturectrl.PreviewSource = CapturePreview.Video 
End Sub

    C#
    private void Form1_Load(object sender, System.EventArgs e) 
{ 
   if (_capturectrl.VideoDevices.Count == 0) 
      throw new Exception("No capture devices available"); 
                 
   if (_capturectrl.VideoDevices["Analog"] == null) 
      throw new Exception("No Analog TV capture devices available"); 
                 
   _capturectrl.VideoDevices["Analog"].Selected = true; 
   _capturectrl.UseVideoDeviceAudio = true; 
                  
   _capturing = false; 
   _targetFolder = Path.Combine(Directory.GetCurrentDirectory(), "DVRFolder"); 
   if (!Directory.Exists(_targetFolder)) 
      Directory.CreateDirectory(_targetFolder); 
                  
   _targetFile = "capture.lbl"; 
                  
   _capturectrl.PreviewTap = CapturePreviewTap.Source; 
   _capturectrl.Preview = true; 
   _capturectrl.PreviewSource = CapturePreview.Video; 
}

  12. Add the following helper methods as follows:

    VB
    Private Function IsStreaming() As Boolean 
   Return (_capturectrl.VideoCaptureStreamType = Leadtools.Multimedia.Constants.MEDIATYPE_Stream) 
End Function 
                  
Private Function PTSToSliderPosition(ByVal curPTS As Double) As Integer 
   Dim retVal As Integer = 0 
   If curPTS <= _firstPTS Then 
      retVal = 0 
   ElseIf curPTS >= _lastPTS Then 
      retVal = SLIDER_MAX 
   Else 
      retVal = CInt(((curPTS - _firstPTS) * SLIDER_MAX) / (_lastPTS - _firstPTS) + 0.5) 
   End If 
                  
   Return retVal 
End Function 
                  
Private Function SliderPositionToPTS(ByVal nPos As Integer) As Double 
   Return _firstPTS + CDbl(nPos) * (_lastPTS - _firstPTS) / CDbl(SLIDER_MAX) 
End Function

    C#
    private bool IsStreaming() 
{ 
   return (_capturectrl.VideoCaptureStreamType == Constants.MEDIATYPE_Stream); 
} 
                  
private int PTSToSliderPosition(double curPTS) 
{ 
   int retVal = 0; 
   if (curPTS <= _firstPTS) 
      retVal = 0; 
   else if (curPTS >= _lastPTS) 
      retVal = SLIDER_MAX; 
   else 
      retVal = (int)(((curPTS - _firstPTS) * SLIDER_MAX) / (_lastPTS - _firstPTS) + 0.5); 
                  
   return retVal; 
} 
                  
private double SliderPositionToPTS(int nPos) 
{ 
   return _firstPTS + (double)nPos * (_lastPTS - _firstPTS) / (double)SLIDER_MAX; 
}

  13. Add an event handler to the _capturectrl Progress event and code it as follows:

    VB
    Private Sub _capturectrl_Progress(ByVal sender As Object, ByVal e As ProgressEventArgs) Handles _capturectrl.Progress 
  If Not _mpegDemux Is Nothing Then 
     _mpegDemux.RefreshPosition(0) 
                  
     Dim curPTS As Double = _mpegDemux.CurrentStreamPTS 
     _firstPTS = _mpegDemux.FirstStreamPTS 
     _lastPTS = _mpegDemux.LastStreamPTS 
                  
     If curPTS < _firstPTS AndAlso _playctrl.State = PlayState.Paused Then 
        _playctrl.Run() 
     End If 
  End If 
End Sub

    C#
    private void _capturectrl_Progress(object sender, ProgressEventArgs e) 
{ 
   if (_mpegDemux != null) 
   { 
      _mpegDemux.RefreshPosition(0); 
                  
      double curPTS = _mpegDemux.CurrentStreamPTS; 
      _firstPTS = _mpegDemux.FirstStreamPTS; 
      _lastPTS = _mpegDemux.LastStreamPTS; 
                  
      if (curPTS < _firstPTS && _playctrl.State == PlayState.Paused) 
         _playctrl.Run(); 
   } 
}

  14. Add an event handler to the _playctrl TrackingPositionChanged event and code it as follows:

    VB
    Private Sub _playctrl_TrackingPositionChanged(ByVal sender As System.Object, ByVal e As TrackingPositionChangedEventArgs) Handles _playctrl.TrackingPositionChanged 
   If Not _mpegDemux Is Nothing Then 
      _mpegDemux.RefreshPosition(0) 
                 
      Dim curPTS As Double = _mpegDemux.CurrentStreamPTS 
      _firstPTS = _mpegDemux.FirstStreamPTS 
      _lastPTS = _mpegDemux.LastStreamPTS 
                 
      _track.Value = PTSToSliderPosition(curPTS) 
   End If 
End Sub

    C#
    private void _playctrl_TrackingPositionChanged(object sender, TrackingPositionChangedEventArgs e) 
{ 
   if (_mpegDemux != null) 
   { 
      _mpegDemux.RefreshPosition(0); 
                 
      double curPTS = _mpegDemux.CurrentStreamPTS; 
      _firstPTS = _mpegDemux.FirstStreamPTS; 
      _lastPTS = _mpegDemux.LastStreamPTS; 
                 
      _track.Value = PTSToSliderPosition(curPTS); 
   } 
}

  15. Add an event handler to the _track Scroll event and code it as follows:

    VB
    Private Sub _track_Scroll(ByVal sender As System.Object, ByVal e As EventArgs) Handles _track.Scroll 
   If Not _mpegDemux Is Nothing Then 
      Dim ptsPos As Double = SliderPositionToPTS(_track.Value) 
      _mpegDemux.CurrentStreamPTS = ptsPos 
   End If 
End Sub

    C#
    private void _track_Scroll(object sender, EventArgs e) 
{ 
   if (_mpegDemux != null) 
   { 
      double ptsPos = SliderPositionToPTS(_track.Value); 
      _mpegDemux.CurrentStreamPTS = ptsPos; 
   } 
}

  16. Add an event handler to the _capturectrl Complete event and code it as follows:

    VB
    Private Sub _capturectrl_Complete(ByVal sender As System.Object, ByVal e As EventArgs) Handles _capturectrl.Complete 
   MessageBox.Show("Capture Complete") 
   _buttonCapture.Enabled = true 
End Sub

    C#
    private void _capturectrl_Complete(object sender, EventArgs e) 
{ 
   MessageBox.Show("Capture Complete"); 
   _buttonCapture.Enabled = true; 
}

  17. Add an event handler to the _playctrl StateChanged event and code it as follows:

    VB
    Private Sub _playctrl_StateChanged(ByVal sender As Object, ByVal e As StateChangedEventArgs) Handles _playctrl.StateChanged 
   If e.state = PlayState.Running Then 
      _mpegDemux = Nothing 
      _mpegDemux = TryCast(_playctrl.GetSubObject(PlayObject.Splitter), LMMpgDmxT) 
   End If 
End Sub

    C#
    private void _playctrl_StateChanged(object sender, StateChangedEventArgs e) 
{ 
   if (e.state == PlayState.Running) 
   { 
      _mpegDemux = null; 
      _mpegDemux = _playctrl.GetSubObject(PlayObject.Splitter) as LMMpgDmxT; 
   } 
}

  18. Add an event handler to the _buttonCapture Click event and code it as follows:

    VB
    Private Sub _buttonCapture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _buttonCapture.Click 
   Try 
      If _capturing = True Then 
         _capturectrl.StopCapture() 
      Else 
         Dim recVideoComp As String = String.Empty 
         Dim recAudioComp As String = String.Empty 
                 
         If IsStreaming() Then 
            _capturectrl.TargetFormats.DVR.Selected = True 
            _capturectrl.TargetFormat = TargetFormatType.DVR 
            _capturectrl.VideoCompressors.Selection = -1 
            _capturectrl.AudioCompressors.Selection = -1 
         Else 
            _capturectrl.TargetFormats.DVRTransport.Selected = True 
            recVideoComp = _capturectrl.TargetFormats.DVRTransport.RecommendedVideoCompressor 
            recAudioComp = _capturectrl.TargetFormats.DVRTransport.RecommendedAudioCompressor 
            _capturectrl.TargetFormat = TargetFormatType.DVRTransport 
            If recVideoComp <> String.Empty Then 
               _capturectrl.VideoCompressors(recVideoComp).Selected = True 
            End If 
            If recAudioComp <> String.Empty Then 
               _capturectrl.AudioCompressors(recAudioComp).Selected = True 
            End If 
                              
            If _capturectrl.VideoCompressors.Mpeg2.Selected = True Then 
           Dim mpeg2Encoder As LMMPEG2Encoder = TryCast(_capturectrl.GetSubObject(CaptureObject.VideoCompressor), LMMPEG2Encoder) 
           If Not mpeg2Encoder Is Nothing Then 
             mpeg2Encoder.EncodingThreads = eMpeg2EncodingThreads.MPEG2_THREAD_AUTO 
             mpeg2Encoder.VideoFormat = eMPEG2VIDEOFORMAT.MPEG2_VF_NTSC 
             Marshal.ReleaseComObject(mpeg2Encoder) 
           End If 
         End If 
         End If 
                 
         _capturectrl.Preview = True 
         _capturectrl.TargetFile = _targetFile 
                 
         _capturectrl.ReadyCapture(CaptureMode.VideoAndAudio Or CaptureMode.InhibitRun) 
         _dvrSink = TryCast(_capturectrl.GetSubObject(CaptureObject.Sink), ILMDVRSink) 
                 
         If Not _dvrSink Is Nothing Then 
            Dim dBuffSize As Double = 102400000 ' 100 MB 
            Dim lFileCount As Integer = 8 ' 8 buffer files 
            _dvrSink.StartChangingAttributes() 
                 
            _dvrSink.FolderCount = 1 
            _dvrSink.FolderName(0) = _targetFolder 
            _dvrSink.SetBufferSize(0, lFileCount, dBuffSize) 
                 
            _dvrSink.StopChangingAttributes(False) 
            Dim bufferFolder As String = _dvrSink.BaseName 
         End If 
                 
         _capturectrl.RunCapture() 
         _buttonCapture.Enabled = False 
         _capturing = True 
      End If 
   Catch ex As Exception 
      MessageBox.Show(ex.Message) 
   End Try 
End Sub

    C#
    private void _buttonCapture_Click(object sender, System.EventArgs e) 
{ 
   try 
   { 
      if (_capturing == true) 
         _capturectrl.StopCapture(); 
      else 
      { 
         string recVideoComp = string.Empty; 
         string recAudioComp = string.Empty; 
                 
         if (IsStreaming()) 
         { 
            _capturectrl.TargetFormats.DVR.Selected = true; 
            _capturectrl.TargetFormat = TargetFormatType.DVR; 
            _capturectrl.VideoCompressors.Selection = -1; 
            _capturectrl.AudioCompressors.Selection = -1; 
         } 
         else 
         { 
            _capturectrl.TargetFormats.DVRTransport.Selected = true; 
            recVideoComp = _capturectrl.TargetFormats.DVRTransport.RecommendedVideoCompressor; 
            recAudioComp = _capturectrl.TargetFormats.DVRTransport.RecommendedAudioCompressor; 
            _capturectrl.TargetFormat = TargetFormatType.DVRTransport; 
            if (recVideoComp != string.Empty) 
               _capturectrl.VideoCompressors[recVideoComp].Selected = true; 
            if (recAudioComp != string.Empty) 
               _capturectrl.AudioCompressors[recAudioComp].Selected = true; 
                                 
            if (_capturectrl.VideoCompressors.Mpeg2.Selected == true) 
            { 
              LMMPEG2Encoder mpeg2Encoder = _capturectrl.GetSubObject(CaptureObject.VideoCompressor) as LMMPEG2Encoder; 
              if (mpeg2Encoder != null) 
              { 
                 mpeg2Encoder.EncodingThreads = eMpeg2EncodingThreads.MPEG2_THREAD_AUTO; 
                 mpeg2Encoder.VideoFormat = eMPEG2VIDEOFORMAT.MPEG2_VF_NTSC; 
                 Marshal.ReleaseComObject(mpeg2Encoder); 
              } 
            } 
         } 
                 
         _capturectrl.Preview = true; 
         _capturectrl.TargetFile = _targetFile; 
                 
         _capturectrl.ReadyCapture(CaptureMode.VideoAndAudio |   CaptureMode.InhibitRun); 
         _dvrSink = _capturectrl.GetSubObject(CaptureObject.Sink) as ILMDVRSink; 
                 
         if (_dvrSink != null) 
         { 
            double dBuffSize = 102400000;  // 100 MB 
            int lFileCount = 8;           // 8 buffer files 
            _dvrSink.StartChangingAttributes(); 
                 
            _dvrSink.FolderCount = 1; 
            _dvrSink.set_FolderName(0, _targetFolder); 
            _dvrSink.SetBufferSize(0, lFileCount, dBuffSize); 
                 
            _dvrSink.StopChangingAttributes(false); 
            string bufferFolder = _dvrSink.BaseName; 
         } 
                 
         _capturectrl.RunCapture(); 
         _buttonCapture.Enabled = false; 
         _capturing = true; 
      } 
   } 
   catch (Exception ex) 
   { 
      MessageBox.Show(this, ex.Message); 
   } 
}

  19. Add an event handler to the _buttonPlay Click event and code it as follows:

    VB
    Private Sub _buttonPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _buttonPlay.Click 
   Try 
      _mpegDemux = Nothing 
      _playCtrl.ResetSource() 
                 
      _playCtrl.PreferredMPEG2Splitter = Leadtools.Multimedia.Constants.Filter_MPEG2_Transport_Demux 
      _playctrl.SourceFile = Path.Combine(_targetFolder, _targetFile) 
      _playctrl.Run 
   Catch ex As Exception 
      MessageBox.Show(ex.Message) 
   End Try 
End Sub

    C#
    private void _buttonPlay_Click(object sender, System.EventArgs e) 
{ 
   try 
   { 
      _mpegDemux = null; 
      _playCtrl.ResetSource(); 
                 
      _playCtrl.PreferredMPEG2Splitter = Constants.Filter_MPEG2_Transport_Demux; 
      _playctrl.SourceFile = Path.Combine(_targetFolder, _targetFile); 
      _playctrl.Run(); 
   } 
   catch (Exception ex) 
   { 
      MessageBox.Show(this, ex.Message); 
   } 
}

  20. Build, and Run the program to test it.

Help Version 19.0.2017.10.27
Products | Support | Contact Us | Copyright Notices
© 1991-2017 LEAD Technologies, Inc. All Rights Reserved.
LEADTOOLS Multimedia
Introduction
Getting Started
LEADTOOLS Software License Agreement
Files To Be Included With Your Application
DirectShow Features
MediaFoundation Features
Media Streaming Features
Add-on Modules
Tutorials
Support
FAQ
Version History
Assemblies