Instalar Microsoft SQL Server 2008 Express x64 en Windows Server 2008 x64

Instalar Microsoft SQL Server 2008 Express x64 en Windows Server 2008 x64

Explicamos en este tutorial cómo instalar Microsoft SQL Server 2008 Express con Advanced Services en un equipo con el sistema operativo Microsoft Windows Server 2008 x64. Mostramos cómo configurar un origen de datos ODBC para acceder a tablas de SQL Server desde Microsoft Access 2010. Indicamos cómo configurar SQL Server y el equipo para permitir conexiones remotas y cómo administrar SQL Server mediante Management Studio (crear una base de datos y una tabla).

• Microsoft SQL Server 2008 Express con Servicios Avanzados.
  • Limitaciones de la versión gratuita de Microsoft SQL Server Express 2008.
  • Requisitos mínimos del sistema para SQL Server Express 2008.
  • Descarga del fichero instalador de Microsoft SQL Server 2008 Express.
• Instalar Microsoft SQL Server 2008 Express with Advanced Services x64 en Microsoft Windows Server 2008 R2 x64.
• SQL Server Management Studio, crear base de datos y tabla en SQL Server Express 2008.
• Acceso a tabla de SQL Server Express desde Microsoft Access usando ODBC.
• Configurar SQL Server Express 2008 para conexiones remotas externas.
• Artículos relacionados.
• Créditos.

Microsoft SQL Server 2008 Express con Servicios Avanzados

Microsoft SQL Server 2008 Express with Advanced Services es una versión gratuita y fácil de usar de la plataforma de datos SQL Server Express que incluye una herramienta de administración gráfica avanzada, así como eficaces características para la elaboración de informes y la realización de búsquedas avanzadas basadas en texto. Ofrece herramientas de administración de datos eficaces y confiables, así como características completas, protección de datos y un rápido funcionamiento. Es ideal para pequeñas aplicaciones de servidor y almacenes de datos locales.

Microsoft SQL Server 2008 Express with Advanced Services, que se descarga, implementa y redistribuye gratuitamente como parte incrustada de una aplicación, constituye una forma rápida y sencilla de desarrollar y administrar aplicaciones controladas por datos con una funcionalidad integrada para la elaboración de informes y la realización de búsquedas de texto completo que resulta muy eficaz.

Microsoft SQL Server 2008 Express with Advanced Services incluye:

• SQL Server Express 2008.
• SQL Server Management Studio.
• SQL Server Business Intelligence Development Studio.
• Reporting Services .

Limitaciones de la versión gratuita de Microsoft SQL Server Express 2008

Microsoft SQL Server Express Edition 2008 es una versión de SQL Server gratuita. Lanzada por Microsoft como alternativa a versiones gratuitas de otros motores de base de datos (como Oracle XE). Esta versión presenta las siguientes limitaciones con respecto a otras versiones de pago de este motor (Enterprise, Standard, Workgroup, Web):

• 1 CPU: independientemente del número de CPUs que tenga el equipo, sólo utilizará una.
• 1 GB de RAM: independientemente de la RAM que tenga el equipo, SQL Server Express sólo usará una como máximo por cada instancia.
• 4 GB: el tamaño máximo de la base de datos será de 4GB.
• 16 instancias como máximo.
• No tiene soporte para Dynamic Address Windows Extensions Memory Management.
• No tiene soporte para Data Compression.
• No tiene soporte para Resource Governor.
• No soporta auditoría de grano fino (Fine Grained).
• No soporta Transparent Database Encryption.

 

Requisitos mínimos del sistema para SQL Server Express 2008

A continuación indicamos los requisitos mínimos y recomendados del sistema operativo y del hardware del equipo para el correcto funcionamiento de Microsoft SQL Server Express 2008:

• Sistemas operativos compatibles: Windows Server 2003 Service Pack 2, Windows Server 2008, Windows Vista, Windows Vista Service Pack 1, Windows XP Service Pack 2, Windows XP Service Pack 3, Windows 7, Microsoft Windows Server 2008.
• Sistemas de 32 bits: equipo con procesador Intel o compatible a 1 GHz o superior (se recomienda 2 GHz o superior, se admite un único procesador).
• Sistemas de 64 bits: procesador a 1,4 GHz o superior (se recomienda 2 GHz o superior, se admite un único procesador).
• 512 MB de RAM como mínimo (se recomienda 1 GB o más).
• 1 GB de espacio disponible en disco.

 

Descarga del fichero instalador de Microsoft SQL Server 2008 Express

Descargaremos el fichero de instalación de Microsoft SQL Server Express x64 con servicios avanzados (SQL Server Management Studio, SQL Server Business Intelligence Development Studio, Reporting Services), para ello abriremos una navegador web y accederemos a la URL:

http://www.microsoft.com/downloads/es-es/details.aspx?FamilyID=b5d1b8c3-fda5-4508-b0d0-1311d670e336

Es importante mencionar que la URL de arriba puede variar, de ser así buscaremos en el sitio web de Microsoft "Microsoft SQL Server 2008 Express with Advanced Services".

En nuestro caso descargaremos e instalaremos la versión de 64 bits para Microsoft Windows Server 2008 x64, por lo que seleccionaremos el fichero SQLEXPRADV_X64_ESN.exe (de 591MB):

Instalar Microsoft SQL Server 2008 Express with Advanced Services x64 en Microsoft Windows Server 2008 R2 x64

Ejecutaremos el fichero descargado SQLEXPRADV_X64_ESN.exe como administrador (pulsando con el botón derecho del ratón sobre el fichero y seleccionando "Ejecutar como administrador" en el menú emergente):

El sistema operativo Microsoft Windows Server 2008 nos avisará de que la versión de SQL Server Express 2008 tiene algún problema de compatibilidad, no haremos caso a este mensaje y pulsaremos "Ejecutar programa":

Para iniciar la instalación de SQL Server Express pulsaremos en la parte izquierda del Centro de instalación de SQL Server en "Instalación" y en la parte derecha pulsaremos en "Nueva instalación independiente de SQL Server o agregar características a una instalación existente":

Puede que nos vuelva a mostrar el mensaje de problemas de compatibilidad, pulsaremos "Ejecutar programa":

El asistente de instalación de SQL Server comprobará las reglas auxiliares del programa de instalación para identificar posibles problemas que puedan surgir al instalar los archivos auxiliares del programa de instalación de SQL Server. Si nos muestra algún error deberemos corregirlo antes de continuar, podremos consultarlo pulsando "Mostrar detalles". Si no tenemos errores pulsaremos "Aceptar" para continuar:

En la edición de SQL Server 2008 no tendremos que introducir nada pues estamos usando SQL Server Express que es gratuita (Express con Advanced Services), pulsaremos "Siguiente":

Leeremos los términos de licencia del software de Microsoft, si estamos de acuerdo continuaremos con el proceso de instalación marcando "Acepto los términos de licencia" y pulsando "Siguiente":

Si el asistente de instalación de SQL Server 2008 detecta que requiere algún archivo auxiliar nos lo mostrará en la siguiente ventana. Pulsaremos "Instalación" para continuar con el proceso:

El programa de instalación de SQL Server 2008 comprobará si nuestro sistema hardware y nuestro sistema operativo cumple los requisitos mínimos. Si detecta algún error o advertencia la mostrará. Por ejemplo, en nuestro servidor con Microsoft Windows Server 2008 nos indica que es controlador de dominio y Microsoft no recomienda instalar SQL Server en un controlador de dominio, aunque podremos continuar con el proceso de instalación sin problemas. También nos indica que tenemos activo el Firewall de Windows, por lo que si queremos que nuestra base de datos SQL Server sea accesible externamente (desde cualquier otro equipo de la red LAN o desde Internet) tendremos que crear la regla de seguridad correspondiente en el cortafuegos. Una vez revisados los posibles problemas pulsaremos "Siguiente":

Volverá a mostrarnos la clave de producto y edición, pulsaremos "Siguiente":

Volverá a mostrarnos los términos de licencia, marcaremos "Acepto los términos de licencia" y pulsaremos "Siguiente":

