IWMEncDeviceControlPlugin.CurrentEDLEntry
![]() |
The CurrentEDLEntry property retrieves the index of the current EDL entry.
Syntax
Long = IWMEncDeviceControlPlugin.CurrentEDLEntry
Parameters
This property takes no parameters.
Property Value
A Long that indicates the index of the EDL entry.
Remarks
Use the WMEncEditDecisionList.Count property to find the number of entries in the EDL.
This property is read-only.
To control digital devices programmatically, you must add the Windows Media Encoder Device Control reference to the project. For more information, see Programming in Visual Basic.
Example Code
' Create a WMEncoder object.
Dim Encoder As WMEncoder
Set Encoder = New WMEncoder
' Add the device as the audio source and the video source.
Dim SrcGrpColl As IWMEncSourceGroupCollection
Dim SrcGrp As IWMEncSourceGroup2
Dim SrcAud As IWMEncSource
Dim SrcVid As IWMEncVideoSource
Set SrcGrpColl = Encoder.SourceGroupCollection
Set SrcGrp = SrcGrpColl.Add("SG_1")
Set SrcAud = SrcGrp.AddSource(WMENC_AUDIO)
Set SrcVid = SrcGrp.AddSource(WMENC_VIDEO)
' Replace the following name with the name of your device.
SrcAud.SetInput ("Device://Device resource name")
SrcVid.SetInput ("Device://Device resource name")
' Configure the output and profile.
' Retrieve the device control collection, then add a device to it.
Dim DCColl As IWMEncDeviceControlCollection
Set DCColl = SrcGrp.DeviceControlCollection
Dim DControl As IWMEncDeviceControl
Set DControl = DCColl.Add
' Replace the following name with the resource name of your device.
DControl.SetInput ("DeviceControl://Device resource name")
' Initialize the encoding session.
Encoder.PrepareToEncode True
' Get the plug-in from the device.
Dim DCPlugin As IWMEncDeviceControlPlugin
Set DCPlugin = DControl.GetDeviceControlPlugin
' Retrieve the index of the current EDL entry.
Dim lEntry As Long
lEntry = DCPlugin.CurrentEDLEntry
Requirements
Reference: Windows Media Encoder Device Control
Library: wmdevctl.dll
See Also
.gif)