IWMEncEditDecisionData.Item
![]() |
The Item method retrieves a specific attribute from an EDL entry.
Syntax
Variant = IWMEncEditDecisionData.Item(Index, varName)
Parameters
Index
[in] Long specifying the attribute index.
varName
[out] Variant containing the name of the attribute.
Return Values
This method returns a Variant containing the value of the attribute, and a Variant containing its name.
Remarks
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 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 a WMEncEditDecisionList object from the device
' control plug-in.
Dim EDList As WMEncEditDecisionList
Set EDList = DCPlugin.EditDecisionList
' Create an EDL entry.
Dim EDData As IWMEncEditDecisionData
Set EDData = EDList.Add
' Add attributes to the EDL entry specifying mark-in, mark-out,
' tape ID, and description information.
EDData.Add "MarkIn", 262695
EDData.Add "MarkOut", 267268
EDData.Add "TapeID", "A"
EDData.Add "Description", "Scene 1"
' Retrieve the name and value of the third attribute.
Dim vValue As Variant, vName As Variant
vValue = EDData.Item(2, vName)
Requirements
Reference: Windows Media Encoder
Library: wmenc.exe
See Also
.gif)