Public Overridable Property SourceStream As Stream

Dim instance As PlayCtrl
Dim value As Stream
 
instance.SourceStream = value
 
value = instance.SourceStream

public virtual Stream SourceStream {get; set;}

public:
virtual property Stream^ SourceStream {
   Stream^ get();
   void set (    Stream^ value);
}

Public _result As Boolean = False
      Public _form As PlayCtrlForm = New PlayCtrlForm()
      Public Sub SourceStreamExample()
         ' reference the play control
         Dim playctrl As PlayCtrl = _form.PlayCtrl

         ' input and output file names
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_Source.avi")

         Try
            ' turn off auto start
            playctrl.AutoStart = False

            ' subscribe to the complete event to check our result
            AddHandler playctrl.MediaEvent, AddressOf PlayCtrl_MediaEvent

            ' set the source stream
            playctrl.SourceStream = New StreamReader(inFile).BaseStream

            ' set the allowed streams
            playctrl.AllowedStreams = StreamFormatType.AudioVideoCC

            ' play it!
            playctrl.Run()
         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 playctrl.State = PlayState.Running
            Application.DoEvents()
         Loop
      End Sub

      Private Sub PlayCtrl_MediaEvent(ByVal sender As Object, ByVal e As MediaEventArgs)
         ' set the result
         If e.eventCode = MediaEventCode.EC_COMPLETE Then
            _result = True
         End If
      End Sub

Public NotInheritable Class LEAD_VARS
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 17\Media"
End Class

public bool _result = false;
      public PlayCtrlForm _form = new PlayCtrlForm();
      public void SourceStreamExample()
      {
         // reference the play control
         PlayCtrl playctrl = _form.PlayCtrl;

         // input and output file names
         string inFile = Path.Combine(LEAD_VARS.MediaDir,"PlayCtrl_Source.avi");

         try
         {
            // turn off auto start
            playctrl.AutoStart = false;

            // subscribe to the complete event to check our result
            playctrl.MediaEvent += new MediaEventHandler(PlayCtrl_MediaEvent);

            // set the source stream
            playctrl.SourceStream = new StreamReader(inFile).BaseStream;

            // set the allowed streams
            playctrl.AllowedStreams = StreamFormatType.AudioVideoCC;

            // play it!
            playctrl.Run();
         }
         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 (playctrl.State == PlayState.Running)
            Application.DoEvents();
      }

      void PlayCtrl_MediaEvent(object sender, MediaEventArgs e)
      {
         // set the result
         if (e.eventCode == MediaEventCode.EC_COMPLETE)
            _result = true;
      }

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