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
             
   
     
            using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public bool _result = false;
public PlayCtrlForm _form = new PlayCtrlForm();
public void HandleScriptExample()
{
   PlayCtrl playctrl = _form.PlayCtrl;
   string inFile = Path.Combine(LEAD_VARS.MediaDir,"WriteScriptStream_Dest.wmv");
   try
   {
      playctrl.MediaEvent += new MediaEventHandler(PlayCtrl_MediaEvent);
      playctrl.SourceFile = inFile;
   }
   catch (Exception)
   {
      return;
   }
   // 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();
}
public void PlayCtrl_MediaEvent(object sender, MediaEventArgs e)
{
   if (e.eventCode == MediaEventCode.EC_OLE_EVENT)
   {
      string nameString = System.Runtime.InteropServices.Marshal.PtrToStringBSTR(new IntPtr(e.param1));
      string commandString = System.Runtime.InteropServices.Marshal.PtrToStringBSTR(new IntPtr(e.param2));
      Console.WriteLine("EC_OLE_EVENT: name={0}, command={1}", nameString, commandString);
      _result = true;
   }
}
static class LEAD_VARS
{
public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media";
}