Publicado el Lunes 15 de mayo de 2006 a las 21:12:50 por El_Oraculo
Lecturas
Creando un servidor remoto mediante Visual Basic .NET En este artículo se muestra cómo crear un servidor remoto sencillo al que puede tener acceso otra aplicación. La aplicación que tiene acceso a este servidor puede estar en el mismo equipo, en otro equipo o en otra red. El servidor remoto se divide en dos partes: el objeto de servidor y la aplicación de servidor. El objeto de servidor es el objeto con el que se comunica el cliente y la aplicación de servidor se utiliza para registrar el objeto de servidor con el motor de tiempo de ejecución Remoting. Requisitos En la lista siguiente se describe el hardware, el software, la infraestructura de red y los Service Pack recomendados que se necesitarán: Visual Studio .NET En el presente artículo se da por supuesto que está familiarizado con los temas siguientes: Visual Studio .NET Visual Basic .NET Redes Crear un objeto de servidor remoto El primer paso para crear la aplicación de servidor consiste en crear el objeto de servidor. El objeto de servidor es la instancia que crea la aplicación cliente y con el que se comunica en el equipo servidor. La aplicación cliente lleva esto a cabo a través de un objeto proxy que se crea en el cliente. En este ejemplo, el objeto de servidor reside en una Biblioteca de clases (DLL) y se llama myRemoteClass. 1. Cree una nueva aplicación de biblioteca de clases en Visual Basic .NET. Se creará Class1 de forma predeterminada. 2. En el Explorador de soluciones, cambie el nombre del archivo de código Class1.vb a ServerClass.vb. 3. Abra ServerClass.vb y cambie el nombre Class1 a myRemoteClass. myRemoteClass debe heredarse de la clase MarshalByRefObject. Esta clase debe aparecer del siguiente modo: Public Class myRemoteClass Inherits MarshalByRefObject End Class 4. Agregue un método público a myRemoteClass, que toma una cadena, muestra un mensaje en la consola con un valor de la cadena y devuelve True si la cadena no está vacía. Public Class myRemoteClass Inherits MarshalByRefObject Public Function SetString(sTemp As String) As Boolean Try Console.WriteLine("Esta cadena '{0}' tiene una longitud de {1}", sTemp, Len(sTemp)) Return (sTemp "") Catch Return (False) End Try End Function End Class 5. Genere el proyecto para crear el ensamblado ServerClass.dll. 6. Guarde y cierre el proyecto. Crear una aplicación de servidor remoto Después de crear el objeto de servidor con el que se comunicará el cliente, debe registrar este objeto con el marco de trabajo Remoting. Al registrar el objeto, también debe iniciar el servidor y hacer que el servidor escuche en un puerto a los clientes que intentan conectarse a ese puerto. Para ello, necesita un tipo de proyecto que cree un archivo ejecutable. El objeto de servidor se incluye en un proyecto independiente, de manera que pueda crear fácilmente una referencia al objeto de servidor desde el proyecto del cliente. Si incluye el objeto de servidor en este proyecto, no puede hacer referencia a él, ya que las referencias sólo se pueden establecer en archivos DLL. Para simplificar, cree una nueva aplicación de consola en Visual Basic .NET para iniciar el servidor remoto. Se creará Module1 de forma predeterminada. En el Explorador de soluciones, cambie el nombre del archivo Module1.vb a ServerObject.vb. Agregue una referencia al espacio de nombres System.Runtime.Remoting. Agregue una referencia al ensamblado ServerClass.dll que creó en la sección anterior. Utilice la instrucción Imports de los espacios de nombres Remoting, Remoting.Channels y Remoting.Channels.Tcp de forma que no tenga que suministrar declaraciones de dichos espacios de nombres más adelante en el código. Debe utilizar la instrucción Imports antes que cualquier otra declaración. Imports System.Runtime.Remoting Imports System.Runtime.Remoting.Channels Imports System.Runtime.Remoting.Channels.Tcp Declare la variable apropiada. Para ello, declare e inicialice un objeto TcpChannel que escuche si los clientes se conectan a un puerto determinado, que en este ejemplo es el puerto 8085. Utilice el método RegisterChannel para registrar el canal con los servicios de canal. Agregue el siguiente código de declaración al procedimiento Main del módulo predeterminado: Dim chan As TcpChannel = New TcpChannel(8085) ChannelServices.RegisterChannel(chan) Llame al método RegisterWellKnownType del objeto RemotingConfiguration para registrar el objeto ServerClass con el marco de trabajo Remoting y especifique los parámetros siguientes en el código: a. El nombre de tipo completo del objeto que se va a registrar (que es ServerClass.myRemoteClass en este ejemplo), seguido del nombre de ensamblado ServerClass. Especifique tanto el nombre del espacio de nombres como el nombre de la clase. Como no especificó un espacio de nombres en la sección anterior, se utilizará el espacio de nombres raíz predeterminado. b. Asigne al extremo donde se va a publicar el objeto el nombre RemoteTest . Los clientes necesitan conocer este nombre para conectarse al objeto. c. Utilice el modo de objeto SingleCall para especificar el parámetro final. El modo de objeto especifica la duración del objeto cuando se activa en el servidor. En el caso de los objetos SingleCall, se crea una nueva instancia de la clase para cada llamada realizada por un cliente, aunque el mismo cliente llame al mismo método más de una vez. Por el contrario, los objetos Singleton se crean sólo una vez y todos los clientes se comunican con el mismo objeto. RemotingConfiguration.RegisterWellKnownServiceType( _ Type.GetType("ServerClass.myRemoteClass, ServerClass"), _ "RemoteTest", _ WellKnownObjectMode.SingleCall) Utilice el método ReadLine del objeto Console para que la aplicación de servidor siga en ejecución. Console.WriteLine("Presione para salir...") Console.ReadLine() Genere el proyecto. Guarde y cierre el proyecto.
Muy bueno... facil, claro y concreto... para VB2005 (framework2.0): en vez de ChannelServices.RegisterChannel(chan) pon: System.Runtime.Remoting.Channels.ChannelServices.RegisterChannel(chan, True).
5.- Anton
