MediaEventCode Enumeration

'Declaration
 
Public Enum MediaEventCode 
   Inherits System.Enum
   Implements System.IComparable, System.IConvertible, System.IFormattable 

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 175\Media";
End Class

Public _result As Boolean = False
      Public _form As New PlayCtrlForm()
      Public Sub HandleScriptExample()
         Dim playctrl As PlayCtrl = _form.PlayCtrl
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "WriteScriptStream_Dest.wmv")

         Try
            AddHandler playctrl.MediaEvent, AddressOf PlayCtrl_MediaEvent

            playctrl.SourceFile = inFile
         Catch generatedExceptionName As Exception
            Exit Sub
         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.
         While playctrl.State = PlayState.Running
            Application.DoEvents()
         End While
      End Sub

      Public Sub PlayCtrl_MediaEvent(ByVal sender As Object, ByVal e As MediaEventArgs)
         If (e.eventCode = MediaEventCode.EC_OLE_EVENT) Then
            Dim nameString As String = System.Runtime.InteropServices.Marshal.PtrToStringBSTR(New IntPtr(e.param1))
            Dim commandString As String = System.Runtime.InteropServices.Marshal.PtrToStringBSTR(New IntPtr(e.param2))
            Console.WriteLine("EC_OLE_EVENT: name={0}, command={1}", nameString, commandString)
            _result = True
         End If
      End Sub

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