LEADTOOLS Multimedia (Leadtools.Multimedia assembly)
LEAD Technologies, Inc

LoadSystemProfile Method

Example 





Index of the system profile to load.
Loads the system profile at the specified index.
Syntax
public WMProfile LoadSystemProfile( 
   int ProfileIndex
)
'Declaration
 
Public Function LoadSystemProfile( _
   ByVal ProfileIndex As Integer _
) As WMProfile
'Usage
 
Dim instance As WMProfileManager
Dim ProfileIndex As Integer
Dim value As WMProfile
 
value = instance.LoadSystemProfile(ProfileIndex)
public WMProfile LoadSystemProfile( 
   int ProfileIndex
)
 function Leadtools.Multimedia.WMProfileManager.LoadSystemProfile( 
   ProfileIndex 
)
public:
WMProfile^ LoadSystemProfile( 
   int ProfileIndex
) 

Parameters

ProfileIndex
Index of the system profile to load.

Return Value

A WMProfile
Remarks
Loads the system profile at the specified index. For more information, refer to the Microsoft documentation for IWMProfileManager.LoadSystemProfile.
Example
Copy CodeCopy Code  
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 175\Media";
End Class
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 175\Media";
}
Requirements

Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

See Also

Reference

WMProfileManager Class
WMProfileManager Members

 

 


Products | Support | Contact Us | Copyright Notices

© 2006-2012 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