Leadtools.Multimedia Namespace > MediaEventArgs Class : param1 Field |
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
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 175\Media"; }
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2