IWMEncEditDecisionData.Item

Windows Media Encoder SDK banner art

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