A continuación podremos elegir las características a instalar:

• Características de instancia:
  • Servicios de Motor de base de datos.
    • Replicación de SQL Server.
    • Búsqueda de texto completo.
  • Reporting Services.
• Características compartidas:
  • Business Intelligence Development Studio.
  • Herramientas de administración - Básica.
  • SDK de conectividad de cliente SQL.
  • Microsoft Sync Framework.
• Característcas redistribuibles.

En nuestro caso seleccionaremos todas las características. En la parte inferior podremos elegir la unidad y carpeta de destino de los ficheros de instalación de SQL Server y de las características compartidas. Pulsaremos "Siguiente":

A continuación indicaremos el nombre para la instancia de SQL Server y el ID de la instancia así como el directorio raíz de la instancia. SQL Server Express 2008 admite hasta 16 instancias diferentes en un mismo servidor. En nuestro caso usaremos como nombre "SQLExpress" y como ID también "SQLExpress". Pulsaremos "Siguiente":

El asistente nos mostrará los requisitos de espacio en disco para las características seleccionadas, si hay espacio libre suficiente en la unida de destino podremos continuar pulsando "Siguiente":

A continuación seleccionaremos el usuario y contraseña del sistema operativo Microsoft Windows Server 2008 con el que se iniciarán los servicios, es recomendable crear un usuario en el sistema operativo para SQL Server (no tiene por qué ser administrador), por ejemplo "sqlserver", una vez creado este usuario pulsaremos en "Usar la misma cuenta para todos los servicios de SQL Server" (salvo que queramos usar usuarios diferentes para cada servicio):

Introduciremos el usuario y la contraseña del sistema operativo y pulsaremos "Aceptar":

De esta forma habremos establecido el usuario anterior para todos los servicios de SQL Server (SQL Server Database Engine, SQL Server Reporting Services):

Desde la pestaña "Intercalación" podremos elegir opciones de idioma de SQL Server, pulsando en "Personalizar" en "Motor de base de datos":

Podremos elegir opciones para criterios de ordenación, distinguir mayúsculas y minúsculas, distinguir acentos, etc.:

Pulsando en "Personalizar" en "Analysis Services" podremos configurar las opciones de idioma para Analysis Services:

Una vez configuradas las opciones de la instancia de SQL Server pulsaremos "Siguiente":

A continuación, en la pestaña "Aprovisionamiento de cuentas" podremos elegir los métodos de autenticación:

• Modo Autenticación de Windows: para el acceso a SQL Server se usarán los usuarios del sistema operativo Microsoft Windows Server 2008.
• Modo mixto (autenticación de SQL Server y de Windows): con este modo podremos usar tanto usuarios del sistema operativo como usuarios de SQL Server.

En nuestro caso marcaremos "Modo mixto", introduciremos una contraseña para el superusuario "sa" de SQL Server y pulsaremos el botón "Agregar usuario actual":

Al pulsar "Agregar usuario actual" el asistente agregará el usuario con el que hemos iniciado sesión en el sistema operativo que es el usuario con el que estamos instalando SQL Server. Podremos agregar más usuarios pulsando "Agregar":

En la pestaña "Directorios de datos" podremos elegir la ubicación de los archivos de datos de las bases de datos que creemos en SQL Server. Es recomendable usar una unidad de disco diferente (físicamente otro disco duro) al del sistema operativo, en nuestro caso usaremos la unidad de disco "O" y guardaremos los datos en las carpetas "sqlserver/Data". También indicaremos el destino de las copias de seguridad:

En la pestaña "FILESTREAM" podremos habilitar o deshabilitar la característica "FILESTREAM para el acceso Transact-SQL". Una vez configuradas estas opciones pulsaremos "Siguiente":

A continuación seleccionaremos el modo de configuración para Reporting Services. Las posibilidades son:

• Instalar la configuración predeterminada del modo nativo: el programa de instalación instalará el servidor de informes y lo configurará en modo nativo para usar los valores predeterminados. El servidor de informes se puede usar tan pronto como finalice el programa de instalación.
• Instalar la configuración predeterminada del modo integrado de SharePoint: el programa de instalación creará la base de datos del servidor de informes en modo integrado de SharePoint y configurará el servidor de informes para utilizar los valores predeterminados. Sin embargo, las operaciones integradas no se admitirán hasta que se implemente una instalación mínima de un producto o tecnología de SharePoint en el equipo del servidor de informes y el complemento Reporting Services para tecnologías de SharePoint eté instaldo y configurado en la instancia del producto o tecnología de SharePoint que esté usando.
• Instalar, pero no configurar el servidor de informes: el programa de instalación instalará pero no configurará el software del servidor de informes. Una vez terminada la instalación, utilice la herramienta de configuración de Reporting Servcices para establecer las opciones necesarias para ejecutar el servidor de informes.

En nuestro caso marcaremso "Instalar la configuración predeterminada del modo nativo" y pulsaremos "Siguiente":

A continuación podremos marcar las opciones de enviar informes de error a Microsoft y enviar datos de uso a Microsoft si así lo estimamos. Pulsaremos "Siguiente":

Volverán a comprobarse las reglas de instación, si no hay errores pulsaremos en "Siguiente":

Antes de la instalación definitiva de SQL Server Express 2008 x64 el asistente nos mostrará un resumen con las opciones elegidas. Si todo es correcto pulsaremos "Instalación" para la instalación defintiva:

Una vez completado el proceso de instalación el asistente nos mostrará las características instaladas y su resultado:

• Servicios de Motor de base de datos.
• Replicación de SQL Server.
• Búsqueda de texto completo.
• Reporting Services.
• Business Intelligence Development Studio.
• Herramientas de administración - Básica.
• SDK de conectividad de cliente SQL.
• Microsoft Sync Framework.

Pulsaremos "Siguiente":

Pulsaremos "Cerrar":

 

SQL Server Management Studio, crear base de datos y tabla en SQL Server Express 2008

Puesto que hemos instalado SQL Server Express con Servicios Avanzados, tendremos instalado SQL Server Management Studio para administrar las bases de datos y el servidor de SQL Server. Para abrirlo pulsaremos en "Inicio" - "Todos los programas" - "Microsoft SQL Serer 2008" - "SQL Server Management Studio":

Para conectarnos al servidor de SQL Server que queramos administrar deberemos indicar:

• Tipo de servidor: seleccionaremos "Motor de base de datos".
• Nombre del servidor: indicaremos el hostname (nombre de red) del servidor o la IP seguido de una barra invertida y el nombre de la instancia (ID). En nuestro caso "PCSW2008\SQLEXPRESS".
• Autenticación: elegiremos el tipo de autenticación, podremos seleccionar Autenticación de SQL Server o bien "Autenticación de Windows". En nuestro caso puesto que hemos instalado SQL Server con autenticación mixta podremos elegir cualquiera de los dos, seleccionaremos "Autenticación de SQL Server".
• Inicio de sesión: introduciremos el nombre del usuario, en nuestro caso el superusuario "sa".
• Contraseña: introduciremos la contraseña para el usuario anterior.

Una vez introducidos los datos de conexión pulsaremos "Conectar":

Desde Microsoft SQL Server Management Studio podremos crear usuarios, crear bases de datos, crear tablas, consultar datos, realizar tareas de administración, etc. Como ejemplo crearemos una base de datos, para ello, en "Base de datos" pulsaremos con el botón derecho del ratón y seleccionaremos "Nueva base de datos":

Introduciremos el nombre para la base de datos y configuraremos las opciones que deseemos. Pulsaremos "Aceptar" para crearla:

Para crear una nueva tabla en la base de datos anterior "bdajpdsoft" pulsaremos con el botón derecho sobre "Tablas" (dentro de la base de datos) y seleccionaremos "Nueva tabla", en la parte derecha introduciremos los campos y tipos de datos que queramos para la nueva tabla. Por ejemplo, un campo "codigo", de tipo de datos "int" y con la propiedad "Especificación de identidad" a "Sí" para indicar que será autoincremento, pulsando con el botón derecho podremos hacerlo clave principal:

