Desarrollo de Apps Mviles con Delphi (iOS y Android)

www.R2datatechnology.com

Tutorial Mvil: Conectando a una Base de Datos Empresarial desde un Cliente Mvil (iOS y Android)
Antes de empezar este tutorial, debera leer y realizar los siguientes tutoriales: Tutorial Mvil: Usando Componentes ListBox para Mostrar una Table View (iOS y Android) Tutorial Movil: Usando InterBase ToGo (iOS y Android)

Este tutorial describe cmo conectarse a una base de datos Empresarial desde una aplicacin mvil cliente. Para conectarse a una Base de Datos Empresarial, usted necesita tener una librera cliente. En muchos casos, la librera cliente es proveda por el database vendor en formato DLL. Esta estrategia no trabaja bien para dispositivos mviles porque las libreras cliente no estn disponibles. Para resolver esto, puede desarrollar una capa intermedia (middle tier) para conectarse a una Base de Datos Empresarial , y su aplicacin mvil pueda comunicarse con la capa intermedia. RAD Studio prov el DataSnap framework con el que usted puede desarrollar la capa intermedia (y acceder a la capa intermedia) casi sin necesidad de codificacin. Este tutorial describe los pasos para desarrollar la capa intermedia y luego desarrollar el cliente mvil.

Creando la Capa Intermedia, un DataSnap Server

Primero, crear un DataSnap server que expone una tabla desde un servidor de base de datos. Este tutorial usa un DataSnap Server VCL Forms Application como un servidor DataSnap. Nota: En ste tutorial, el DataSnap server (una aplicacin VCL) funciona como la capa intermedia en una aplicacin de base de datos multi-capa. Usted puede fcilmente crear y luego borrar una instancia de un servidor DataSnap. Despus de entender los pasos bsicos, usted puede convertir la capa intermedia a una aplicacin de tipo Servicio de Windows.

Embarcadero Technologies

142

Desarrollo de Apps Mviles con Delphi (iOS y Android)

www.R2datatechnology.com

Crear una DataSnap Server VCL Application

1. Crear un nuevo proyecto. Escoja File > New > Other y desde el dilogo New Items seleccione Delphi Projects > DataSnap Server > DataSnap Server en orden para crear un nuevo proyecto Delphi.

2. El asistente New DataSnap Server aparece y usted necesita seguir los pasos sin modificar demasiados parmetros.

En el asistente New DataSnap Server: 1. Como primer paso, seleccione VCL Forms Application como tipo de aplicacin.

Embarcadero Technologies

143

Desarrollo de Apps Mviles con Delphi (iOS y Android)

www.R2datatechnology.com

2. Como segundo paso, escoga el protocolo TCP/IP, Server Methods Class y Sample Methods desde la lista Server Features. 3. En el tercer paso, dejar el puerto de comunicaciones TCP/IP por defecto al 211. Esto garantizar que la comunicacin entre el cliente y el servidor pasar a travs del puerto por defecto del DataSnap. 4. En el paso final (nmero cuatro) seleccione TDSServerModule como el ancestor para el Server Methods. 3. Guarde la unidad del formulario como DataSnapServerUnit.pas. 4. Cambie a DataSnapServerUnit, y cambie la propiedad Name del formulario a DSServerForm. 5. Guarde el server methods unit por defecto es creado por el asistente: ServerMethodsUnit1) como ServerModuleUnit.pas. 6. Guarde el server container unit (por defecto es creado por el asistente: ServerContainerUnit1) como ServerContainerUnit.pas. 7. Guarde el nuevo proyecto como DataSnapServerProject.droj. 8. Seleccione ProjectGroup1 en el Project Manager, y guarde el proyecto como DataSnapTutorialProjectGroup.groupproj.

Defina un DataSet en el DataSnap Server

1. Cambie al archivo ServerContainerUnit.pas y reemplaze la clusula uses en la implementacin con: uses

Winapi.Windows, ServerModuleUnit;

2. Cambie al archivo ServerModuleUnit.pas. 3. En el Form Designer, cambie la propiedad Name del Server Module a DSServerModule_EMPLOYEE. 4. Configure los siguientes componentes sobre el Server Module: Suelte un componente TSQLConnection sobre el Server Module, y establezca las siguientes propiedades: TSQLConnection encapsula una conexin dbExpress hacia un servidor de base de datos.

Embarcadero Technologies

144

Desarrollo de Apps Mviles con Delphi (iOS y Android)

www.R2datatechnology.com

Setear la propiedad Name a SQLConnection_EMPLOYEE. Setear la propiedad LoginPrompt a False. Setear Driver a InterBase Server. Expanda el nodo Driver, y setear la propiedad DataBase a C:\Users\Public\Documents\RAD Studio\<n.n>\Samples\Data\EMPLOYEE.GDB.

Cambie la propiedad Connected a True. Si obtiene un error, vuelva a verificar las propiedades que ha configurado:

Suelte un componente TSQLDataSet sobre el Server Module, y setear las siguientes propiedades:

TSQLDataSet representa la informacin recuperada usando dbExpress. Setear la propiedad Name a SQLDataSet_EMPLOYEE. Setear la propiedad SQLConnection a SQLConnection_EMPLOYEE. Setear la propiedad CommandType a ctTable. Setear la propiedad CommandText a EMPLOYEE. Cambiar la propiedad Active a True. Si obtiene un error, vuelva a verificar las propiedades que ha configurado. Suelte un componente TDataSetProvider sobre el Server Module, y setear las siguientes propiedades: TDataSetProvider empaqueta la informacin desde un dataset y pasa uno o ms data packets transportables al cliente DataSnap. Setear la propiedad Name a DataSetProvider_EMPLOYEE. Setear la propiedad DataSet a SQLDataSet_EMPLOYEE:

