4.1. Creación de Servidores COM.

4.1. Creación de Servidores COM 

Para crear el código para habilitar una aplicación para una instancia de un servidor remoto mediante DCOM. La diferencia es la forma en cómo se empaqueta e implementa con el cliente.
Hay algunas configuraciones de seguridad que se debe hacer después de instalar el cliente y el servidor, se pueden realizar estos ajustes mediante una utilidad llamada DCOMCNFG. En particular, cuando el servidor provoca eventos, no solo importantes para configuración del servidor sino también importantes para el cliente.


Creación del servidor.   

1. Iniciar un nuevo proyecto en Visual Basic. En el cuadro de dialogo Nuevo Proyecto seleccione EXE de ActiveX y a continuación en Abrir. Class1 se crea predeterminadamente. 

2. Escribimos el código siguiente al modulo de la clase:

Option Explicit
   Public Event TimeUpdate(sTime As String)
  
  Public Sub CallMEBack( )
     RaiseEvent TimeUpdate(Time( ))

End Sub

Public Function ServerTime( ) As String

     //este método incluye el caso que necesitas
    //la llamda del método callback

     ServerTime = Time

End Function

3. En el menú Proyecto en la opción Propiedades del Proyecto, seleccione la ficha General. 

4. En el campo Nombre de proyecto escriba DCOMDemoEvents_Svr.

5. En el capo Descripción del proyecto escriba DCOMDemoEvents_Svr – Server.

6. Seleccione la ficha componente y a continuación, seleccione la opción Archivos de servidor remoto (esto hace que el compilador de VB genere los archivos VBR y TLB que se necesitan para empaquetar las aplicaciones cliente que utilizan este servidor. Los archivos contienen entradas del registro que deben incluirse en el equipo cliente.

7. Cierre el cuadro de dialogo Propiedades del proyecto. 





8. En el menú Archivo, seleccione Guardar como y guarde el proyecto en la carpeta c:\DCOMDemoEvents/Server.  

9. Enel menú Archivo, seleccione Hacer DCOMDemoEvents_Svr y compile el servidor. 


10. En el menú Proyecto, seleccione la opción Propiedades del Proyecto y seleccione la ficha componentes. En la ficha componente, seleccione Compatibilidad de versión, seleccione la opción Compatibilidad binaria y a continuación realice el binario de proyecto compatible con el archivo ejecutable del serbio que acaba de crear (DCOMDemoEvents_Svr.exe.). Por lo que esta opción, están garantizados todos los GUID se mantienen igual si vuelve a compilar el servidor.