Crearemos el resto de los campos para la tabla y pulsaremos el botón "Guardar Tabla":

Introduciremos un nombre para la nueva tabla:

 

Acceso a tabla de SQL Server Express desde Microsoft Access 2010 usando ODBC

En primer lugar abriremos Access (a ser posible como usuario administrador pues desde Access crearemos el ODBC), en la parte derecha de Access 2010 en "Nombre de archivo" introduciremos el nombre del archivo de base de datos Access con extensión accdb que se creará, pulsaremos "Crear":

En la pestaña "Datos externos" pulsaremos en "Base de datos ODBC":

Seleccionaremos "Vincular al origen de datos creando una tabla vinculada" y pulsaremos "Aceptar":

Si ya hemos creado el origen de datos ODBC lo seleccionaremos, en caso contrario pulsaremos "Nuevo", en nuestro caso lo crearemos desde Access aunque es recomendable crearlo desde "Inicio" - "Panel de control" - "Herramientas administrativas" - "Orígenes de datos ODBC". Pulsaremos en "Nuevo" en la pestaña "Origen de datos de equipo":

Seleccionaremos "Origen de datos de usuario" (se aplica sólo al usuario con el que hemos iniciado sesión) o bien "Origen de datos de sistema" (se aplica a todos los usuarios). Pulsaremos "Siguiente":

Seleccionaremos el controlador "SQL Server" que por defecto ya viene instalado en versiones de Windows Vista, Microsoft Windows 7 y Microsoft Windows Server 2008:

Pulsaremos "Finalizar":

Introduciremos el nombre para el nuevo origen de datos, en nuestro caso "bdajpdsoft", la descripción, por ejemplo "Prueba Acceso SQL Server - AjpdSoft" y el servidor donde tengamos instalado SQL Server (con el formato hostname\ID instancia), en nuestro caso "PCSW2008\SQLEXPRESS". Pulsaremos "Siguiente":

Si estamos intentando acceder desde otro equipo de la red al servidor de SQL Server hemos de configurarlo para que admita conexiones externas como indicamos aquí. En este punto, cuando pulsemos "Siguiente", se realizará una comprobación de conexión con el servidor, si el servidor no está correctamente configurado para admitir conexiones nos mostrará un error. Pulsaremos "Siguiente" para continuar cuando estemos seguros que hemos configurado correctamente el servidor de SQL Server:

Podremos establecer la base de datos predeterminada para la conexión ODBC, por ejemplo la que hemos creado anteriormente "bdajpdsoft", pulsaremos "Siguiente":

Personalizaremos las opciones de configuración (idioma de mensajes, cifrado, conversión de caracteres, ...):

El asistente para crear un nuevo origen de datos ODBC nos mostrará un resumen con las opciones seleccionadas, si son correctas podremos realizar una prueba pulsando en "Probar origen de datos". Para crear el origen de datos definitivamente pulsaremos "Aceptar":

Seleccionaremos el origen de datos ODBC creado "bdajpdsoft" y pulsaremos "Aceptar":

Nos mostrará el inicio de sesión para SQL Server, introduciremos un usuario y contraseña y la base de datos a la que nos conectaremos. Es importante mencionar que es recomendable crear un usuario en SQL Server con permisos sólo para las tablas que queramos usar:

El asistente de vinculación de Access con SQL Server nos mostrará todas las tablas a las que el usuario indicado anteriormente tenga acceso, puesto que hemos usado el superusuario "sa", nos mostrará todas las tablas de todas las bases de datos de SQL Server, como ya hemos comentado es recomendable crear y usar un usuario con permisos sólo para las tablas con las que queramos trabajar. En nuestro caso seleccionaremos la tabla "dbo.tabla" que es la que hemos creado anteriormente. Si queremos que no nos solicite la contraseña cada vez que usemos la BD de Access marcaremos "Guardar contraseña":

El asistente nos avisará de que la contraseña se guardará sin cifrar, si estamos seguros pulsaremos "Guardar contraseña":

Y ya podremos trabar directamente desde Microsoft Access 2010 con la tabla del servidor de Microsoft SQL Server Express 2008, todo ello en tiempo real, es decir, cualquier cambio que realicemos en la tabla vinculada de Access se guardará directamente en la tabla de SQL Server:

Desde Microsoft SQL Server Management Studio, seleccionando la tabla y pulsando en "Seleccionar las primeras 1000 filas":

Aquí podremos ver que los cambios realizados en la tabla vinculada de Access se guardan directamente en SQL Server:

Los ficheros de datos de las bases de datos SQL Server se guardarán en la ubicación indicada en el proceso de instalación:

Configurar SQL Server Express 2008 para conexiones remotas externas

Para permitir que el servidor de SQL Server Express admita conexiones externas tanto desde cualquier equipo de la red local LAN como desde Internet seguiremos los siguientes pasos. En primer lugar accederemos a la configuración de SQL Server a "Inicio" - "Todos los programas" - "Microsoft SQL Server 2008" - "Herramientas de configuración" - "Administrador de configuración de SQL Server":

Desde este administrador podremos consultar, por ejemplo, el estado de los servicios de SQL Server Express, por defecto:

• SQL Server Browser: está detenido y en modo automático.
• SQL Server: está iniciado, es el principal, cada instancia de SQL Server tendrá su servicio correspondiente.
• Agente SQL Server: detenido y deshabilitado.
• SQL Full-text Filter Daemon Launcher: iniciado y en modo manual.
• SQL Server Reporting Services: iniciado y en modo automático.

Para permitir las conexiones externas o remotas a SQL Server accederemos en la parte izquierda de SQL Server Configuration Manager a "Configuración de red de SQL Server" - "Protocolos de SQLEXPRESS". En la parte derecha pulsaremos con el botón derecho del ratón sobre TCP/IP y seleccionaremos "Propiedades":

En la pestaña "Protocolo", en la propiedad "Habilitado" seleccionaremos "Sí":

En la pestaña "Direcciones IP" estableceremos las siguientes propiedades para cada IP del equipo:

• Activo: Sí.
• Dirección IP: el propio SQL Server mostrará la IP del equipo (si tiene varias mostrará varios grupos).
• Habilitado: Sí.
• Puerto TCP: indicaremos aquí el puerto de SQL Server que queramos usar, por defecto 1433.
• Puertos dinámicos TCP: dejaremos esta propiedad vacía. Los puertos dinámicos pueden usarse para que el sistema use un puerto cualquiera de forma "aleatoria" sobre todo por cuestiones de seguridad.

Realizaremos la configuración anterior para todas las IPs que nos muestre SQL Server en la pestaña de "Direcciones IP". Pulsaremos "Aplicar" cuando hayamos establecido los valores anteriores:

Nos mostrará un aviso indicando que los cambios se han guardado pero que no se aplicarán hasta que se reinicie el servicio:

Con el texto: Los cambios se guardarán, pero no surtirán efecto hasta que se detenga y reinicie el servicio.

Desde "Servicios SQL Server" reiniciaremos el servicio "SQL Server (SQLEXPRESS)" pulsando sobre él y seleccionando "Reiniciar":

Ahora configuraremos el Firewall de Windows, en nuestro caso hemos instalado SQL Server Express 2008 x64 sobre un equipo con Microsoft Windows Server 2008 x64, este sistema operativo incluye un cortafuegos habilitado por defecto. Si no añadimos una regla a este cortafuegos para permitir el tráfico por el puerto 1433 no nos funcionarán las conexiones externas o remotas a nuestro servidor de base de datos SQL Server. Por lo tanto ahora crearemos una regla en el cortafuegos de Windows, desde "Inicio" - "Panel de control":

Pulsaremos en "Sistema y seguridad":

Pulsaremos en "Firewall de Windows":

Si el Firewall está activo, pulsaremos en "Configuración avanzada":

En "Reglas de entrada" pulsaremos con el botón derecho y seleccionaremos "Nueva regla":

