State Property

Imports Leadtools 
Imports Leadtools.MediaStreaming 
 
 
Public _server As Server = Nothing 
Public _result As Boolean = False 
 
Public Sub PrintLiveStreamControlsExample() 
   Try 
      Dim strLiveStreams As String = "" 
 
      ' create an instance of the server object 
      _server = New Leadtools.MediaStreaming.Server() 
 
      ' retrieve a copy of the Live Stream Controls 
      Dim Streams As LiveStreamControls = _server.GetLiveStreamControls() 
 
      strLiveStreams += String.Format("--- Live Stream Controls (count = {0}) ---" & vbLf & vbLf, Streams.Count.ToString()) 
 
      ' print the all live streams properties to a string 
 
      For nIndex As Integer = 0 To Streams.Count - 1 
         Dim stream As LiveStreamControl = Streams(nIndex) 
 
         strLiveStreams += String.Format("Live Stream Control[{0}]: Path = ""{1}""." & vbLf, nIndex.ToString(), stream.Path) 
 
         Dim s As String = "" 
 
         strLiveStreams += String.Format("Handle = ""0x{0:X8}""." & vbLf, stream.Handle) 
 
 
         Select Case stream.State 
            Case LiveStreamState.Stopped 
               s = "Stopped" 
               Exit Select 
            Case LiveStreamState.Activating 
               s = "Activating" 
               Exit Select 
            Case LiveStreamState.Active 
               s = "Active" 
               Exit Select 
            Case LiveStreamState.Inactive 
               s = "Inactive" 
               Exit Select 
            Case LiveStreamState.[Error] 
               s = "Error" 
               Exit Select 
         End Select 
         strLiveStreams += String.Format("State = ""{0}""." & vbLf, s) 
 
         If stream.Enable Then 
            strLiveStreams += String.Format("Enable = ""true""." & vbLf) 
         Else 
            strLiveStreams += String.Format("Enable = ""false""." & vbLf) 
         End If 
 
         If stream.ActivateOnDemand Then 
            strLiveStreams += String.Format("ActivateOnDemand = ""true""." & vbLf) 
         Else 
            strLiveStreams += String.Format("ActivateOnDemand = ""false""." & vbLf) 
         End If 
 
         strLiveStreams += String.Format("IdleTime = ""{0}""." & vbLf, stream.IdleTime.ToString()) 
 
         strLiveStreams += String.Format("IdleTimeOut = ""{0}""." & vbLf, stream.IdleTimeOut.ToString()) 
 
         Select Case stream.VideoEncoding 
            Case LiveStreamVideoEncoding.None 
               s = "None" 
               Exit Select 
            Case LiveStreamVideoEncoding.H264_Source 
               s = "Source" 
               Exit Select 
            Case LiveStreamVideoEncoding.H264_Software 
               s = "Software" 
               Exit Select 
            Case LiveStreamVideoEncoding.H264_QSV 
               s = "QSV" 
               Exit Select 
            Case LiveStreamVideoEncoding.H264_CUDA 
               s = "CUDA" 
               Exit Select 
         End Select 
 
         strLiveStreams += String.Format("VideoEncoding = ""{0}""." & vbLf, s) 
 
 
         Select Case stream.AudioEncoding 
            Case LiveStreamAudioEncoding.None 
               s = "None" 
               Exit Select 
            Case LiveStreamAudioEncoding.AAC_Source 
               s = "Source" 
               Exit Select 
            Case LiveStreamAudioEncoding.AAC_Software 
               s = "Software" 
               Exit Select 
         End Select 
 
 
         strLiveStreams += String.Format("AudioEncoding = ""{0}""." & vbLf, s) 
      Next 
 
      ' display a message contains the Live Streams information string 
      MessageBox.Show(strLiveStreams, "LEADTOOLS Media Streaming Examples", MessageBoxButtons.OK, MessageBoxIcon.Information) 
 
      _result = True 
   Catch generatedExceptionName As Exception 
      _result = False 
   End Try 
End Sub