IWMEncEditDecisionData.Add
![]() |
The Add method adds a name-value attribute to an EDL entry.
Syntax
IWMEncEditDecisionData.Add(strName, varValue)
Parameters
strName
[in] String containing the attribute name (see the following table).
varValue
[in] Variant containing the attribute value (see the following table).
Return Values
This method does not return a value.
Remarks
Use the WMEncEditDecisionList.Add method to create a new EDL entry, and then use this Add method to add the following attributes for an EDL entry.
| strName | varValue | Description |
| MarkIn | Long | Indicates the beginning of a segment to encode. This attribute is required. |
| MarkOut | Long | Indicates the end of a segment to encode. This attribute is required. |
| TapeID | String | Identifies the video tape. Use this attribute when you encode from multiple video tapes. |
| Description | String | Describes the EDL entry. |
Time for mark-in and mark-out values must be specified using the following formula:
TimeValue = ( ( ( ( hours * 60 ) + minutes ) * 60 + seconds ) * 1000 + milliseconds) * 10000
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"
' Add another EDL entry.
Set EDData = EDList.Add
EDData.Add "MarkIn", 362695
EDData.Add "MarkOut", 367268
EDData.Add "TapeID", "B"
EDData.Add "Description", "Scene 2"
Requirements
Reference: Windows Media Encoder
Library: wmenc.exe
See Also
.gif)