IWMSActiveStreams Object (Visual Basic .NET)

The IWMSActiveStreams object contains a collection of IWMSActiveStream objects that provide information about specific audio and video streams in the active media element. The IWMSActiveMediaIWMSActiveMedia Object (Visual Basic .NET) provides information about the active element.

The IWMSActiveStreams object exposes the following properties.

Property

Description

Count

Retrieves the number of IWMSActiveStream objects in the IWMSActiveStreams collection.

Item

Retrieves a specific IWMSActiveStreamIWMSActiveStream Object (Visual Basic .NET), by index, from the IWMSActiveStreams collection.

length

Retrieves the number of IWMSActiveStream objects in the IWMSActiveStreams collection. This method is provided for Microsoft JScript compatibility.

Example

The following example illustrates how to retrieve an IWMSActiveStreams object.

Imports Microsoft.WindowsMediaServices.Interop
Imports System.Runtime.InteropServices

Private Sub RetrieveObj()

    ' Declare variables.
    Dim Server As WMSServer
    Dim Players As IWMSPlayers
    Dim Player As IWMSPlayer
    Dim Playlist As IWMSPlaylist
    Dim ActiveMedia As IWMSActiveMedia
    Dim ActiveStreams As IWMSActiveStreams

Try
    ' Create the WMSServer object.
    Server = New WMSServer()

    ' Retrieve the IWMSPlayers object.
    Players = Server.Players

    ' If players are connected, retrieve first IWMSPlayer object
    ' in the IWMSPlayers collection.
    If Server.Players.Count > 0 Then
        Player = Server.Players.Item(0)
    End If

    ' Retrieve the IWMSPlaylist object for the player.
    ' NOTE: A valid playlist file is not always returned.
    ' This may be the case, for example, if the user requested
    ' a specific content file or if a broadcast
    ' publishing point is being used.
    Playlist = Player.RequestedPlaylist
    If Not Playlist Is Nothing Then

        ' Retrieve the IWMSActiveMedia object.
        ActiveMedia = Playlist.CurrentMediaInformation

        ' Retrieve the IWMSActiveStreams object.
        ActiveStreams = ActiveMedia.Streams
    End If

Catch excCom As COMException
    ' TODO: Handle COM exceptions.
Catch exc As Exception
    ' TODO: Handle errors.
Finally
    ' TODO: Clean-up code goes here.
End Try

End Sub

See Also

Reference

IWMSActiveMedia Object (Visual Basic .NET)

IWMSActiveStream Object (Visual Basic .NET)

Concepts

Server Object Model (Visual Basic .NET)