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;
   }
}