Torna al Thread
Private mediaServer As New WMSServer
Private pubPoint As IWMSBroadcastPublishingPoint
Private playList As IWMSPlaylist
Dim activeFile As IWMSActiveMedia
Dim activeStream As IWMSActiveStreams
Dim activeStrm As IWMSActiveStream
Dim wStream As New StreamWriter(Server.MapPath("logGetInfo.txt"))
Dim strLog As String = ""
Try
Me.pubPoint = mediaServer.PublishingPoints(broadcastPointName)
Me.playList = Me.pubPoint.SharedPlaylist
activeFile = Me.playList.CurrentMediaInformation
strLog = "Duration: " & activeFile.Duration & vbCrLf & _
"Live: " & activeFile.Live & vbCrLf & _
"Total Packets: " & activeFile.TotalPackets & vbCrLf
activeStream = activeFile.Streams
For i As Integer = 0 To activeStream.Count - 1
activeStrm = activeStream(i)
strLog += "Stream[" & (i + 1) & "]: " & activeStrm.Name & vbCrLf
Next
wStream.WriteLine(strLog)
Catch ex As Exception
wStream.WriteLine(strLog & vbCrLf & ex.Message & vbCrLf & ex.Source & vbCrLf & ex.StackTrace)
End Try
wStream.Close()