Creates a profile object and fills it with the data from the passed string.
public Leadtools.Multimedia.WMProfile LoadProfileByData(
string Profile
)
Public Function LoadProfileByData( _
ByVal Profile As String _
) As Leadtools.Multimedia.WMProfile
public:
Leadtools.Multimedia.WMProfile^ LoadProfileByData(
String^ Profile
)
Profile
An XML-formatted string that contains the profile data to load.
A WMProfile object filled with profile data
Creates a profile object and fills it with the data from the passed string. The passed string is an XML-formatted string saved using the SaveProfile method. This method is used to manipulate custom profiles, while system profiles are accessed using the LoadProfileByID or LoadSystemProfile methods. For more information, refer to the Microsoft documentation for IWMProfileManager.LoadProfileByData.
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 19\Media";
}
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 19\Media"
End Class
Products |
Support |
Feedback: LoadProfileByData Method - Leadtools.Multimedia |
Introduction |
Help Version 19.0.2017.6.16
|
Raster .NET | C API | C++ Class Library | JavaScript HTML5
Document .NET | C API | C++ Class Library | JavaScript HTML5
Medical .NET | C API | C++ Class Library | JavaScript HTML5
Medical Web Viewer .NET
Your email has been sent to support! Someone should be in touch! If your matter is urgent please come back into chat.
Chat Hours:
Monday - Friday, 8:30am to 6pm ET
Thank you for your feedback!
Please fill out the form again to start a new chat.
All agents are currently offline.
Chat Hours:
Monday - Friday
8:30AM - 6PM EST
To contact us please fill out this form and we will contact you via email.