←Select platform

StreamSubtype Property

Summary

Gets the subtype (GUID string) of the current stream in the source media file.

Syntax

C++

public string StreamSubtype { get; }

Public ReadOnly Property StreamSubtype As String

public: 
property String^ StreamSubtype { 
   String^ get(); 
}

Property Value

A value representing the GUID of the current stream subtype.

Remarks

This property is updated automatically when the CurrentStream property is set. To change the current stream, set the CurrentStream property to the new value. Once the current stream has been set, other MediaInfo properties are updated with information about the current stream.

Example

using Leadtools; 
using Leadtools.Multimedia; 
using LeadtoolsMultimediaExamples.Fixtures; 
 
public PlayCtrlForm _form = new PlayCtrlForm(); 
public bool _result = false; 
 
public void ResetSourceExample() 
{ 
   // reference the play control 
   PlayCtrl playctrl = _form.PlayCtrl; 
 
   // input file 
   string inFile = Path.Combine(LEAD_VARS.MediaDir, "MediaInfo_Source.avi"); 
   string info = string.Empty; 
 
   try 
   { 
      // create a new media info object 
      MediaInfo mi = new MediaInfo(); 
 
      // set the input and output files 
      mi.SourceFile = inFile; 
 
      // set the info string 
      info = string.Format("Source File={0}\nSource File Size={1}\nSource BitRate={2}\nDuration={3}\nVideoBitRate={4}\nVideoBitCount={5}\n\nAre these values correct?", 
         // AudioBitsPerSample={5}\nAudioChannels={6}\n  
         mi.SourceFile, mi.SourceFileSize, mi.SourceBitRate, mi.SourceDuration, mi.VideoBitRate, mi.VideoBitCount); //, mi.AudioBitsPerSample, mi.AudioChannels); 
 
      // verify the values 
      _result = (MessageBox.Show(_form, info, "Media Info", MessageBoxButtons.YesNo) == DialogResult.Yes); 
 
      // reset the source 
      mi.ResetSource(); 
 
      // set the result to what we expect 
      _result &= (mi.SourceFile == null); 
   } 
   catch (Exception) 
   { 
      _result = false; 
   } 
} 
 
static class LEAD_VARS 
{ 
   public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media"; 
}

Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.Fixtures 
 
Public _form As PlayCtrlForm = New PlayCtrlForm() 
Public _result As Boolean = False 
 
Public Sub ResetSourceExample() 
   ' reference the play control 
   Dim playctrl As PlayCtrl = _form.PlayCtrl 
 
   ' input file 
   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "MediaInfo_Source.avi") 
   Dim info As String = String.Empty 
 
   Try 
      ' create a new media info object 
      Dim mi As MediaInfo = New MediaInfo() 
 
      ' set the input and output files 
      mi.SourceFile = inFile 
 
      ' set the info string 
      info = String.Format("Source File={0}" _ 
                           & Microsoft.VisualBasic.Constants.vbLf _ 
                           & "Source File Size={1}" & Microsoft.VisualBasic.Constants.vbLf _ 
                           & "Source BitRate={2}" & Microsoft.VisualBasic.Constants.vbLf _ 
                           & "Duration={3}" & Microsoft.VisualBasic.Constants.vbLf _ 
                           & "VideoBitRate={4}" _ 
                           & Microsoft.VisualBasic.Constants.vbLf _ 
                           & "VideoBitCount={5}" _ 
                           & Microsoft.VisualBasic.Constants.vbLf + Microsoft.VisualBasic.Constants.vbLf _ 
                           & "Are these values correct?", 
                           mi.SourceFile, 
                           mi.SourceFileSize, 
                           mi.SourceBitRate, 
                           mi.SourceDuration, 
                           mi.VideoBitRate, 
                           mi.VideoBitCount) ', mi.AudioBitsPerSample, mi.AudioChannels); 
 
      ' verify the values 
      _result = (MessageBox.Show(_form, info, "Media Info", MessageBoxButtons.YesNo) = DialogResult.Yes) 
 
      ' reset the source 
      mi.ResetSource() 
 
      ' set the result to what we expect 
      _result = _result And (mi.SourceFile Is Nothing) 
   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