WMEncStreamEdit.GetStream

Windows Media Encoder SDK banner art

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