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()
     ' start the server
     _server.Start()
     ' make sure that there is some clients connected to the server.
     ' retrieve a copy of the Application Properties
     Dim clients As Clients = _server.GetClients()
     ' allocate a new array for the copied clients
     Dim copiedClients As Client() = New Client(clients.Count - 1) {}
     ' copy them
     clients.CopyTo(copiedClients, 0)
     ' set the result to what we expect
     _result = (copiedClients.Length = clients.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();
      // start the server
      _server.Start();
      // make sure that there is some clients connected to the server.
      // retrieve a copy of the Application Properties
      Clients clients = _server.GetClients();
      // allocate a new array for the copied clients
      Client[] copiedClients = new Client[clients.Count];
      // copy them
      clients.CopyTo(copiedClients, 0);
      // set the result to what we expect
      _result = (copiedClients.Length == clients.Count);
   }
   catch (Exception)
   {
      _result = false;
   }
}