En "Tipo de regla" marcaremos "Puerto" (regla que controla las conexiones de un puerto TCP o UDP) y pulsaremos "Siguiente":

Marcaremos "TCP" y marcaremos "Puertos locales específicos", en puerto introduciremos "1433":

Marcaremos "Permitir la conexión":

Dejaremos las opciones por defecto marcadas "Dominio", "Privado" y "Público":

Introduciremos un nombre y una descripción para la regla, por ejemplo como nombre "SQL Server Express" y como descripción "SQL Server Express conexión externa pruebas AjpdSoft":

De esta forma ya podremos conectarnos desde cualquier equipo de la red o desde Internet (previa configuración del router o cortafuegos de nuestra organización) al servidor con Microsoft SQL Server Express 2008.

Artículos relacionados

• Instalar y administrar Microsoft SQL Server 2008 R2 Express en Windows 7.
• Instalar y administrar Microsoft SQL Server 2008 Express SP1 en Windows XP.
• Instalación de Microsoft SQL Server 2005 en Windows XP.
• Instalar y administrar MSDE Microsoft SQL Server Desktop Engine.
• Instalar Microsoft Windows Server 2008 Standard Edition R2 x64.
• Instalar Microsoft Windows 7 Ultimate virtualizado en VMware Server 2.0.1.
• Desarrollar aplicación con acceso a Microsoft SQL Server 2008 R2 mediante Delphi.
• Tipos de datos del motor de base de datos Microsoft SQL Server.
• Instalación y configuración de Windows XP Service Pack 3.
• Instalación de Windows Server 2003 Enterprise Edition SP2.
• Artículos del Proyecto AjpdSoft sobre Windows.
• Artículos del Proyecto AjpdSoft sobre MySQL Server.
• Artículos del Proyecto AjpdSoft sobre Oracle Database.
• Artículos del Proyecto AjpdSoft sobre IBM DB2.
• Artículos del Proyecto AjpdSoft sobre Microsoft Access.
• Artículos del Proyecto AjpdSoft sobre SQLite.
• Artículos del Proyecto AjpdSoft sobre Bases de Datos.
• Instalar Oracle Database 10g Express Edition XE en Linux Ubuntu 6.06.
• Instalar Oracle Dabase XE (Express Edition) en GNU Linux Fedora 10.
• Instalar y realizar aplicación web con Oracle Application Express.
• Foro del Proyecto AjpdSoft sobre Microsoft SQL Server con trucos y dudas resueltas.

Créditos

Artículo realizado íntegramente por Alonsojpd miembro fundador del Proyecto AjpdSoft.
Artículo en inglés.

Cómo desarrollar aplicación de servicio en Windows con VB.Net

Cómo desarrollar aplicación de servicio en Windows con VB.Net

Explicamos paso a paso en este tutorial cómo realizar un servicio de Windows mediante el lenguaje de programación Microsoft Visual Basic .Net de Microsoft Visual Studio .Net. Mostramos cómo desarrollar una aplicación especial: un servicio de Windows. Dicha aplicación se integrará perfectamente en los servicios de Microsoft Windows 7 (o cualquier otro sistema operativo de Microsoft).

• Los servicios de Windows, definición, cómo se configuran, cómo consultar su estado.
• Desarrollar un servicio de Windows con VB.Net.
  • Propósito del servicio Windows que desarrollaremos.
  • Desarrollar o implementar un servicio de Windows con Visual Basic .Net.
  • Agregar instalador a proyecto VB.Net ServiceInstaller y ServiceProcessInstaller.
• Instalar y desinstalar un servicio de Windows.
  • Instalar servicio de Windows desarrollado con VB.Net.
  • Desinstalar servicio de Windows.
• Depuración de una aplicación de Servicio de Windows con VB.Net.
• Cómo reaccionar a los sucesos de apagado y energía en nuestro servicio VB.Net.
• Anexo.
  • Código fuente o source code del servicio de ejemplo de este artículo.
  • Código fuente de un servicio real desarrollado por AjpdSoft.
• Artículos relacionados.
• Créditos.

Los servicios de Windows, definición, cómo se configuran, cómo consultar su estado

Un servicio de Windows es una aplicación normal con algunas pequeñas variaciones. Es un programa que es iniciado por el sistema operativo en su arranque (si así ha sido configurado). El usuario, en una situación normal, no los inicia ni los detiene, es el sistema operativo el que realiza estas tareas, normalmente de forma automática.

Un servicio de Windows es una aplicación que se ejecuta en segundo plano (background), en situaciones normales un servicio no interactúa con el usuario, no suelen mostrarse ventanas ni mensajes que el usuario pueda ver. Suelen ser aplicaciones que realizan tareas y procesos que no requieren de la intervención del usuario.

Un servicio de Windows se puede iniciar o detener desde la ventana de Servicios de Windows. Para el caso de Microsoft Windows 7, desde el botón "Iniciar" - "Panel de control" - "Herramientas administrativas" - "Servicios". En esta ventana podremos ver todos los servicios instalados en el sistema operativo y su estado (iniciados, detenidos o pausados). Pulsando con el botón derecho del ratón sobre uno de ellos y seleccionando "Propiedades":

podremos ver las propiedades y configuración para el servicio actual. En la pestaña "General":

• Nombre de servicio: nombre con el que se identifica el servicio para tareas internas (iniciarlo o detenerlo desde la línea de comandos, etc.).
• Nombre para mostrar: nombre que aparece en la columna "Nombre" de la ventana de servicios.
• Descripción: descripción larga de lo que hace el servicio o la empresa que lo ha desarrollado.
• Ruta de acceso al ejecutable: carpeta y fichero ejecutable (aplicación) del servicio.
• Tipo de inicio: modo en el que arrancará el servicio: Automático (inicio retrasado), Automático, Manual ó Deshabilitado.
• Estado del servicio: estado actual del servicio: Iniciado, Detenido, Pausado.
• Con los botones "Iniciar", "Detener", "Pausar", "Reanudar" se podrá cambiar el estado del servicio.

En la pestaña "Iniciar sesión": desde esta pestaña podremos configurar las opciones de seguridad, indicando con qué usuario del equipo o del dominio (si el equipo pertenece a un dominio Windows). Si el servicio requiere de interactuación con el usuario (aunque no es lo habitual) podremos marcar la opción "Permitir que el servicio interactúe con el escritorio":

En la pestaña "Recuperación" podremos configurar las acciones a realizar en caso de que se produzca algún error en la ejecución del servicio: qué hacer si se produce el primer error, el segundo, si se producen más errores:

En la pestaña "Dependencias" se mostrará si el inicio de un servicio depende de que otros servicios estén iniciados. De ser así, antes de iniciar el servicio los servicios de los que depende deben estar iniciados. También ocurre a la inversa, si otros servicios dependen de éste y lo detenemos, también se detendrán los servicios que dependen de éste:

Normalmente, los servicios iniciados suelen verse en el Administrador de tareas de Windows, desde la pestaña "Procesos":

Nota: en el ejemplo que os estamos mostrando, el servicio se llama "Apache2.2" y como se puede observar, el proceso se llama "httpd.exe", esto es porque el servicio "Apache2.2" en realidad ejecuta el fichero "httpd.exe" (como se puede observar más atrás en "Ruta de acceso al ejecutable").

Hay que tener en cuenta, si decidimos iniciar, detener o cambiar el modo de inicio de algunos servicios (incluso si los deshabilitamos para impedir su arranque), que algunos servicios son necesarios para el correcto funcionamiento del sistema operativo, por lo que si cambiamos su estado puede que éste deje de funcionar correctamente. Por lo que es recomendable no modificar el estado y tipo de inicio de estos servicios.

En el caso de que nuestro equipo vaya "lento" y pueda ser debido a que tenemos muchos servicios de aplicaciones innecesarias en ejecución, podremos usar la herramienta "msconfig" (Configuración del sistema), desde el botón "Iniciar" - escribiendo "msconfig":

