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}) ---" & Constants.vbLf + Constants.vbLf, Streams.Count.ToString())
' print the all live streams properties to a string
Dim nIndex As Integer = 0
Do While nIndex < Streams.Count
Dim stream As LiveStream = Streams.GetLiveStream(nIndex)
strLiveStreams &= String.Format("Live Stream[{0}]: Path = ""{1}""." & Constants.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}""." & Constants.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}""." & Constants.vbLf, strDevice)
strLiveStreams &= String.Format("Video Width = ""{0}""." & Constants.vbLf, stream.VideoWidth.ToString())
strLiveStreams &= String.Format("Video Height = ""{0}""." & Constants.vbLf, stream.VideoHeight.ToString())
If stream.UseVideoInputSize Then
strLiveStreams &= String.Format("Use Video Input Size = ""true""." & Constants.vbLf)
Else
strLiveStreams &= String.Format("Use Video Input Size = ""false""." & Constants.vbLf)
End If
strLiveStreams &= String.Format("Video Frame Rate = ""{0}""." & Constants.vbLf, stream.VideoFrameRate.ToString())
If stream.UseVideoInputFrameRate Then
strLiveStreams &= String.Format("Use Video Input Frame Rate = ""true""." & Constants.vbLf)
Else
strLiveStreams &= String.Format("Use Video Input Frame Rate = ""false""." & Constants.vbLf)
End If
strLiveStreams &= String.Format("Video Bit Rate = ""{0}""." & Constants.vbLf, stream.VideoBitRate.ToString())
If stream.QSVAcceleration Then
strLiveStreams &= String.Format("QSVAcceleration = ""true""." & Constants.vbLf)
Else
strLiveStreams &= String.Format("QSVAcceleration = ""false""." & Constants.vbLf)
End If
If stream.CUDAAcceleration Then
strLiveStreams &= String.Format("CUDAAcceleration = ""true""." & Constants.vbLf)
Else
strLiveStreams &= String.Format("CUDAAcceleration = ""false""." & Constants.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""." & Constants.vbLf)
Else
strLiveStreams &= String.Format("Use Device Encoding = ""false""." & Constants.vbLf)
End If
strLiveStreams &= String.Format("Minimum Fragment Duration = ""{0}""." & Constants.vbLf, stream.MinimumFragmentDuration.ToString())
nIndex += 1
Loop
' display a message contains the Live Streams information string
MessageBox.Show(strLiveStreams, "LEADTOOLS Media Streaming Examples", MessageBoxButtons.OK, MessageBoxIcon.Information)
_result = True
Catch e1 As Exception
_result = False
End Try
End Sub
using Leadtools;
using Leadtools.MediaStreaming;
public Server _server = null;
public bool _result = false;
public void PrintLiveStreamsExample()
{
try
{
string strLiveStreams = "";
// create an instance of the server object
_server = new Leadtools.MediaStreaming.Server();
// retrieve a copy of the Live Streams
LiveStreams Streams = _server.GetLiveStreams();
strLiveStreams += string.Format("--- Live Streams (count = {0}) ---\n\n", Streams.Count.ToString());
// print the all live streams properties to a string
for (int nIndex = 0; nIndex < Streams.Count; nIndex++)
{
LiveStream stream = Streams.GetLiveStream(nIndex);
strLiveStreams += string.Format("Live Stream[{0}]: Path = \"{1}\".\n", nIndex.ToString(), stream.Path);
int nSelection = stream.VideoDevices.Selection;
string strDevice = "";
if (nSelection < 0)
strDevice = "<none selected>";
else
strDevice = stream.VideoDevices[nSelection].FriendlyName;
strLiveStreams += string.Format("Video Device = \"{0}\".\n", strDevice);
nSelection = stream.AudioDevices.Selection;
strDevice = "";
if (nSelection < 0)
strDevice = "<none selected>";
else
strDevice = stream.AudioDevices[nSelection].FriendlyName;
strLiveStreams += string.Format("Audio Device = \"{0}\".\n", strDevice);
strLiveStreams += string.Format("Video Width = \"{0}\".\n", stream.VideoWidth.ToString());
strLiveStreams += string.Format("Video Height = \"{0}\".\n", stream.VideoHeight.ToString());
if (stream.UseVideoInputSize)
strLiveStreams += string.Format("Use Video Input Size = \"true\".\n");
else
strLiveStreams += string.Format("Use Video Input Size = \"false\".\n");
strLiveStreams += string.Format("Video Frame Rate = \"{0}\".\n", stream.VideoFrameRate.ToString());
if (stream.UseVideoInputFrameRate)
strLiveStreams += string.Format("Use Video Input Frame Rate = \"true\".\n");
else
strLiveStreams += string.Format("Use Video Input Frame Rate = \"false\".\n");
strLiveStreams += string.Format("Video Bit Rate = \"{0}\".\n", stream.VideoBitRate.ToString());
if (stream.QSVAcceleration)
strLiveStreams += string.Format("QSVAcceleration = \"true\".\n");
else
strLiveStreams += string.Format("QSVAcceleration = \"false\".\n");
if (stream.CUDAAcceleration)
strLiveStreams += string.Format("CUDAAcceleration = \"true\".\n");
else
strLiveStreams += string.Format("CUDAAcceleration = \"false\".\n");
nSelection = stream.AudioTypes.Selection;
string strType = "";
if (nSelection < 0)
strType = "<none selected>";
else
strType = stream.AudioTypes[nSelection].FriendlyName;
if (stream.UseDeviceEncoding)
strLiveStreams += string.Format("Use Device Encoding = \"true\".\n");
else
strLiveStreams += string.Format("Use Device Encoding = \"false\".\n");
strLiveStreams += string.Format("Minimum Fragment Duration = \"{0}\".\n", stream.MinimumFragmentDuration.ToString());
}
// display a message contains the Live Streams information string
MessageBox.Show(strLiveStreams, "LEADTOOLS Media Streaming Examples", MessageBoxButtons.OK, MessageBoxIcon.Information);
_result = true;
}
catch (Exception)
{
_result = false;
}
}