Ok ya tenemos el servidor de aplicaciones ahora tenemos que
implementar la aplicación para los clientes, para ello creamos un nuevo
proyecto en Delphi y agregamos un módulo servidor (Server Module) a nuestra aplicación. En este módulo agregamos los
siguientes componentes:
Un SQLConnection1 el cual configuramos de la siguiente
manera:
Driver: Como ya tenemos nuestro servidor de aplicaciones
configurado, en esta propiedad del SQLConnection1 seleccionamos DataSnap que es
el driver que corresponde a nuestro servidor ya creado.
HostName: Colocamos la IP o ruta donde se encuentra nuestro
servidor de aplicaciones en este caso localhost.
Port: Este valor debe ser igual al configurado en nuestro
servidor de aplicaciones en el componente DSTCPServerTransport1, en este caso
211 que es el valor que trae por defecto.
Hasta el momento iría de esta forma:
Agreguemos un DSProviderConnection1 de la paleta DataSnap
Client y en su propiedad ServerClassName
colocamos en nombre de la clase que contiene los controles de conexión a
nuestra base de datos del servidor de aplicaciones, el mismo nombre que
colocamos en el evento OnGetClass de nuestro componente DSServerClass1 que se encuentra en el módulo principal del servidor
de aplicaciones, ahora bien el valor entonces para esta propiedad seria TDSServerModule1.
Listo señores hasta ahora vamos muy bien ya nuestro proyecto
para los clientes ya se puede conectar a nuestros servidor de aplicaciones.
La siguiente grafica muestra lo que llevamos hasta el
momento:
Bueno señores a lo que vinimos ahora vamos a colocar un componente
llamado ClientDataSet de la paleta Data Access, le combinamos el nombre (Name)
por Clientes y el la propiedad RemoteServer seleccionamos el componente DSProviderConnection1
agregado anteriormente en nuestro
proyecto.
Ahora algo muy importante de este señor llamado ClientDataSet, es el que se va a encargar de recibir y enviar
la información de nuestros clientes a nuestro servidor de aplicaciones.
Después que ya lo hemos conectado a través de sus propiedad RemoteServer,
él debe listar todos los DataSetProvider que hallamos agregado en nuestro
servidor de aplicaciones, esta lista la muestra en la propiedad ProviderName, hay seleccionamos el DataSetProvider con el que va a trabajar este ClientDataSet y listo, ya no
es más que llamarlo de alguna ventana para mostrar datos a través de un
DataSource en un DBGrib o ejecutar operaciones de Inserción, edición o eliminación,
ya eso queda a criterio del desarrollador.
Por ultimo agregamos un componente DataSource y lo relacionamos con nuestros ClientDataSet en la propiedad DataSet, a este DataSource le colocamos en nombre de DTClientes.
Ahora simplemente agregamos un nuevo formulario al proyecto agregamos varios componentes visuales (Botones,
Edit y Un DBGrid), relacionamos el DBGrid con el DataSource que colocamos en el
módulo del proyecto y varias líneas de código en los botones y todo quedaría de
la siguiente forma.
Nota: El proyecto completo lo puede descargar en Utilidades,
hay están por separado los dos proyectos el Servidor de Aplicaciones y El Aplicativo
de Cliente. También está un archivo de texto llamado SQL de La Base de Datos
para que crees la tabla igual a la del proyecto.
Conocimiento e Información al alcance de todos…
Frans Willian Garner