LEADTOOLS Multimedia (Leadtools.Multimedia assembly)

Version Property

Show in webframe
Example 



Gets the version number of the media format SDK used to create the profile.
Syntax
'Declaration
 
Public ReadOnly Property Version As WMT_Version
'Usage
 
Dim instance As WMProfile
Dim value As WMT_Version
 
value = instance.Version
public WMT_Version Version {get;}
public:
property WMT_Version Version {
   WMT_Version get();
}

Property Value

Possible values are as follows:

Remarks
The value is one of the WM_VERSION enumeration type members. For more information, refer to the Microsoft documentation for IWMProfile.GetVersion
Example
Copy Code  
Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures

Public _result As Boolean = False
Public _form As ConvertCtrlForm = New ConvertCtrlForm()
Public _subform As TestCtrlSubForm = New TestCtrlSubForm()
' this demo for enumerates system profiles and displays profile info

Public Sub SaveProfileExample()
   Dim convertctrl As ConvertCtrl = _form.ConvertCtrl
   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source.avi")

   Try
      ' create the profile manager
      Dim manager As WMProfileManager = New WMProfileManager()

      ' build a list of system profiles
      BuildSystemProfileList(_subform.List)

      ' show the dialog
      _subform.ShowDialog(_form)

      Dim idx As Integer = _subform.List.SelectedIndex

      ' load the selected profile
      Dim profile As WMProfile = LoadSystemProfile(manager, idx)

      ' convert to string
      Dim sprof As String = ProfileToString(manager, profile)

      ' display the string
      If profile.Version = WMT_Version.V8 Then
               MessageBox.Show("Profile " _
                               & profile.Name _
                               & " Content: " _
                               & sprof _
                               & "This profile contains " _
                               & profile.StreamCount.ToString() _
                               & " streams and " _
                               & profile.MutualExclusionCount.ToString() _
                               & " mutex")
      End If

      ' convert string to profile
      profile = ProfileFromString(manager, sprof)

      ' dispose the manager
      manager.Dispose()

      ' set the result
      _result = True
   Catch e1 As Exception
      _result = False
   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.
   Do While convertctrl.State = ConvertState.Running
      Application.DoEvents()
   Loop
End Sub

Private Sub BuildSystemProfileList(ByVal lbSysProfiles As ListBox)
   ' create the profile manager
   Dim manager As WMProfileManager = New WMProfileManager()
   Dim profile As WMProfile

   ' set the version to show Windows Media 8.0 system profiles
   manager.SystemProfileVersion = WMT_Version.V8

   ' walk the list of system profiles and add the name to the combo box
   lbSysProfiles.Items.Clear()

   ' enumerate the system profiles
   Dim i As Integer = 0
   Do While i < manager.SystemProfileCount - 1
      profile = manager.LoadSystemProfile(i)
      lbSysProfiles.Items.Add(profile.Name)
      i += 1
   Loop
End Sub

Private Function LoadSystemProfile(ByVal manager As WMProfileManager, ByVal idx As Integer) As WMProfile
   ' set the version to load Windows Media 8.0 system profiles
   manager.SystemProfileVersion = WMT_Version.V8

   ' load the the specified profile
   Return manager.LoadSystemProfile(idx)
End Function

Private Function ProfileToString(ByVal manager As WMProfileManager, ByVal profile As WMProfile) As String
   ' convert the profile to string
   Return manager.SaveProfile(profile)
End Function

Private Function ProfileFromString(ByVal manager As WMProfileManager, ByVal profilestr As String) As WMProfile
   ' load profile from string data
   Return manager.LoadProfileByData(profilestr)
End Function

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 TestCtrlSubForm _subform = new TestCtrlSubForm();
// this demo for enumerates system profiles and displays profile info

public void SaveProfileExample()
{
   ConvertCtrl convertctrl = _form.ConvertCtrl;
   string inFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_Source.avi");

   try
   {
      // create the profile manager
      WMProfileManager manager = new WMProfileManager();

      // build a list of system profiles
      BuildSystemProfileList(_subform.List);

      // show the dialog
      _subform.ShowDialog(_form);

      int idx = _subform.List.SelectedIndex;

      // load the selected profile
      WMProfile profile = LoadSystemProfile(manager, idx);

      // convert to string
      string sprof = ProfileToString(manager, profile); 

      // display the string
      if (profile.Version == WMT_Version.V8)
      {
         MessageBox.Show( "Profile " 
                           + profile.Name 
                           + " Content: " 
                           + sprof 
                           + "This profile contains " 
                           + profile.StreamCount.ToString() 
                           + " streams and " 
                           + profile.MutualExclusionCount.ToString() 
                           + " mutex");
      }

      // convert string to profile
      profile = ProfileFromString(manager, sprof);

      // dispose the manager
      manager.Dispose();

      // set the result
      _result = true;
   }
   catch (Exception)
   {
      _result = false;
   }

   // 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 (convertctrl.State == ConvertState.Running)
      Application.DoEvents();
}

private void BuildSystemProfileList(ListBox lbSysProfiles)
{
   // create the profile manager
   WMProfileManager manager = new WMProfileManager();
   WMProfile profile;

   // set the version to show Windows Media 8.0 system profiles
   manager.SystemProfileVersion = WMT_Version.V8;

   // walk the list of system profiles and add the name to the combo box
   lbSysProfiles.Items.Clear();

   // enumerate the system profiles
   for (int i = 0; i < manager.SystemProfileCount - 1; i++)
   {
      profile = manager.LoadSystemProfile(i);
      lbSysProfiles.Items.Add(profile.Name);
   }
}

private WMProfile LoadSystemProfile(WMProfileManager manager, int idx)
{
   // set the version to load Windows Media 8.0 system profiles
   manager.SystemProfileVersion = WMT_Version.V8;

   // load the the specified profile
   return manager.LoadSystemProfile(idx);
}

private string ProfileToString(WMProfileManager manager, WMProfile profile)
{
   // convert the profile to string
   return manager.SaveProfile(profile);
}

private WMProfile ProfileFromString(WMProfileManager manager, string profilestr)
{
   // load profile from string data
   return manager.LoadProfileByData(profilestr);
}

static class LEAD_VARS
{
public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media";
}
Requirements

Target Platforms

See Also

Reference

WMProfile Class
WMProfile Members

 

 


Products | Support | Contact Us | Copyright Notices
© 2006-2014 All Rights Reserved. LEAD Technologies, Inc.

Leadtools.Multimedia requires a Multimedia or Multimedia Suite license and unlock key. For more information, refer to: LEADTOOLS Toolkit Features