LEADTOOLS Multimedia (Leadtools.Multimedia assembly)

LoadSettingsFromStream Method (PlayCtrl)

Show in webframe
Example 



The stream containing the saved settings to load.
The PlaySettings enumeration values specifying which settings to load.
Loads settings from a stream.
Syntax
'Declaration
 
Public Overridable Sub LoadSettingsFromStream( _
   ByVal sourceStream As Stream, _
   ByVal flags As PlaySettings _
) 
'Usage
 
Dim instance As PlayCtrl
Dim sourceStream As Stream
Dim flags As PlaySettings
 
instance.LoadSettingsFromStream(sourceStream, flags)
public virtual void LoadSettingsFromStream( 
   Stream sourceStream,
   PlaySettings flags
)
public:
virtual void LoadSettingsFromStream( 
   Stream^ sourceStream,
   PlaySettings flags
) 

Parameters

sourceStream
The stream containing the saved settings to load.
flags
The PlaySettings enumeration values specifying which settings to load.
Remarks
This method reconstructs the play control configuration based on the settings loaded from the specified stream. Play control settings can be saved to a stream by calling SaveSettingsToStream, or to a file by calling SaveSettingsToFile. Settings saved to a stream can be loaded using LoadSettingsFromStream.
Example
Copy Code  
Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures

Public _result As Boolean = False
Public _form As PlayCtrlForm = New PlayCtrlForm()
Public _playctrl As PlayCtrl
Public _streamSettings As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_ObjectSettingsExample_Stream.xml")
Public _fileSettings As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_ObjectSettingsExample.xml")

Public Sub ObjectSettingsExample()
   ' reference the play control
   _playctrl = _form.PlayCtrl

   ' input files
   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_Source.avi")

   Try
      Dim pVideoDizzy As Processor = _playctrl.VideoProcessors.EFXDizzy
      ' set a video processor
      _playctrl.SelectedVideoProcessors.Add(pVideoDizzy)

      ' save the settings to a file
      If SaveFileSettings() Then
         ' now clear the selected processors again
         _playctrl.SelectedVideoProcessors.Clear()

         ' check if stream file exists
         If File.Exists(_fileSettings) Then
            ' load the saved settings from a file
            ' and check if the processor is selected again
            LoadFileSettings()

            ' set the result 
            _result = _playctrl.SelectedVideoProcessors.Contains(pVideoDizzy)
         End If
      End If

      ' save the settings to a stream
      If SaveStreamSettings() Then
         ' now clear the selected processors again
         _playctrl.SelectedVideoProcessors.Clear()

         ' check if stream file exists
         If File.Exists(_streamSettings) Then
            ' load the saved settings from a stream 
            ' and check if the processor is selected again
            LoadStreamSettings()

            ' set the result 
            _result = _result And _playctrl.SelectedVideoProcessors.Contains(pVideoDizzy)
         End If
      End If
   Catch e1 As Exception
      _result = False
   End Try
End Sub

Private Sub LoadFileSettings()
   _playctrl.LoadSettingsFromFile(_fileSettings, PlaySettings.Processors)
End Sub

Private Function SaveFileSettings() As Boolean
   '  check if we can save the processors settings
   If _playctrl.CanSaveObjectSettings(PlaySettings.Processors) Then
      _playctrl.SaveSettingsToFile(_fileSettings, PlaySettings.Processors)
      Return True
   End If
   Return False
End Function

Private Sub LoadStreamSettings()
   Dim settings As Stream = New StreamReader(_streamSettings).BaseStream
   _playctrl.LoadSettingsFromStream(settings, PlaySettings.Processors)
   settings.Close()
End Sub

Private Function SaveStreamSettings() As Boolean
   '  check if we can save the processors settings
   If _playctrl.CanSaveObjectSettings(PlaySettings.Processors) Then
      Dim settings As Stream = New StreamWriter(_streamSettings, False).BaseStream
      _playctrl.SaveSettingsToStream(settings, PlaySettings.Processors)
      settings.Close()
      Return True
   End If
   Return False
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 PlayCtrlForm _form = new PlayCtrlForm();
public PlayCtrl _playctrl;
public string _streamSettings =Path.Combine(LEAD_VARS.MediaDir,"PlayCtrl_ObjectSettingsExample_Stream.xml");
public string _fileSettings =Path.Combine(LEAD_VARS.MediaDir,"PlayCtrl_ObjectSettingsExample.xml");

public void ObjectSettingsExample()
{
   // reference the play control
   _playctrl = _form.PlayCtrl;

   // input files
   string inFile =Path.Combine(LEAD_VARS.MediaDir,"PlayCtrl_Source.avi");

   try
   {
      Processor pVideoDizzy = _playctrl.VideoProcessors.EFXDizzy;
      // set a video processor
      _playctrl.SelectedVideoProcessors.Add(pVideoDizzy);

      // save the settings to a file
      if (SaveFileSettings())
      {
         // now clear the selected processors again
         _playctrl.SelectedVideoProcessors.Clear();

         // check whether a stream file exists
         if (File.Exists(_fileSettings))
         {
            // load the saved settings from a file
            // and check whether the processor is selected again
            LoadFileSettings();

            // set the result 
            _result = _playctrl.SelectedVideoProcessors.Contains(pVideoDizzy);
         }
      }

      // save the settings to a stream
      if (SaveStreamSettings())
      {
         // now clear the selected processors again
         _playctrl.SelectedVideoProcessors.Clear();

         // check whether a stream file exists
         if (File.Exists(_streamSettings))
         {
            // load the saved settings from a stream 
            // and check whether the processor is selected again
            LoadStreamSettings();

            // set the result 
            _result &= _playctrl.SelectedVideoProcessors.Contains(pVideoDizzy);
         }
      }
   }
   catch (Exception)
   {
      _result = false;
   }
}

private void LoadFileSettings()
{
   _playctrl.LoadSettingsFromFile(_fileSettings, PlaySettings.Processors);
}

private bool SaveFileSettings()
{
   //  check whether we can save the processors settings
   if (_playctrl.CanSaveObjectSettings(PlaySettings.Processors))
   {
      _playctrl.SaveSettingsToFile(_fileSettings, PlaySettings.Processors);
      return true;
   }
   return false;
}

private void LoadStreamSettings()
{
   Stream settings = new StreamReader(_streamSettings).BaseStream;
   _playctrl.LoadSettingsFromStream(settings, PlaySettings.Processors);
   settings.Close();
}

private bool SaveStreamSettings()
{
   //  check whether we can save the processors settings
   if (_playctrl.CanSaveObjectSettings(PlaySettings.Processors))
   {
      Stream settings = new StreamWriter(_streamSettings, false).BaseStream;
      _playctrl.SaveSettingsToStream(settings, PlaySettings.Processors);
      settings.Close();
      return true;
   }
   return false;
}

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

Target Platforms

See Also

Reference

PlayCtrl Class
PlayCtrl 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