MediaEventCode Enumeration

Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures

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

Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures

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