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