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()
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5