WMEncStreamEdit.GetStream
![]() |
The GetStream method retrieves a specific stream that was added.
Syntax
Integer = WMEncStreamEdit.GetStream(enumSrcType, lOutputAudienceIndex, iOutputRenderSite, lcidLang, varInputFile, varInputAudienceIndex)
Parameters
enumSrcType
[in] Member of a WMENC_SOURCE_TYPE enumeration type identifying the media stream type. This must be a bitwise OR of the following values.
| Value | Number | Description |
| WMENC_AUDIO | 1 | Identifies an audio stream. |
| WMENC_VIDEO | 2 | Identifies a video stream. |
| WMENC_SCRIPT | 4 | Identifies a text stream. |
lOutputAudienceIndex
[in] Long containing the index of the destination audience.
iOutputRenderSite
[in] Integer containing the audience stream index of the destination. Because an audience can only contain one stream of each type, iOutputRenderSitemust be 0.
lcidLang
[in] Long specifying the language locale ID. For example, English is 1033.
varInputFile
[out] Variant specifying the source file.
varInputAudienceIndex
[out] Variant specifying the audience index of the source stream.
Return Values
This method returns an Integer indicating the render site index of the source, which is 0, and a Variant that indicates the audience index of the source stream.
Example Code
' Create a WMEncStreamEdit object.
Dim Stream As WMEncStreamEdit
Set Stream = New WMEncStreamEdit
' This example assumes that you have a source file with two audiences.
' Create a new file using the audio from the first audience and the
' video from the second audience, as follows:
' Add the audio stream from the first audience.
Stream.AddStream "C:\Source.wmv", WMENC_AUDIO, 0, 0, 1033, 0, 0
' Add the video stream from the second audience.
Stream.AddStream "C:\Source.wmv", WMENC_VIDEO, 1, 0, 1033, 0, 0
' Specify the output file.
Stream.OutputFile = "C:\Output.wmv"
' Find the index of a stream you added.
Dim iValue as Integer, vIndex As Variant
iValue = Stream.GetStream(WMENC_VIDEO, 1, 0, 1033, "C:\Source.wmv", _
vIndex)
' Validate the current settings.
Stream.Validate
' Start the stream edit process.
Stream.Start
' Retrieve the run state.
Dim SERunState as WMENC_BASICEDIT_STATE
SERunState = Stream.RunState
' You can use a timer to retrieve the percentage complete.
Dim lPercentComplete As Long
lPercentComplete = Stream.ProgressPercent
Requirements
Reference: Windows Media Encoder
Library: wmenc.exe
See Also
.gif)