En la pestaña "Servicios" de "Configuración del sistema" podremos deshabilitar los servicios que consideremos que no son necesarios. Marcando la opción "Ocultar todos los servicios de Microsoft" no se mostrarán los servicios del sistema operativo, por lo que evitaremos cometer posibles errores. Hay que tener en cuenta que los servicios que desmarquemos en esta ventana cambiarán el tipo de inicio a "Deshabilitado", por lo que no podrán ejecutarse ni tan siquiera de forma manual hasta que no volvamos a cambiar el tipo de inicio a Manual o a Automático. Por ello hay que proceder con precaución o algunas aplicaciones dejarán de funcionar:

Desarrollar un servicio de Windows con VB.Net Visual Basic .Net

Propósito del servicio Windows que desarrollaremos

A continuación vamos a explicar paso a paso cómo desarrollar un servicio para Windows. Vamos a realizar una aplicación que será y se integrará como un servicio de Windows.

Vamos a desarrollar un servicio de ejemplo que permita cifrar todos los archivos contenidos en una carpeta especificada del equipo. Cada fichero que el usuario copie en dicha carpeta será automáticamente cifrado por nuestro servicio. Utilizaremos un algoritmo de cifrado sencillo y el componente FileSystemWatcher para recibir una notificación cada vez que se cree un nuevo archivo en una determinada carpeta.

A continuación vamos a explicar cómo hacer un servicio con Microsoft Visual Basic .Net 2010 (válido para otras versiones) que, cada vez que el usuario cree un fichero en una carpeta determinada. El servicio se iniciará de forma automática usando FileSystemWatcher.

Este es un ejemplo cualquiera, los servicios se pueden utilizar para cualquier tarea que estimemos oportuna, con un poco de lógica, claro, no se debe confundir el uso específico de un sevicio con el de una aplicación de escritorio. El servicio es una simple tarea que dotará de una utilidad extra a otra aplicación o para realizar tareas repetitivas y automáticas, que no requiere de intervención del usuario y que se debe ejecutar cada cierto tiempo durante todo el día o cuando se produzca un cierto "evento" como es el caso del ejemplo de este artículo.

Desarrollar o implementar un servicio de Windows con Visual Basic .Net

Abriremos Microsoft Visual Basic .Net, pulsaremos en "Archivo" - "Nuevo proyecto":

Seleccionaremos "Visual Basic" - "Windows" en la parte izquierda de "Plantillas instaladas", en la parte derecha seleccionaremos "Servicio de Windows". Introduciremos en nombre el identificador del proyecto, por ejemplo "AjpdSoftServicioEncriptarCarpeta" y pulsaremos "Aceptar":

Nos mostrará la superficie de diseño para el fichero "Service1.vb" que será el principal de nuestra aplicación de servicio de Windows:

Pulsando en el "Explorador de soluciones" podremos ver los ficheros que se han creado, renombraremos el fichero "Service1.vb" por el nombre que queramos, por ejemplo "EncriptarCarpeta.vb":

Agregaremos ahora el componente que nos permitirá saber cuándo el usuario ha creado un nuevo fichero en la carpeta especificada. Este componente será el que "active" nuestra aplicación para que encripte el nuevo fichero. Para agregar este componente pulsaremos en el Cuadro de herramientas, en "Componentes" - "FileSystemWatcher" (realiza el seguimiento de las notificaciones de cambio del sistema de archivos y desencadena eventos cuando cambia un directorio o archivo):

El componente FileSystemWatcher quedará agregado:

Estableceremos ahora las propiedades del servicio que estamos desarrollando. Para ello pulsaremos con el botón derecho sobre la superficie de diseño y seleccionaremos "Propiedades":

Las propiedades disponibles para nuestra aplicación servicio de Windows son:

• Name: nombre del servicio (System.ServiceProcess.ServiceBase) para uso en el código de nuestra aplicación.
• AutoLog: si establecemos esta propiedad a True, el servicio escribirá entradas de forma automática en el registro de sucesos "Aplicación" de Windows, en las siguientes situaciones: cuando el servicio se inicia y se detiene con éxito, cuando se detiene de forma temporal (pausa) y se reaunda con éxito y, finalmente, cuando algún comando no se ejecuta correctamente. Los mensajes enviados al registro de sucesos de Windows son más bien genéricos, del tipo "El servicio se ha iniciado con éxito" y no tendrá control sobre su contenido, pero resultan adecuados en la mayoría de los casos y de gran utilidad, especialmente durante la fase de depuración de la aplicación.
• CanHandlePowerEvent: indica si el servicio puede controlar notificaciones de los cambios de estado de la alimentación del equipo.
• CanHandleSessionChangeEvent: indica si el servicio puede controlar eventos de cambio de sesión recibidos de una sesión de Terminal Server.
• CanPauseAndContinue: indica si se puede pausar y reanudar el servicio.
• CanShutdown: indica si se debe informar al servicio de que el sistema se está cerrando.
• CanStop: indica si puede detenerse el servicio una vez se ha iniciado.
• ExitCode: obtiene o establece el código de salida para el servicio.
• Language: lenguaje de la aplicación de servicio.
• Localizable: determina si se va a generar código traducible para este objeto.
• ServiceName: nombre que identificará el servicio en el sistema Windows. Será el nombre que se establezca para el servicio en Windows.

Indicamos también a continuación las propiedades para el componente FileSystemWatcher anteriormente agregado:

• Name: nombre identificativo para el componente para uso en el código, por ejemplo "cambioFicheroCarpeta".
• EnableRaisingEvents: indica si el componente está habilitado, lo pondremosa False para que el componente no provoque sucesos antes de que se inicie el servicio.
• Filter: cadena de filtro utilizada para determinar qué archivos se supervisan en un directorio.
• GenerateMember: indica si se generará una variable miembro para este componente.
• IncludeSubdirectories: indica si se deben supervisar los subdirectorios de la ruta de acceso especificada.
• Modifiers: indica el nivel de visibilidad del objeto.
• NotifyFilter: establece el tipo de cambios que se van a inspeccionar.
• Path: establece la ruta de acceso del directorio que se va a inspeccionar.

El servicio leerá la carpeta que usará para comprimir los archivos de un fichero de configuración INI. De esta forma el usuario podrá indicar qué carpeta quiere usar. Para ello añadiremos una clase a nuestro proyecto VB.Net que nos permitirá leer valores de configuración de ficheros INI. Para añadir esta clase pulsaremos en el "Explorador de soluciones", pulsaremos con el botón derecho sobre el proyecto y seleccionaremos "Agregar" - "Clase":

Introduciremos un nombre para la clase, por ejemplo "LeerEscribirFicherosINI.vb":

Copiaremos y pegaremos el código de este enlace (contenido de la clase para trabajar con ficheros INI) en el fichero de clase creado "LeerEscribirFicherosINI": Funciones para leer y escribir en ficheros INI VB.Net:

Añadiremos ahora el código VB.Net necesario para activar el componente FileSystemWatcher cuando se inicie el servicio, en el evento "OnStart" del fichero "EncriptarCarpeta.vb":

    Protected Overrides Sub OnStart(ByVal args() As String)
        Dim carpetaCifrar As String

        'Leemos la carpeta a cifrar del fichero INI de configuración
        Dim objFicherosINI As New LeerEscribirFicherosINI(
              System.IO.Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory,
                  "configuracion.ini"))
        carpetaCifrar = objFicherosINI.GetString("Configuración", "Carpeta",
              System.AppDomain.CurrentDomain.BaseDirectory)

        'Comprobamos que el directorio a encriptar existe
        'Si no existe lo creamos
        If Not System.IO.Directory.Exists(carpetaCifrar) Then
            System.IO.Directory.CreateDirectory(carpetaCifrar)
        End If

        'Activamos la recepción de sucesos de archivos
        cambioFicheroCarpeta.Path = carpetaCifrar
        cambioFicheroCarpeta.EnableRaisingEvents = True
    End Sub

Añadiremos ahora el código VB.Net necesario para desactivar el componente FileSystemWatcher cuando se detenga el servicio, en el evento "OnStop" del fichero "EncriptarCarpeta.vb":

    Protected Overrides Sub OnStop()
        'Detenemos la recepción de sucesos de archivos
        cambioFicheroCarpeta.EnableRaisingEvents = False
    End Sub

