←Select platform

VideoCaptureSubTypes Property

Summary

Gets the video device's capture subtypes collection object.

Syntax

C++

public virtual Leadtools.Mediafoundation.CaptureSubTypes VideoCaptureSubTypes {get;}

Public Overridable ReadOnly Property VideoCaptureSubTypes As Leadtools.Mediafoundation.CaptureSubTypes

public: 
virtual property Leadtools.Mediafoundation.CaptureSubTypes^ VideoCaptureSubTypes { 
   Leadtools.Mediafoundation.CaptureSubTypes^ get(); 
}

Property Value

A CaptureSubTypes collection containing video capture subtypes.

Remarks

The CaptureSubTypes object is used to enumerate through the available video capture subtypes and to select a subtype for capture.

Example

using Leadtools; 
using Leadtools.MediaFoundation; 
using LeadtoolsMediaFoundationExamples.Fixtures; 
 
public bool _result = false; 
public CaptureCtrlForm _form = new CaptureCtrlForm(); 
 
public void CaptureSubTypesExample() 
{ 
   string name, friendlyName; 
   int selection; 
 
   // reference the capture control 
   CaptureCtrl capturectrl = _form.CaptureCtrl; 
 
   // select a video device, use your device name here instead of Analog 
   if (capturectrl.VideoDevices["Analog"] == null) 
      throw new Exception("No Analog video tuner device available"); 
 
   capturectrl.VideoDevices["Analog"].Selected = true; 
 
   // get the audio inputs object 
   CaptureSubTypes subTypes = capturectrl.VideoCaptureSubTypes; 
 
   // save the current subtype selection 
   selection = subTypes.Selection; 
 
   try 
   { 
      // select an capture subtype by name for MPEG2Video if available 
      if (subTypes[Constants.MEDIASUBTYPE_MPEG2Video] != null) 
      { 
         subTypes[Constants.MEDIASUBTYPE_MPEG2Video].Selected = true; 
      } 
      else // else try YUY2 
      if (subTypes[Constants.MEDIASUBTYPE_YUY2] != null) 
      { 
         subTypes[Constants.MEDIASUBTYPE_YUY2].Selected = true; 
      } 
 
      foreach (CaptureSubType cst in subTypes) 
      { 
         // get the subtype properties 
         name = cst.Name; 
         friendlyName = cst.FriendlyName; 
 
         // if we found the video tuner input 
         if (friendlyName == "YUY2") 
         { 
            // select it and break 
            cst.Selected = true; 
            break; 
         } 
      } 
 
      // set the result to what we expect 
      _result = (selection == subTypes.Selection); 
 
   } 
   catch (Exception) 
   { 
      _result = false; 
   } 
}

Imports Leadtools 
Imports Leadtools.MediaFoundation 
Imports LeadtoolsMediaFoundationExamples.Fixtures 
 
Public _result As Boolean = False 
Public _form As CaptureCtrlForm = New CaptureCtrlForm() 
 
Public Sub CaptureSubTypesExample() 
   Dim name, friendlyName As String 
   Dim selection As Integer 
 
   ' reference the capture control 
   Dim capturectrl As CaptureCtrl = _form.CaptureCtrl 
 
   ' select a video device, use your device name here instead of Analog 
   If capturectrl.VideoDevices("Analog") Is Nothing Then 
      Throw New Exception("No Analog video tuner device available") 
   End If 
 
   capturectrl.VideoDevices("Analog").Selected = True 
 
   ' get the audio inputs object 
   Dim subTypes As CaptureSubTypes = capturectrl.VideoCaptureSubTypes 
 
   ' save the current subtype selection 
   selection = subTypes.Selection 
 
   Try 
      ' select an capture subtype by name for MPEG2Video if available 
      If Not subTypes(Leadtools.MediaFoundation.Constants.MEDIASUBTYPE_MPEG2Video) Is Nothing Then 
         subTypes(Leadtools.MediaFoundation.Constants.MEDIASUBTYPE_MPEG2Video).Selected = True 
      Else ' else try YUY2 
         If Not subTypes(Leadtools.MediaFoundation.Constants.MEDIASUBTYPE_YUY2) Is Nothing Then 
            subTypes(Leadtools.MediaFoundation.Constants.MEDIASUBTYPE_YUY2).Selected = True 
         End If 
      End If 
 
      For Each cst As CaptureSubType In subTypes 
         ' get the subtype properties 
         name = cst.Name 
         friendlyName = cst.FriendlyName 
 
         ' if we found the video tuner input 
         If friendlyName = "YUY2" Then 
            ' select it and break 
            cst.Selected = True 
            Exit For 
         End If 
      Next cst 
 
      ' set the result to what we expect 
      _result = (selection = subTypes.Selection) 
 
   Catch e1 As Exception 
      _result = False 
   End Try 
End Sub