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 index of
     Dim stream As LiveStream = Streams.CreateLiveStream()
     'Get the Audio Types 
     Dim AudioTypes As AudioTypes = stream.AudioTypes
     ' allocate a new array for the copied AudioTypes
     Dim copiedAudioTypes As AudioType() = New AudioType(AudioTypes.Count - 1) {}
     ' copy them
     AudioTypes.CopyTo(copiedAudioTypes, 0)
     ' set the result to what we expect
     _result = (copiedAudioTypes.Length = AudioTypes.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 Types 
      AudioTypes AudioTypes = stream.AudioTypes;
      // allocate a new array for the copied AudioTypes
      AudioType[] copiedAudioTypes = new AudioType[AudioTypes.Count];
      // copy them
      AudioTypes.CopyTo(copiedAudioTypes, 0);
      // set the result to what we expect
      _result = (copiedAudioTypes.Length == AudioTypes.Count);
   }
   catch (Exception)
   {
      _result = false;
   }
}