Introduciremos ahora el código VB.Net necesario para cifrar los ficheros que el usuario vaya creando o copiando a la carpeta establecida en el fichero de configuración INI. Por un lado declararemos una variable para establecer la contraseña de cifrado y la extensión de los ficheros temporales que se crearán para el cifrado:

Public Class EncriptarCarpeta

    Dim clavesCifrado() As Byte = {234, 125, 22, 6, 54, 45, 254}
    Dim extensionFicherosTMP As String = ".###"

Crearemos los procedimientos necesarios para el cifrado de los ficheros:

    Private Sub encritarFicheros(ByVal nombreFichero As String, 
              ByVal clavesCifrado() As Byte)
        'tamaño de cada bloque de entrada, 
        'el tamaño para descrifrar deberá ser igual
        Const tamanoBloque = 8192
        'nombre del fichero temporal que se creará para el cifrado
        Dim ficheroTemporal As String = nombreFichero & extensionFicherosTMP
        'abrimos el archivo origen como una secuencia binaria de entrada
        Dim entradaStr As New System.IO.FileStream(nombreFichero, IO.FileMode.Open)
        'abrimos el archivo temporal de salida como una secuencia binaria de entrada
        Dim salidaStr As New System.IO.FileStream(ficheroTemporal, IO.FileMode.Create)
        'determinar el número de bytes que se desean leer
        Dim tamanoBytes As Long = entradaStr.Length
        'preparar un búfer de entrada
        Dim buffer(tamanoBloque - 1) As Byte
        'mientras que haya bytes que leer
        Do While tamanoBytes > 0
            'lectura máxima de 8kb por bloque
            Dim bytesLeer As Long = Math.Min(tamanoBloque, tamanoBytes)
            'leer dentro del búfer de entrada
            entradaStr.Read(buffer, 0, bytesLeer)
            'cifrar este búfer
            encritarArray(buffer, clavesCifrado)
            'enviar la salida a un archivo temporal
            salidaStr.Write(buffer, 0, bytesLeer)
            tamanoBytes -= bytesLeer
        Loop
        'cerrar las dos secuencias
        entradaStr.Close()
        salidaStr.Close()
        'eliminar el archivo de origen
        System.IO.File.Delete(nombreFichero)
        'renombrar el archivo temporal como el original
        System.IO.File.Move(ficheroTemporal, nombreFichero)
    End Sub

    'Cifrar con xor una matriz de bytes
    Sub encritarArray(ByVal buffer() As Byte, ByVal pwBytes() As Byte)
        'índice que apunta al búfer
        Dim indice As Integer
        'índice que apunta a la matriz de contraseñas
        Dim i As Integer
        'valor máximo de i
        Dim maximo As Integer = pwBytes.Length
        For indice = 0 To buffer.Length - 1
            'hacer un XOR de cada elemento contenido en el búfer con
            'el correspondiente elemento de contraseña
            buffer(indice) = buffer(indice) Xor pwBytes(i)
            'comprobar que el índice corresponde siempre al rango válido
            i = (i + 1) Mod maximo
        Next
    End Sub

En el evento OnCreated del FileSystemWatcher añadiremos el siguiente código VB.Net:

    Private Sub cambioFicheroCarpeta_Created(sender As System.Object, _
            e As System.IO.FileSystemEventArgs) _
            Handles cambioFicheroCarpeta.Created
        Dim carpetaCifrar As String

        'Leemos la carpeta a cifrar del fichero INI de configuración
        Dim objFicherosINI As New LeerEscribirFicherosINI(
              System.IO.Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory,
                  "configuracion.ini"))
        carpetaCifrar = objFicherosINI.GetString("Configuración", "Carpeta",
              System.AppDomain.CurrentDomain.BaseDirectory)
        If System.IO.Path.GetExtension(carpetaCifrar) <> extensionFicherosTMP Then
            encritarFicheros(carpetaCifrar, clavesCifrado)
        End If
    End Sub

Agregar instalador a proyecto VB.Net ServiceInstaller y ServiceProcessInstaller

Los servicios de Windows no se pueden iniciar como una aplicación normal. En primer lugar, para iniciar un servicio de Windows, deberemos instalarlo en el equipo en el que queramos ejecutarlo y, a continuación, podremos iniciarlo mediante el complemento Servicios (services.msc) o bien desde la línea de comandos usando NET START.

En el caso de Microsoft Visual Basic .Net, el primer paso para poder instalar el servicio es agregar una clase instaladora. Esta clase puede ser instalada o bien usando la herramienta automática de la que dispone Microsoft Visual Studio .Net o bien creando manualmente la clase instaladora mediante código.

El primer método es el más sencillo y se adapta a casi todas las situaciones normales de un servicio. Para usarlo accederemos a la ventana de diseño de nuestra aplicación de servicio (EncriptarCarpeta.vb [Diseño]), en esta pestaña pulsaremos con el botón derecho del ratón en cualquier parte donde no haya elementos, nos mostrará un mensaje emergente, seleccionaremos "Agregar instalador":

Visual Basic .Net añadirá un nuevo componente a la aplicación de servicio llamado ProjectInstaller.vb, en este nuevo componente habrá añadido dos objetos adicionales: ServiceProcessInstaller1 y ServiceInstaller1. Pulsando con el botón derecho del ratón sobre ServiceInstaller1 y seleccionando "Propiedades" podremos establecer las propiedades para el servicio que se instalará, las más importantes:

• ServiceName: esta propiedad debe coincidir con la propiedad ServiceName de la clase servicio que hemos configurado inicialmente, en nuestro caso AjpdSoftEncriptarFicheros.
• DisplayName: cadena de texto descriptiva del servicio, por ejemplo indicando lo que hace: "Encripta los ficheros de la carpeta indicada en el fichero de configuración". Este texto aparecerá en el programa complementario MMC denominado Servicios (services.msc).
• StartType: tipo de inicio del servicio, las posibilidades son: automático, manual o deshabilitado. En nuestro caso seleccionaremos "Automatic" para que el servicio se inicie de forma automática cada vez que arranquemos el equipo.
• ServicesDependedOn: si nuestro servicio depende de otros servicios para poder ser iniciado, es decir, si para iniciar nuestro servicio debe haber otros iniciados los podremos indicar aquí.

Para configurar el contexto de seguridad del servicio pulsaremos con el botón derecho del ratón sobre "ServiceProcessInstaller1", seleccionaremos "Propiedades". Desde esta ventana de propiedades podremos indicar el tipo de cuenta en "Account" con las posibilidades:

• LocalService: cuenta que actúa como usuario sin privilegios en el equipo local y presenta credenciales anónimas a cualquier servidor remoto.
• NetworkService: cuenta que proporciona amplis privilegios locales y presenta credenciales del equipo a cualquier servidor remoto.
• LocalSystem: una cuenta, utilizada por el administrador de control de servicio, que tiene amplios privilegios en el equipo local y funciona como un equipo de la red.
• User: cuenta definida por un usuario específico en la red. Si se especifica User para el miembro ServiceProcessInstaller.Account, el sistema pide un nombre de usuario y una contraseña al instalar el servicio, a menos que se establezcan valores para las propiedades Username y Password de la instancia de ServiceProcessInstaller.

Generar ejecutable de servicio en Visual Basic .Net

Generaremos el ejecutable del servicio para poder instalarlo postieriormente, para ello en el IDE de Visual Basic .Net pulsaremos en el menú "Generar" - "Generar AjpdSoftServicioEncriptarCarpeta":

Si no hay errores de compilación VB.Net habrá creado el fichero ejecutable de nuestro servicio Windows en la carpeta bin del proyecto:

Crearemos el fichero de configuración INI para indicar la carpeta a encritar, para ello abriremos el notepad (bloc de notas) de Windows o cualquier otro editor de texto plano y escribiremos el siguiente contenido:

[Configuración]
Carpeta=C:/encriptar

