VideoDevices Property

Imports Leadtools 
Imports Leadtools.MediaStreaming 
 
 
Public _server As Server = Nothing 
Public _result As Boolean = False 
 
Public Sub PrintLiveStreamsExample() 
   Try 
      Dim strLiveStreams As String = "" 
 
      ' create an instance of the server object 
      _server = New Leadtools.MediaStreaming.Server() 
 
      ' retrieve a copy of the Live Streams 
      Dim Streams As LiveStreams = _server.GetLiveStreams() 
 
      strLiveStreams += String.Format("--- Live Streams (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 LiveStream = Streams.GetLiveStream(nIndex) 
 
         strLiveStreams += String.Format("Live Stream[{0}]: Path = ""{1}""." & vbLf, nIndex.ToString(), stream.Path) 
 
         Dim nSelection As Integer = stream.VideoDevices.Selection 
         Dim strDevice As String = "" 
         If nSelection < 0 Then 
            strDevice = "<none selected>" 
         Else 
            strDevice = stream.VideoDevices(nSelection).FriendlyName 
         End If 
 
         strLiveStreams += String.Format("Video Device = ""{0}""." & vbLf, strDevice) 
 
         nSelection = stream.AudioDevices.Selection 
         strDevice = "" 
         If nSelection < 0 Then 
            strDevice = "<none selected>" 
         Else 
            strDevice = stream.AudioDevices(nSelection).FriendlyName 
         End If 
 
         strLiveStreams += String.Format("Audio Device = ""{0}""." & vbLf, strDevice) 
 
         strLiveStreams += String.Format("Video Width = ""{0}""." & vbLf, stream.VideoWidth.ToString()) 
 
         strLiveStreams += String.Format("Video Height = ""{0}""." & vbLf, stream.VideoHeight.ToString()) 
 
         If stream.UseVideoInputSize Then 
            strLiveStreams += String.Format("Use Video Input Size = ""true""." & vbLf) 
         Else 
            strLiveStreams += String.Format("Use Video Input Size = ""false""." & vbLf) 
         End If 
 
         strLiveStreams += String.Format("Video Frame Rate = ""{0}""." & vbLf, stream.VideoFrameRate.ToString()) 
 
         If stream.UseVideoInputFrameRate Then 
            strLiveStreams += String.Format("Use Video Input Frame Rate = ""true""." & vbLf) 
         Else 
            strLiveStreams += String.Format("Use Video Input Frame Rate = ""false""." & vbLf) 
         End If 
 
         strLiveStreams += String.Format("Video Bit Rate = ""{0}""." & vbLf, stream.VideoBitRate.ToString()) 
 
         If stream.QSVAcceleration Then 
            strLiveStreams += String.Format("QSVAcceleration = ""true""." & vbLf) 
         Else 
            strLiveStreams += String.Format("QSVAcceleration = ""false""." & vbLf) 
         End If 
 
         If stream.CUDAAcceleration Then 
            strLiveStreams += String.Format("CUDAAcceleration = ""true""." & vbLf) 
         Else 
            strLiveStreams += String.Format("CUDAAcceleration = ""false""." & vbLf) 
         End If 
 
         nSelection = stream.AudioTypes.Selection 
         Dim strType As String = "" 
         If nSelection < 0 Then 
            strType = "<none selected>" 
         Else 
            strType = stream.AudioTypes(nSelection).FriendlyName 
         End If 
 
         If stream.UseDeviceEncoding Then 
            strLiveStreams += String.Format("Use Device Encoding = ""true""." & vbLf) 
         Else 
            strLiveStreams += String.Format("Use Device Encoding = ""false""." & vbLf) 
         End If 
 
         strLiveStreams += String.Format("Minimum Fragment Duration = ""{0}""." & vbLf, stream.MinimumFragmentDuration.ToString()) 
 
         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("IdleTimeOut = ""{0}""." & vbLf, stream.IdleTimeOut.ToString()) 
 
         If stream.CUDADecoding Then 
            strLiveStreams += String.Format("CUDADecoding = ""true""." & vbLf) 
         Else 
            strLiveStreams += String.Format("CUDADecoding = ""false""." & vbLf) 
         End If 
 
         If stream.QSVDecoding Then 
            strLiveStreams += String.Format("QSVDecoding = ""true""." & vbLf) 
         Else 
            strLiveStreams += String.Format("QSVDecoding = ""false""." & vbLf) 
         End If 
 
         If stream.HasVideoDeviceURL Then 
            strLiveStreams += String.Format("VideoDeviceURL = ""{0}""." & vbLf, stream.VideoDeviceURL) 
 
         End If 
      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