Como: Criar an Instance of a Type Client-Activated

Artigo
09/10/2008

Este artigo mostra duas maneiras de instanciar um objeto cliente-ativado. The first método uses [M:System.Activator.CreateInstance(System.Type, System.Object[], System.Object[])], the second uses the Novo operador.

Criar uma instância usando Activator.CreateInstance

Criar e registrar um TcpChannel

Dim channel As TcpChannel = New TcpChannel()
 ChannelServices.RegisterChannel(channel, False)
TcpChannel channel = new TcpChannel();
ChannelServices.RegisterChannel(channel, false);

Registrar o objeto cliente-ativado

RemotingConfiguration.RegisterActivatedClientType( _
    GetType(MyRemoteObject), _
    "tcp://localhost:1234/MyServer")
RemotingConfiguration.RegisterActivatedClientType(
    typeof(MyRemoteObject),
    "tcp://localhost:1234/MyServer");

Chamada [M:System.Activator.CreateInstance(System.Type, System.Object[], System.Object[])]

Dim url() As Object = {New UrlAttribute("tcp://localhost:1234/Server")}
Dim obj As MyRemoteObject = CType(Activator.CreateInstance( _
    GetType(MyRemoteObject), _
    Nothing, _
    url), MyRemoteObject)

object[] url = { new UrlAttribute("tcp://localhost:1234/Server") };
MyRemoteObject obj = (MyRemoteObject)Activator.CreateInstance(
    typeof(MyRemoteObject),
    null,
    url);

Criar uma instância usando o novo operador

Criar e registrar um canal

Dim channel As TcpChannel = New TcpChannel()
 ChannelServices.RegisterChannel(channel, False)
TcpChannel channel = new TcpChannel();
ChannelServices.RegisterChannel(channel, false);

Registrar o objeto cliente-ativado

RemotingConfiguration.RegisterActivatedClientType( _
    GetType(MyRemoteObject), _
    "tcp://localhost:1234/MyServer")
RemotingConfiguration.RegisterActivatedClientType(
    typeof(MyRemoteObject),
    "tcp://localhost:1234/MyServer");

Chamar o novo operador

Dim obj As MyRemoteObject = New MyRemoteObject(123)
MyRemoteObject obj = new MyRemoteObject(123);

Exemplo

O seguinte Código ilustra os dois métodos de criar uma instância Client-Activated:

Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Imports System.Runtime.Remoting.Activation
Imports Server

Module Client

    Sub Main()
        ' Create and register a channel
        Dim channel As TcpChannel = New TcpChannel()
        ChannelServices.RegisterChannel(channel, False)

  ' Register the client activated object
        RemotingConfiguration.RegisterActivatedClientType( _
            GetType(MyRemoteObject), _
            "tcp://localhost:1234/MyServer")

  ' Call Activator.CreateInstance

    Dim obj As MyRemoteObject = CType(Activator.CreateInstance( _
       GetType(MyRemoteObject), _
       Nothing, _

           url), MyRemoteObject)
   
        ' OR call operator new
        Dim obj As MyRemoteObject = New MyRemoteObject(123)

        Console.WriteLine("Client.Main(): GetValue returned: {0}", obj.GetValue())
        Console.WriteLine("Client.Main(): Calling SetValue(10)")
        obj.SetValue(10)
        Console.WriteLine("Client.Main(): GetValue returned: {0}", obj.GetValue())
    End Sub

End Module

using System;
using System.Runtime.Remoting;
using System.Runtime.Remoting.Activation;
using System.Runtime.Remoting.Channels;
using System.Runtime.Remoting.Channels.Tcp;
using Server;

namespace Client
{
    class Client
    {
        static void Main(string[] args)
        {
// Create and register channel
            TcpChannel channel = new TcpChannel();
            ChannelServices.RegisterChannel(channel, false);

// Register client activated object
            RemotingConfiguration.RegisterActivatedClientType(
                typeof(MyRemoteObject),
                "tcp://localhost:1234/MyServer");

// Call Activator.CreateInstance

object[] url = { new  UrlAttribute("tcp://localhost:1234/Server") };
         MyRemoteObject obj = (MyRemoteObject)Activator.CreateInstance(
            typeof(MyRemoteObject),
            null,

               url);
      // OR call operator new
            MyRemoteObject obj = new MyRemoteObject(123);

            Console.WriteLine("Client.Main(): GetValue returned: " + obj.GetValue());
            Console.WriteLine("Client.Main(): Calling SetValue(10)");
            obj.SetValue(10);
            Console.WriteLine("Client.Main(): GetValue returned: " + obj.GetValue());
        }
    }
}