Embarcadero Technologies

145

Desarrollo de Apps Mviles con Delphi (iOS y Android)

www.R2datatechnology.com

Nota: Este tutorial usa InterBase como un ejemplo. Sin embargo, usted puede conectarse a cualquier servidor de base de datos usando los mismos pasos. Seleccione el driver apropiado, y otras propiedades para apuntar a su base de datos.

Exponer el DataSet desde el DataSnap Server

Usted acaba de crear un nuevo Server Module que contiene un DataSet y un DataSetProvider que empaqueta la informacin para la siguiente capa. El siguiente paso es exponer el Server Module al cliente DataSnap. 1. En el Form Designer, abrir ServerContainerUnit. 2. Seleccione DSServerClass1, y actualice el manejador de evento existente para el evento OnGetClass. Agregue el siguiente cdigo al manejador de evento del DSServerClass1:

procedure TServerContainer1.DSServerClass1GetClass(DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass); begin PersistentClass := TDSServerModule_EMPLOYEE; end;
Con este manejador de evento, el DataSnap Server expone los proveedores as como los mtodos pblicos de esta clase a un cliente DataSnap. Basado en los pasos de la seccin previa, ahora vamos a exponer el componente DataSetProvider_EMPLOYEE DataSetProvider para su cliente DataSnap.

Ejecutar el DataSnap Server

La implementacin del DataSnap Server est completa. Click-derecho en DataSnapServerProject.exe y seleccionar Run Without Debugging.

Embarcadero Technologies

146

Desarrollo de Apps Mviles con Delphi (iOS y Android)

www.R2datatechnology.com

. Ahora puede ver el DataSnap server ejecutndose en su mquina Windows. Porque ste DataSnap server no tiene Interface de usuario, slo luce un formulario en blanco, y esto es lo que se esperaba en este punto.

Creando una Aplicacin Mvil que se Conecta al DataSnap Server

El siguiente paso es crear la aplicacin mvil cliente. 1. En el Project Manager, click-derecho en DataSnapTutorialProjectGroup, y seleccione Add New Project.

2. Seleccione FireMonkey Mobile Application en la pgina Delphi Projects:

Embarcadero Technologies

147

Desarrollo de Apps Mviles con Delphi (iOS y Android)

www.R2datatechnology.com

3. Guarde la nueva Unidad como DataSnapClientUnit.pas. 4. Guarde el nuevo Proyecto como DataSnapClientProject.droj. 5. Abrir DataSnapClientUnit, y cambie la propiedad Name del formulario a DSClientForm. 6. Suelte los siguientes componentes sobre el FireMonkey Mobile Form Designer: Componente TSQLConnection (SQLConnection1)

TSQLConnection encapsula una coneccin dbExpress al servidor de base de datos. Adems, es compatible con el DataSnap server. Setear la propiedad Driver a DataSnap. Expandir la propiedad Driver, y setear la propiedad HostName al nombre del host del DataSnap server. Setear la propiedad LoginPrompt a False. Setear la propiedad Connected a True.

Si obtiene un error, por favor vuelva a comprobar las propiedades que se acaban de ajustar.

Componente TDSProviderConnection (DSProviderConnection1)

El componente TDSProviderConnection prov de conectividad al DataSnap server usando dbExpress. Setear la propiedad SQLConnection al SQLConnection1. Setear ServerClassName a TDSServerModule_EMPLOYEE. Este nombre debe de coincider con el nombre de clase del Modulo Servidor del DataSnap server. Setear la propiedad Connected a True.

Componente TClientDataSet (ClientDataSet1)

TClientDataSet implementa un dataset independiente de la base de datos, y sta puede ser usada como un buffer local in-memory de los registros desde otro dataset. Setear la propiedad RemoteServer a DSProviderConnection1. Setear la propiedad ProviderName a DataSetProvider_EMPLOYEE. Este nombre necesita concidir con el nombre del provider del DataSnap server. Setear la propiedad Active a True.

Componente TListBox Setear la propiedad Align a alClient:

Embarcadero Technologies

148

Desarrollo de Apps Mviles con Delphi (iOS y Android)

www.R2datatechnology.com

7. Abrir el LiveBindings Designer y conectar los datos y la interface de usuario: 1. Click en FULL_NAME en BindSourceDB1, y arrastrar el cursor del mouse a Item.Text en ListBox1:

2.

Ahora ha creado y configurado el cliente DataSnap en la plataforma

mvil. Usted debera poder ver la informacin trada desde el DataSnap server en el IDE:

iOS

Android

Embarcadero Technologies

149

Desarrollo de Apps Mviles con Delphi (iOS y Android)

www.R2datatechnology.com

Desplegar el MIDAS Library al iOS Simulator

Para ejecutar su aplicacin sobre el iOS Simulator, necesita desplegar los siguientes archivos: MIDAS Library 1. Abrir el Deployment Manager seleccionando Project > Deployment. 2. Seleccione Add Featured Files ( ):

3. Seleccione el siguiente mdulo, y luego click en OK para cerrar el Deployment Manager: MIDAS Library

Embarcadero Technologies

150

Desarrollo de Apps Mviles con Delphi (iOS y Android)

www.R2datatechnology.com

Ejecute Su Aplicacin en la plataforma mvil

Ahora su aplicacin est lista para ejecutarse. En el Project Manager, seleccione la plataforma mvil destino, y ejecute su aplicacin. Usted debe ser capaz de navegar por los datos tal como lo hace en el IDE.

Embarcadero Technologies

151