Imports Leadtools
Imports Leadtools.MediaStreaming
Public _server As Server = Nothing
Public _result As Boolean = False
Public Sub CopyToExample()
Try
' 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()
' create live stream just to demonstrate using audio types CopyTo
Dim stream As LiveStream = Streams.CreateLiveStream()
'Get the Audio Devices
Dim Devices As Devices = stream.AudioDevices
' allocate a new array for the copied Devices
Dim copiedDevices As Device() = New Device(Devices.Count - 1) {}
' copy them
Devices.CopyTo(copiedDevices, 0)
' set the result to what we expect
_result = (copiedDevices.Length = Devices.Count)
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 CopyToExample()
{
try
{
// create an instance of the server object
_server = new Leadtools.MediaStreaming.Server();
// retrieve a copy of the Live Streams
LiveStreams Streams = _server.GetLiveStreams();
// create live stream just to demonstrate using audio types CopyTo
LiveStream stream = Streams.CreateLiveStream();
//Get the Audio Devices
Devices Devices = stream.AudioDevices;
// allocate a new array for the copied Devices
Device[] copiedDevices = new Device[Devices.Count];
// copy them
Devices.CopyTo(copiedDevices, 0);
// set the result to what we expect
_result = (copiedDevices.Length == Devices.Count);
}
catch (Exception)
{
_result = false;
}
}