SaveProfileEx Method

'Declaration
 
Public Function SaveProfileEx( _
   ByVal Profile As WMProfile, _
   ByVal Flags As WMProfileType _
) As String

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