Guardaremos el fichero con el nombre "configuracion.ini" en la misma carpeta que el ejecutable del servicio:

Copiaremos el ejecutable AjpdSoftServicioEncriptarCarpeta.exe y el fichero configuracion.ini a una carpeta de la unidad C para facilitar la instalación del servicio (para evitar rutas largas). Por ejemplo los copiaremos a la carpeta:

C:/ServicioEncriptar

Instalar y desinstalar un servicio de Windows

Instalar servicio de Windows desarrollado con VB.Net

Para instalar el servicio desarrollado anteriormente con VB.Net usaremos la herramienta que incorpora .Net Framework llamada InstallUtil, dicha herramienta suele estar ubicada en:

C:/Windows/Microsoft.NET/Framework/v.xxxxx/InstallUtil.exe

donde v.xxxxx es la versión de .Net Framework que tengamos instalada en el equipo.

Abriremos una ventana de MS-DOS de la línea de comandos como administrador, para ello pulsaremos en el botón "Iniciar" - "Accesorios", sobre "Símbolo del sistema" pulsaremos con el botón derecho del ratón y seleccionaremos "Ejecutar como administrador":

Desde la línea de comandos accederemos a la carpeta donde se encuentra el fichero InstallUtil.exe, con el comando "cd":

cd c:/Windows/Microsoft.NET/Framework/v4.0.30319

Para instalar el servicio desarrollado ejecutaremos el siguiente comando:

installutil C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe

Si todo es correcto devolverá:

La fase de confirmación finalizó correctamente.
La instalación con transacciones ha finalizado.

A continuación el listado de los mensajes devueltos tras la instalación del servicio de Windows por InstallUtil:

cd c:/Windows/Microsoft.NET/Framework/v4.0.30319
installutil C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe
Utilidad de instalación de Microsoft (R) .NET Framework, versión 4.0.30319.1
(C) Microsoft Corporation. Reservados todos los derechos.
Ejecutando una instalación de transacción.
Iniciando la fase de instalación dentro de la instalación.
Consulte el contenido del archivo de registro sobre el progreso del ensamblado C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe.
El archivo está ubicado en C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog.
Instalando ensamblado 'C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe'.
Los parámetros afectados son:
logtoconsole =
logfile = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog
assemblypath = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe
Instalando el servicio AjpdSoftEncriptarFicheros...
El servicio AjpdSoftEncriptarFicheros se ha instalado correctamente.
Creando el origen de EventLog AjpdSoftEncriptarFicheros en el registro Application...
La fase de instalación finalizó correctamente y la fase de confirmación está empezando.
Consulte el contenido del archivo de registro sobre el progreso del ensamblado C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe.
El archivo está ubicado en C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog.
Confirmando ensamblado 'C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe'.
Los parámetros afectados son:
logtoconsole =
logfile = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog
assemblypath = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe
La fase de confirmación finalizó correctamente.
La instalación con transacciones ha finalizado.

Si todo es correcto podremos consultar el servicio en el "Panel de Control" - "Herramientas administrativas" - "Servicios":

Nos aparecerá un nuevo servicio con el nombre "AjpdSoft Encriptar Ficheros", inicialmente en estado detenido. Haciendo doble clic sobre él podremos ver las propiedades:

El nombre del servicio será: AjpdSoftEncriptarFicheros, el nombre para mostrar: "AjpdSoft Encritpar Ficheros", la descripción: "Encripta los ficheros de la carpeta especificada", el tipo de inicio "Automático". Pulsaremos "Iniciar" para activar la aplicación de servicio y así poder probarlo:

 

Desinstalar servicio de Windows

Si queremos desinstalar el servicio ejecutaremos el siguiente comando:

installutil "C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe" /u

A continuación el listado de los mensajes devueltos tras la desinstalación del servicio de Windows por InstallUtil:

installutil C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe /u
Utilidad de instalación de Microsoft (R) .NET Framework, versión 4.0.30319.1
(C) Microsoft Corporation. Reservados todos los derechos.
Iniciando la desinstalación.
Consulte el contenido del archivo de registro sobre el progreso del ensamblado C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe.
El archivo está ubicado en C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog.
Desinstalando ensamblado 'C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe'.
Los parámetros afectados son:
logtoconsole =
logfile = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog
assemblypath = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe
Quitando el origen de EventLog AjpdSoftEncriptarFicheros.
Se está quitando el servicio AjpdSoftEncriptarFicheros del sistema...
El servicio AjpdSoftEncriptarFicheros se ha quitado correctamente del sistema.
La desinstalación ha finalizado.

Depuración de una aplicación de Servicio de Windows con VB.Net

Si la aplicación de servicio con VB.Net produce algún error no controlado por nosotros, será escrito automáticamente en el visor de eventos de Windows. Desde "Inicio" - "Panel de Control" - "Herramientas administrativas" - "Visor de eventos", en "Registros de Windows" - "Aplicación" podremos ver los posibles errores de nuestro servicio:

Si queremos realizar una depuración más a fondo, por ejemplo para saber cuándo nuestra aplicación de servicio encripta un fichero, deberemos escribir nosotros mismos en el visor de eventos. Para ello añadiremos la siguiente línea donde y cuando queramos que la aplicación escriba en el visor de eventos:

Me.EventLog.WriteEntry("Encriptando fichero...")

Podemos controlar los posibles errores de nuestra aplicación y guardar el error que se pueda producir en el Visor de eventos. Para ello, en el código propenso a producir algún error, añadiríamos:

        Try
            
            ...........

        Catch ex As Exception
            Me.EventLog.WriteEntry("Error al encriptar: " & ex.Message)
        End Try

Por supuesto, otra opción para depurar nuestra aplicación de servicio es escribir los eventos que queramos registrar en un fichero de log (fichero de texto plano). De esta forma no necesitaremos escribir en el Visor de eventos y será más sencillo consultar y depurar posibles errores. Un procedimiento para escribir en un fichero de log:

    Private Sub escribirLog(texto As String)
        Dim fichero As New System.IO.StreamWriter("c:\encriptar.log", True)
        fichero.WriteLine(Now & Chr(9) & texto)
        fichero.Close()
    End Sub

Un ejemplo de uso de este procedimiento:

escribirLog("Leyendo carpeta a cifrar de fichero INI")

Cómo reaccionar a los sucesos de apagado y energía en nuestro servicio VB.Net

La mayoría de las aplicaciones de servicio suelen disponer de código de limpieza en sus métodos OnStop y OnPause para que el servicio no consuma recursos cuando no se encuentre en ejecución. En algunos casos, será conveniente ejecutar código especial cuando se apague el sistema o cuando el sistema entre en modo suspensión u otro sucesos relacionado con la alimentación de energía.

Por ejemplo, para ejecutar código cuando se apague el sistema realizaremos los siguientes pasos:

1. Pulsaremos con el botón derecho del ratón sobre el diseñador del servicio y seleccionaremos "Propiedades":

2. Cambiaremos el valor de la propiedad "OnShutdown" a True en la ventana de propiedades del servicio:

3. Añadiremos el siguiente procedimiento para cuando se produzca el evento de apagado del sistema "OnShutdown", en este procedimiento pondremos el código que queramos que se ejecute cuando se vaya a apagar el equipo:

    Protected Overrides Sub OnShutdown()
        cambioFicheroCarpeta.EnableRaisingEvents = False
        escribirLog("El equipo se está apagando")
    End Sub

De la misma forma podremos activar la propiedad "CanHandlePowerEvent" del servicio a True y usaremos el procedimiento "OnPwerEvent" como se indica a continuación:

    Protected Overrides Function OnPowerEvent(powerStatus As  _
                 System.ServiceProcess.PowerBroadcastStatus) As Boolean
        Select Case powerStatus
            Case ServiceProcess.PowerBroadcastStatus.Suspend
                escribirLog("El equipo se está suspendiendo")
            Case ServiceProcess.PowerBroadcastStatus.ResumeSuspend
                escribirLog("El equipo se está saliendo del modo suspensión")
            Case ServiceProcess.PowerBroadcastStatus.BatteryLow
                escribirLog("El equipo tiene la batería baja")
        End Select
        Return True
    End Function

