Generic parameter one containing event-specific information. The use and possible values of the parameter depend on the MediaEventCode.
public long param1
Public param1 As Long
public:
int64 param1
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 20\Media";
}
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 20\Media"
End Class
Help Collections
Raster .NET | C API | C++ Class Library | HTML5 JavaScript
Document .NET | C API | C++ Class Library | HTML5 JavaScript
Medical .NET | C API | C++ Class Library | HTML5 JavaScript
Medical Web Viewer .NET
Multimedia
Direct Show .NET | C API | Filters
Media Foundation .NET | C API | Transforms
Supported Platforms
.NET, Java, Android, and iOS/macOS Assemblies
Imaging, Medical, and Document
C API/C++ Class Libraries
Imaging, Medical, and Document
HTML5 JavaScript Libraries
Imaging, Medical, and Document
Your email has been sent to support! Someone should be in touch! If your matter is urgent please come back into chat.
Chat Hours:
Monday - Friday, 8:30am to 6pm ET
Thank you for your feedback!
Please fill out the form again to start a new chat.
All agents are currently offline.
Chat Hours:
Monday - Friday
8:30AM - 6PM EST
To contact us please fill out this form and we will contact you via email.