DataSnap, DBExpress y Threads

El primer problema al que se enfrenta el desarrollador DataSnap principiante es el problema de las conexiones a la base de datos. La costumbre le hace rápidamente cometer un error. En su afán por ahorrar conexiones es sumamente probable que cree un datamodule y redireccione todas sus datasets a la conexión disponible en el mismo. Acá es donde aparece el problema, dependiendo del lifecycle seleccionado en el componente TDSServerClass es altamente probable que varios threads intenten usar esta conexión, dbexpress no es thread safe y para peor podemos generar una buena cantidad de problemas si todos los thread manejan las mismas conexiones, active recordset etc.

Solución:

Una conexión por ServerModule.
Esto abre un interrogante, ¿Tengo que tomarme el trabajo de meter una conexión y configurara directamente en cada uno de mis servermodules?¿Tengo que generar el código para tomar los parámetros del conexión en cada uno de mis servermodules?
La respuesta es no, podemos usar la herencia que tan bien funciona en Delphi para codificar una vez y reutilizar cuando se necesite.De hecho esta saludable practica no solo va a aportar soluciones a este problema, nos va a ayudar en otras problemáticas que aparecerán en escenarios futuros cuando profundicemos mas en esta tecnología. En futuras entradas podremos sacar mas provecho de lo expuesto aquí.
Vamos paso paso como hacer esto.

Crear el servidor datasnap
Si lo desea puede utilizar el wizard de delphi

Seleccione la opción VCL Forms Application, Habilite TCP/IP y HTTP (Por las dudas si lo necesita en el futuro, para esto no es necesario), y en la ultima acción del wizard seleccione TDSServerModule.
El servermodule creado automáticamente por el wizard solo servirá a los fines de heredar de el los servermodules que verdaderamente ofrecerán la funcionalidad, coloque un nombre que demuestre su condicion por ejemplo
uAbstractServerModule para el archivo.
TAbstractServerModule para la clase.

Verifique que dicho servermodule no figure como auto creado (Project->Options->Forms)

Vale aclarar que este server module "abstracto" en realidad no lo es tal, el nombre indica su condicion donde del software pero no es una clase abstracta.

Conexión en el ServerModule Abstracto
Lo llamamos abstracto por nunca se va a crear una instancia directamente sino que sera por medio de servermodules hijos. A pesar de esto tenemos cosas que hacer en modulo, comenzamos configurando una conexión en el dataexplorer y haciendo drag and drop

Hagamos uso del evento beforeconnect de la conexión para levantar los parámetros de la misma en tiempo de ejecución

Usemos también los eventos de creación y destrucción del servermodule para abrir y cerrar conexión respectivamente

Ahora si, casi estamos, nos quedan algunos detalles pero vamos a crear nuestro primer servermodule "real", para ello seleccionamos File->New->Other->Inheritable items

Seleccionado claro, como base nuestro servermodule abstracto.
Para ir terminando, creamos una archivo ini en la misma carpeta donde esta nuestros servidor DataSnap, copiamos los parametros de conexión de dbxConnections.ini como indica la figura.

Si se trabaja con SqlServer no olvidar el parametro MARS_Connection para habilitar "multiple active record set"

Ahora creamos el cliente, verificamos que los métodos en la clase abstracta están presentes en la clase proxy generada, el sistema de herencia funciona.

Como dijimos en próximas entradas veremos mas ventajas de operar con herencia en servermodules