Anexo

Código fuente o source code del servicio de ejemplo de este artículo

Public Class EncriptarCarpeta

    Dim clavesCifrado() As Byte = {234, 125, 22, 6, 54, 45, 254}
    Dim extensionFicherosTMP As String = ".###"

    Protected Overrides Sub OnShutdown()
        cambioFicheroCarpeta.EnableRaisingEvents = False
        escribirLog("El equipo se está apagando")
    End Sub

    Protected Overrides Function OnPowerEvent(powerStatus As  _
                 System.ServiceProcess.PowerBroadcastStatus) As Boolean
        Select Case powerStatus
            Case ServiceProcess.PowerBroadcastStatus.Suspend
                escribirLog("El equipo se está suspendiendo")
            Case ServiceProcess.PowerBroadcastStatus.ResumeSuspend
                escribirLog("El equipo se está saliendo del modo suspensión")
            Case ServiceProcess.PowerBroadcastStatus.BatteryLow
                escribirLog("El equipo tiene la batería baja")
        End Select
        Return True
    End Function

    Private Sub escribirLog(texto As String)
        Dim fichero As New System.IO.StreamWriter("c:\encriptar.log", True)
        fichero.WriteLine(Now & Chr(9) & texto)
        fichero.Close()
    End Sub

    Protected Overrides Sub OnStart(ByVal args() As String)
        Dim carpetaCifrar As String

        escribirLog("Leyendo carpeta a cifrar de fichero INI")

        'Leemos la carpeta a cifrar del fichero INI de configuración
        Dim objFicherosINI As New LeerEscribirFicherosINI(
              System.IO.Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory,
                  "configuracion.ini"))
        carpetaCifrar = objFicherosINI.GetString("Configuración", "Carpeta",
              System.AppDomain.CurrentDomain.BaseDirectory)

        escribirLog("Carpeta a cifrar: " & carpetaCifrar)

        'Comprobamos que el directorio a encriptar existe
        'Si no existe lo creamos
        If Not System.IO.Directory.Exists(carpetaCifrar) Then
            System.IO.Directory.CreateDirectory(carpetaCifrar)
            escribirLog("Carpeta a cifrar no existente, se ha creado")
        End If

        'Activamos la recepción de sucesos de archivos
        cambioFicheroCarpeta.Path = carpetaCifrar
        cambioFicheroCarpeta.EnableRaisingEvents = True
        escribirLog("Activada la recepción de sucesos de archivos")
    End Sub

    Protected Overrides Sub OnStop()
        'Detenemos la recepción de sucesos de archivos
        cambioFicheroCarpeta.EnableRaisingEvents = False

        escribirLog("Detenida la recepción de sucesos de archivos")
    End Sub

    Private Sub cambioFicheroCarpeta_Created(sender As System.Object, _
            e As System.IO.FileSystemEventArgs) _
            Handles cambioFicheroCarpeta.Created
        Dim carpetaCifrar As String

        escribirLog("Obtenemos carpeta a cifrar para activar el monitor de cambios")

        'Leemos la carpeta a cifrar del fichero INI de configuración
        Dim objFicherosINI As New LeerEscribirFicherosINI(
              System.IO.Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory,
                  "configuracion.ini"))
        carpetaCifrar = objFicherosINI.GetString("Configuración", "Carpeta",
              System.AppDomain.CurrentDomain.BaseDirectory)
        If System.IO.Path.GetExtension(carpetaCifrar) <> extensionFicherosTMP Then
            encritarFicheros(carpetaCifrar, clavesCifrado)
        End If
    End Sub

    Private Sub encritarFicheros(ByVal nombreFichero As String, ByVal clavesCifrado() As Byte)
        Me.EventLog.WriteEntry("Encriptando fichero: " & nombreFichero)

        Try
            escribirLog("Encriptando fichero " & nombreFichero)
            'tamaño de cada bloque de entrada, el tamaño para descrifrar deberá ser igual
            Const tamanoBloque = 8192
            'nombre del fichero temporal que se creará para el cifrado
            Dim ficheroTemporal As String = nombreFichero & extensionFicherosTMP
            'abrimos el archivo origen como una secuencia binaria de entrada
            Dim entradaStr As New System.IO.FileStream(nombreFichero, IO.FileMode.Open)
            'abrimos el archivo temporal de salida como una secuencia binaria de entrada
            Dim salidaStr As New System.IO.FileStream(ficheroTemporal, IO.FileMode.Create)
            'determinar el número de bytes que se desean leer
            Dim tamanoBytes As Long = entradaStr.Length
            'preparar un búfer de entrada
            Dim buffer(tamanoBloque - 1) As Byte
            'mientras que haya bytes que leer
            Do While tamanoBytes > 0
                'lectura máxima de 8kb por bloque
                Dim bytesLeer As Long = Math.Min(tamanoBloque, tamanoBytes)
                'leer dentro del búfer de entrada
                entradaStr.Read(buffer, 0, bytesLeer)
                'cifrar este búfer
                encritarArray(buffer, clavesCifrado)
                'enviar la salida a un archivo temporal
                salidaStr.Write(buffer, 0, bytesLeer)
                tamanoBytes -= bytesLeer
            Loop
            'cerrar las dos secuencias
            entradaStr.Close()
            salidaStr.Close()
            'eliminar el archivo de origen
            System.IO.File.Delete(nombreFichero)
            'renombrar el archivo temporal como el original
            System.IO.File.Move(ficheroTemporal, nombreFichero)

            escribirLog("Encriptado fichero " & nombreFichero)
            Me.EventLog.WriteEntry("Encriptado fichero: " & nombreFichero)
        Catch ex As Exception
            Me.EventLog.WriteEntry("Error al encriptar: " & ex.Message)
            escribirLog("Error al encriptar fichero " & nombreFichero & " " & ex.Message)
        End Try
    End Sub

    'Cifrar con xor una matriz de bytes
    Sub encritarArray(ByVal buffer() As Byte, ByVal pwBytes() As Byte)
        'índice que apunta al búfer
        Dim indice As Integer
        'índice que apunta a la matriz de contraseñas
        Dim i As Integer
        'valor máximo de i
        Dim maximo As Integer = pwBytes.Length
        For indice = 0 To buffer.Length - 1
            'hacer un XOR de cada elemento contenido en el búfer con
            'el correspondiente elemento de contraseña
            buffer(indice) = buffer(indice) Xor pwBytes(i)
            'comprobar que el índice corresponde siempre al rango válido
            i = (i + 1) Mod maximo
        Next
    End Sub
End Class

 

Artículos relacionados

• Cómo desarrollar un servicio de Windows con Borland Delphi.
• Generar y leer códigos QR Quick Response Barcode con Visual Basic .Net VB.Net.
• Socket Visual Basic .Net, conexión mediante socket VB.Net y System.Net.Sockets.
• Desarrollar aplicación VB.Net con componentes enlazados a MySQL de forma nativa.
• El control de errores en Visual Basic .Net.
• Cómo capturar errores genéricos ó excepciones en Borland ó Codegear Delphi.
• AjpdSoft Generador y Lector códigos QR VB.Net.
• AjpdSoft Socket VB.Net.
• AjpdSoft Envío SMS Visual Basic .Net.
• AjpdSoft Insertar Evento Google Calendar.
• AjpdSoft Envío EMail SSL VB.Net.
• AjpdSoft Conexión BD Visual Basic .Net.
• AjpdSoft Ejecutar comando MS-DOS y capturar la salida.
• Foro del Proyecto AjpdSoft sobre Visual Basic, Visual Studio .Net, VB.Net.
• Código fuente gratuito de aplicaciones completas en Delphi y Visual Basic.
• Foro del Proyecto AjpdSoft sobre las aplicaciones de AjpdSoft (dudas, errores, sugerencias).

Créditos

Artículo realizado íntegramente por Alonsojpd miembro fundador del Proyecto AjpdSoft.

Artículo en inglés.