Proyecto Multiplataforma – Episodio 3 (Aplicación Cliente «Windows/Linux»)

Hola amigos.

En este Episodio vamos a crear nuestra Aplicación Cliente la cual enviará las peticiones http GET a nuestro Servidor Datasnap para obtener información de los métodos Usuario y Habitaciones.

Escribiremos el código necesario para procesar los dos tipos de RESPONSE que vimos en el Episodio 2.2 y mostraré las diferencias de serializar los objetos JSONObject y FDJSONDataSets. Esto lo haremos en dos aplicaciones independientes que nos servirán de prueba para después implementar el código realizado en la Aplicación Cliente principal.

***En el siguiente video vamos a consumir los métodos Usuario() y Habitaciones() que nos regresarán la clase TJSONObject.

***En el siguiente video vamos a consumir los métodos getUsuario() y getHabitaciones() que nos regresarán la clase TFDJSONDataSets.

Ya vimos como enviar las peticiones GET y consumir los métodos de nuestro Servidor DataSnap y la implementación de los métodos en la Aplicación Cliente se harán con aquellos que nos regresan la clase TJSONObject ya que nos permitirá desarrollar clientes desde cualquier herramienta de programación y no solo desde RAD Studio, sin embargo ustedes podrán decidir cual será su favorito.

Dicho lo anterior, todas las peticiones GET, PUT y POST que se agreguen a partir ahora se escribirán con Response TJSONObject y solo haremos un método para las peticiones PUT y POST como ejemplo ilustrativo de la clase TFDJSONDataSets los cuales se consumirá en una pequeña aplicación por separado, los demás métodos se consumirán directamente en nuestra Aplicación Cliente.

***En el siguiente video vamos a implementar los métodos vistos anteriormente en nuestra Aplicación Cliente y se compilará para el Escritorio de Windows (Win10) y para el Escritorio de Linux (Ubuntu).

Con esto terminamos el Episodio 3. En el siguiente Episodio veremos como generar una app Android a partir de nuestra Aplicación Cliente Base.

***Mientras tanto los invito a iniciar sus pruebas con peticiones GET y consumir sus métodos con la opción que mas les interese.

Nos vemos en la próxima

Nos vemos en la próxima entrada.

Proyecto Multiplataforma – Episodio 2.2 (Creación de Métodos)

Hola amigos.

En éste Episodio vamos a escribir un par de métodos para poder pasar a la siguiente etapa que es la construcción de las Aplicaciones Cliente y de esa forma avanzar con el proyecto.

Posteriormente cada método que se agregue en el Servidor, se hará la el proceso para el llamado del mismo desde la Aplicación Cliente para avanzar de forma paralela.

Primero vamos a rediseñar el método ValidaUsuario() ya que requerimos que además de validar que el usuario existe es necesario obtener la información del usuario que inició sesión en el sistema y mostrarla en la ventana principal.

Posteriormente vamos a crear el método Habitaciones() el cual nos regresará la información de las habitaciones para generar lo que en hotelería se le conoce como Rack de Habitaciones.

Un Rack permite visualizar de forma inmediata el estado de las habitaciones (Disponible, Ocupada, Limpia, Sucia, etc.) en una relación Habitación / Día, la siguiente imagen nos muestra un ejemplo de éste visor .

Vamos a mostrar dos formas diferentes de regresar objetos JSON para que ustedes decidan cual se adapta a sus necesidades. Para realizar esto se van a utilizar las siguientes clases:

  • TJSONObject
    • Con esta clase se creará el mapeo JSON del DataSet para que puedan escribir Aplicaciones Cliente con cualquier herramienta y poder serializar el contenido con formato JSON y extraer la información contenida.
  • TFDJSONDataSets
    • Con esta clase se creará el mapeo JSON del DataSet en formato «mime encoded binary content» por lo que solo será útil cuando se use RAD Studio en ambos extremos es decir tanto en el Servidor como en el Cliente.

***En el siguiente video vamos a crear los métodos con el objeto TJSONObject.

***En el siguiente video vamos a crear los métodos con el objeto TFDJSONDataSets

Con esto terminamos el Episodio 2 el cual hice en dos partes para separar el motor y los métodos que serán consumidos.

En el siguiente Episodio comenzaremos a diseñar nuestra aplicación de Escritorio para las plataformas Windows y Linux.

***Mientras tanto los invito a experimentar con la creación de métodos utilizando los dos enfoques TJSONObject y TFDJSONDataSets .

Nos vemos en la próxima

Nos vemos en la próxima entrada.

Proyecto Multiplataforma – Episodio 1 (Diseño de la Base de Datos)

Hola amigos,

Ya estamos listos para iniciar nuestro Proyecto Multiplataforma y lo primero que vamos a hacer es darle un nombre. En realidad no fue demasiado el tiempo que ocupé pero entre varios nombres que se me ocurrieron he elegido el siguiente:

***Aztlán Resort***

Si deseas conocer que es Aztlán da clic aquí.

Ahora, vamos a determinar «el que», «el como» y «el para qué» del proyecto y a partir de ahí crear nuestra base de datos.

Propósito

  • El sistema debe solicitar el registro del usuario que desea acceder al sistema. (Los perfiles de usuario no los veremos por ahora).
  • El sistema debe permitir al usuario ver el rack de habitaciones disponibles y ocupadas.
  • El sistema debe controlar las entradas de huéspedes.
  • El sistema debe permitir realizar cargos de consumos a la cuenta del huésped.
  • El sistema debe permitir a los clientes la búsqueda de habitaciones y ver sus detalles; costo, tipo de habitación, fotos, etc…
  • El sistema debe permitir consultar el estado de cuenta del huésped.
  • El sistema debe controlar la salida y los pagos de los huéspedes.

Definición

Nuestro sistema deberá contar con la información necesaria para poder controlar las habitaciones, su ocupación, todos los consumos de los huéspedes durante su estancia y la salida y pagos del huésped.

De acuerdo a lo anterior vamos a proceder a definir las tablas y su relación entre ellas, No vamos a profundizar en el diseño de una base de datos compleja ya que no es el objetivo que buscamos con el proyecto.

Tablas de la Base de Datos

  1. Habitaciones
    • Tabla Catálogo
    • Esta tabla contendrá las habitaciones del hotel así como la información de precios y disponibilidad.
  2. Tipo Habitación
    • Tabla Catálogo
    • Esta tabla contendrá los tipos de habitación y sus detalles.
  3. Reservas
    • Tabla Operativa
    • En esta tabla se registrarán las entradas y salidas de las habitaciones del Hotel y nos servirá para mostrar el rack de habitaciones.
  4. Clientes
    • Tabla Catálogo
    • Esta tabla contendrá la información de los huéspedes del Hotel
  5. Consumos
    • Tabla Operativa
    • En ésta tabla se registrarán todos los cargos por consumos durante la estancia del huésped en el Hotel.
  6. Pagos
    • Tabla Operativa
    • En esta tabla se registrarán todos los pagos que realice el huésped.
  7. Empleados
    • Tabla Catálogo
    • En esta tabla se registrarán a los usuarios del sistema.
  8. Productos
    • Tabla Catálogo
    • Catálogo de productos que el Hotel comercializa.

Relaciones

La Tabla HABITACIONES se relaciona con la Tabla TIPO_HABITACION a través del campo HABITACIONES.TIPO_HAB_ID con el campo TIPO_HABITACION.TIPO_HAB_ID.

La tabla RESERVAS se relaciona con la Tabla HABITACIONES a través del campo RESERVAS.HABITACION_ID con el campo HABITACIONES.HABITACION_ID y también con la Tabla CLIENTES a través del campo RESERVAS.CLIENTE_ID con el campo CLIENTES.CLIENTE_ID.

La Tabla CONSUMOS se relaciona con la Tabla RESERVAS a través del campo CONSUMOS.RESERVA_ID con el campo RESERVAS.RESERVA_ID y con la Tabla PRODUCTOS a través del campo CONSUMOS.PRODUCTO_ID con el campo PRODUCTOS.PRODUCTO_ID.

Por último la Tabla PAGOS se relaciona con la Tabla RESERVAS a través del campo PAGOS.RESERVA_ID con el campo RESERVAS.RESERVA_ID.

Diagrama Entidad Relación

Como pueden observar todas las tablas tienen una relación excepto la tabla EMPLEADOS la cual solo tendrá la función de permitir la entrada de usuarios al sistema.

*** No estamos considerando ningún acceso restringido (privilegios de usuario) ni contraseñas cifradas ya que no es parte del objetivo del proyecto.

Motor de Base de Datos

En mi caso he decidido utilizar el motor de Firebird para generar la Base de Datos del sistema, ustedes pueden elegir la que consideren mejor.

Campos Auto Incrementables

Para la asignación de nuestras llaves primarias como campos auto-incrementables se creó el generador (GEN_CAT_ID) el cual será ejecutado vía disparadores (Triggers) configurados en los eventos Before_Insert de cada una de las Tablas del sistema como se podrá observar en la definición de la base de datos que se muestra a continuación.


/******************************************************************************/
/*         Generated by IBExpert 2021.8.1.1 26/08/2021 05:48:13 p. m.         */
/******************************************************************************/

SET SQL DIALECT 3;

SET NAMES ISO8859_1;

CREATE DATABASE 'C:\AZTLAN\BASE\AZTLAN.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 16384
DEFAULT CHARACTER SET ISO8859_1 COLLATION ISO8859_1;

/******************************************************************************/
/*                                 Generators                                 */
/******************************************************************************/

CREATE GENERATOR GEN_CAT_ID START WITH 0 INCREMENT BY 1;
SET GENERATOR GEN_CAT_ID TO 0;

/******************************************************************************/
/*                                   Tables                                   */
/******************************************************************************/

CREATE TABLE RESERVAS (
    RESERVA_ID       INTEGER NOT NULL,
    HABITACIONES_ID  INTEGER NOT NULL,
    CLIENTES_ID      INTEGER NOT NULL,
    FH_RESERVA       DATE NOT NULL,
    CHECKIN          TIMESTAMP NOT NULL,
    CHECKOUT         TIMESTAMP NOT NULL,
    ESTATUS          VARCHAR(10) NOT NULL
);

CREATE TABLE CLIENTES (
    CLIENTE_ID       INTEGER NOT NULL,
    NOMBRE           VARCHAR(100) NOT NULL,
    DIRECCION        BLOB SUB_TYPE 1 SEGMENT SIZE 80,
    TELEFONO         VARCHAR(15),
    GENERO           VARCHAR(10) NOT NULL,
    DNI              VARCHAR(100),
    ESTATUS          VARCHAR(10) NOT NULL
);

CREATE TABLE EMPLEADOS (
    EMPLEADO_ID      INTEGER NOT NULL,
    NOMBRE           VARCHAR(30) NOT NULL,
    MATERNO          VARCHAR(30) NOT NULL,
    PATERNO          VARCHAR(30),
    USUARIO          VARCHAR(25) NOT NULL,
    CLAVE            VARCHAR(100) NOT NULL,
    ESTATUS          VARCHAR(10) NOT NULL
);

CREATE TABLE PRODUCTOS (
    PRODUCTO_ID      INTEGER NOT NULL,
    TIPO             VARCHAR(25) NOT NULL,
    NOMBRE           VARCHAR(100) NOT NULL,
    COSTO            DOUBLE PRECISION NOT NULL,
    DESCRIPCION      BLOB SUB_TYPE 1 SEGMENT SIZE 80 NOT NULL,
    ESTATUS          VARCHAR(10) NOT NULL
);

CREATE TABLE CONSUMOS (
    CONSUMO_ID       INTEGER NOT NULL,
    PRODUCTOS_ID     INTEGER NOT NULL,
    RESERVAS_ID      INTEGER NOT NULL,
    FH_CONSUMO       DATE NOT NULL,
    CANTIDAD         DOUBLE PRECISION NOT NULL,
    COSTO            DOUBLE PRECISION NOT NULL,
    ESTATUS          VARCHAR(10) NOT NULL
);

CREATE TABLE PAGOS (
    PAGO_ID          INTEGER NOT NULL,
    RESERVAS_ID      INTEGER NOT NULL,
    IMPORTE          DOUBLE PRECISION NOT NULL,
    TIPO             VARCHAR(20) NOT NULL,
    OBSERVACIONES    BLOB SUB_TYPE 1 SEGMENT SIZE 80 NOT NULL,
    FH_PAGO          DATE NOT NULL,
    ESTATUS          VARCHAR(10) NOT NULL
);

CREATE TABLE HABITACIONES (
    HABITACION_ID    INTEGER NOT NULL,
    TIPO_HAB_ID      INTEGER NOT NULL,
    NUMERO           VARCHAR(10) NOT NULL,
    DETALLES         BLOB SUB_TYPE 1 SEGMENT SIZE 80,
    ESTATUS          VARCHAR(10) NOT NULL
);

CREATE TABLE TIPO_HABITACION (
    TIPO_HAB_ID      INTEGER NOT NULL,
    TIPO             VARCHAR(100) NOT NULL,
    DESCRIPCION      BLOB SUB_TYPE 1 SEGMENT SIZE 80 NOT NULL,
    FOTO             VARCHAR(100) NOT NULL,
    COSTO            DOUBLE PRECISION NOT NULL,
    ESTATUS          VARCHAR(10) NOT NULL
);

/******************************************************************************/
/*                                Primary keys                                */
/******************************************************************************/

ALTER TABLE RESERVAS ADD CONSTRAINT PK_RESERVAS PRIMARY KEY (RESERVA_ID);
ALTER TABLE CLIENTES ADD CONSTRAINT PK_CLIENTES PRIMARY KEY (CLIENTE_ID);
ALTER TABLE EMPLEADOS ADD CONSTRAINT PK_EMPLEADOS PRIMARY KEY (EMPLEADO_ID);
ALTER TABLE PRODUCTOS ADD CONSTRAINT PK_PRODUCTOS PRIMARY KEY (PRODUCTO_ID);
ALTER TABLE CONSUMOS ADD CONSTRAINT PK_CONSUMOS PRIMARY KEY (CONSUMO_ID);
ALTER TABLE PAGOS ADD CONSTRAINT PK_PAGOS PRIMARY KEY (PAGO_ID);
ALTER TABLE HABITACIONES ADD CONSTRAINT PK_HABITACIONES PRIMARY KEY (HABITACION_ID);
ALTER TABLE TIPO_HABITACION ADD CONSTRAINT PK_TIPO_HABITACION PRIMARY KEY (TIPO_HAB_ID);

/******************************************************************************/
/*                                Foreign keys                                */
/******************************************************************************/

ALTER TABLE RESERVAS ADD CONSTRAINT FK_RESERVAS_1 FOREIGN KEY (HABITACIONES_ID) REFERENCES HABITACIONES (HABITACION_ID);
ALTER TABLE RESERVAS ADD CONSTRAINT FK_RESERVAS_2 FOREIGN KEY (CLIENTES_ID) REFERENCES CLIENTES (CLIENTE_ID);
ALTER TABLE CONSUMOS ADD CONSTRAINT FK_CONSUMOS_1 FOREIGN KEY (PRODUCTOS_ID) REFERENCES PRODUCTOS (PRODUCTO_ID);
ALTER TABLE CONSUMOS ADD CONSTRAINT FK_CONSUMOS_2 FOREIGN KEY (RESERVAS_ID) REFERENCES RESERVAS (RESERVA_ID);
ALTER TABLE PAGOS ADD CONSTRAINT FK_PAGOS_1 FOREIGN KEY (RESERVAS_ID) REFERENCES RESERVAS (RESERVA_ID);
ALTER TABLE HABITACIONES ADD CONSTRAINT FK_HABITACIONES_1 FOREIGN KEY (TIPO_HAB_ID) REFERENCES TIPO_HABITACION (TIPO_HAB_ID);

/******************************************************************************/
/*                                  Triggers                                  */
/******************************************************************************/

SET TERM ^ ;

/******************************************************************************/
/*                            Triggers for tables                             */
/******************************************************************************/

/* Trigger: RESERVAS_BI */
CREATE TRIGGER RESERVAS_BI FOR RESERVAS
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.reserva_id is null) then
    new.reserva_id = gen_id(gen_cat_id,1);
end
^

/* Trigger: CLIENTES_BI */
CREATE TRIGGER CLIENTES_BI FOR CLIENTES
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.cliente_id is null) then
    new.cliente_id = gen_id(gen_cat_id,1);
end
^

/* Trigger: EMPLEADOS_BI */
CREATE TRIGGER EMPLEADOS_BI FOR EMPLEADOS
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.empleado_id is null) then
    new.empleado_id = gen_id(gen_cat_id,1);
end
^

/* Trigger: PRODUCTOS_BI */
CREATE TRIGGER PRODUCTOS_BI FOR PRODUCTOS
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.producto_id is null) then
    new.producto_id = gen_id(gen_cat_id,1);
end
^

/* Trigger: CONSUMOS_BI */
CREATE TRIGGER CONSUMOS_BI FOR CONSUMOS
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.consumo_id is null) then
    new.consumo_id = gen_id(gen_cat_id,1);
end
^

/* Trigger: PAGOS_BI */
CREATE TRIGGER PAGOS_BI FOR PAGOS
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.pago_id is null) then
    new.pago_id = gen_id(gen_cat_id,1);
end
^

/* Trigger: HABITACIONES_BI */
CREATE TRIGGER HABITACIONES_BI FOR HABITACIONES
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.habitacion_id is null) then
    new.habitacion_id = gen_id(gen_cat_id,1);
end
^

/* Trigger: TIPO_HABITACION_BI */
CREATE TRIGGER TIPO_HABITACION_BI FOR TIPO_HABITACION
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.tipo_hab_id is null) then
    new.tipo_hab_id = gen_id(gen_cat_id,1);
end
^
SET TERM ; ^

El siguiente paso es inicializar algunas tablas para poder construir los métodos de nuestro Servidor DataSnap.

Tipo de Habitación

INSERT INTO TIPO_HABITACION (TIPO_HAB_ID, TIPO, DESCRIPCION, FOTO, COSTO, ESTATUS)
VALUES (NULL, 'SENCILLA', 'Habitación Sencilla una cama Matrimonial', 'C:\AZTLAN\FOTOS\SENCILLA.JPG', 1200, 'DISPONIBLE');
INSERT INTO TIPO_HABITACION (TIPO_HAB_ID, TIPO, DESCRIPCION, FOTO, COSTO, ESTATUS)
VALUES (NULL, 'DOBLE', 'Habitación Doble dos camas Matrimoniales', 'C:\AZTLAN\FOTOS\DOBLE.JPG', 1800, 'DISPONIBLE');
INSERT INTO TIPO_HABITACION (TIPO_HAB_ID, TIPO, DESCRIPCION, FOTO, COSTO, ESTATUS)
VALUES (NULL, 'JUNIOR SUITE', 'Habitación Junior Suite una cama Queen Size', 'C:\AZTLAN\FOTOS\JUNIORSUITE.JPG', 2800, 'DISPONIBLE');
INSERT INTO TIPO_HABITACION (TIPO_HAB_ID, TIPO, DESCRIPCION, FOTO, COSTO, ESTATUS)
VALUES (NULL, 'MASTER SUITE', 'Habitación Master Suite una cama King Size', 'C:\AZTLAN\FOTOS\MASTERSUITE.JPG', 4500, 'DISPONIBLE');
INSERT INTO TIPO_HABITACION (TIPO_HAB_ID, TIPO, DESCRIPCION, FOTO, COSTO, ESTATUS)
VALUES (NULL, 'TEMATICA', 'Habitación Temática una cama Queen Size', 'C:\AZTLAN\FOTOS\TEMATICA.JPG', 1500, 'DISPONIBLE');
COMMIT WORK;

Habitaciones

INSERT INTO HABITACIONES (HABITACION_ID, TIPO_HAB_ID, NUMERO, DETALLES, ESTATUS)
VALUES (NULL, 1, '100', 'Pantalla plana, Internet, Cafetera', 'LIMPIA');
INSERT INTO HABITACIONES (HABITACION_ID, TIPO_HAB_ID, NUMERO, DETALLES, ESTATUS)
VALUES (NULL, 2, '101', 'Pantalla plana, Internet, Servibar, Cafetera', 'LIMPIA');
INSERT INTO HABITACIONES (HABITACION_ID, TIPO_HAB_ID, NUMERO, DETALLES, ESTATUS)
VALUES (NULL, 3, '111', 'Pantalla plana, Internet, Servibar, Escritorio, Cafetera', 'LIMPIA');
INSERT INTO HABITACIONES (HABITACION_ID, TIPO_HAB_ID, NUMERO, DETALLES, ESTATUS)
VALUES (NULL, 4, '120', 'Pantalla plana, Internet, Servibar, Escritorio, Balcón, Cafetera', 'LIMPIA');
INSERT INTO HABITACIONES (HABITACION_ID, TIPO_HAB_ID, NUMERO, DETALLES, ESTATUS)
VALUES (NULL, 5, '430', 'Pantalla Plana, Cafetera',  'LIMPIA');
COMMIT WORK;

Empleados

INSERT INTO EMPLEADOS (EMPLEADO_ID, NOMBRE, MATERNO, PATERNO, USUARIO, CLAVE, ESTATUS)
VALUES (NULL, 'ELISEO', 'G.', 'N.', 'INSTALADOR', 'DelphiAccess', 'SUPER')

Con esto hemos terminado de diseñar nuestra Base de Datos que por supuesto nada tiene que ver con un ERP Hotelero, sin embargo, nos servirá perfectamente para los fines de éste proyecto multiplataforma.

En el siguiente episodio comenzaremos a construir los métodos REST de nuestro Back-End.

*** Mientras tanto los invito a publicar sus comentarios y/o sugerencias acerca de esta entrada.

Nos vemos en la próxima

Nos vemos en la próxima entrada.

Delphi RIO y FMXLinux

Hola amigos, en esta ocasión toca hablar del nuevo y esperado Delphi para Linux Desktop y que le han llamado FMXLinux . Comenzaremos por dar su definición y los pasos a seguir para la configuración del ambiente de desarrollo, terminando con la ejecución de un ejemplo simple, si lo adivinaron…. el típico «Hola Mundo». 🙂

Ésta implementación Linux para Firemonkey es un complemento adicional que se instala en las ediciones Enterprise y Architect de Delphi y RAD Studio. Está disponible para clientes Delphi y RAD Studio Enterprise que cuentan con la Suscripción de actualización y la podrán descargar a través del GetIt Package Manager.

FireMonkey_for_Linux

Características principales de FMXLinux

– Permite crear aplicaciones GUI para Linux, extendiendo el framework de plataforma cruzada FireMonkey de Delphi.

FMXLinux expande el soporte de Delphi a las distribuciones populares de Linux.

– Incluye varios estilos de interfaz de usuario listos para usar.

– Muchos de los componentes de FMX, como grids, widgets, etc. funcionan perfectamente en clientes Linux.

– Tiene soporte de WebKitGTK para ejecutar una aplicación FMXLinux como una aplicación web HTML5 en el navegador.

Pre-Requisitos

Antes de instalar FMXLinux, es necesario tener instalado el soporte de la plataforma Linux para Delphi. Podemos verificar si tenemos instalado Delphi Linux 64-Bits desde el menú Tools > Manage Platforms como se muestra en la siguiente imagen:

Una vez que nos aseguramos que tenemos instalada la plataforma Linux, ya podemos descargar e instalar el complemento FMXLinux, para ello vamos al menú Tools > GetIt Package Manager, buscamos por «fmxlinux» y nos mostrará dos descargas, el complemento y ejemplos.

Instalamos el complemento y si lo deseamos descargamos los ejemplos para probar el funcionamiento, Al final del proceso se reiniciará el IDE.

Por supuesto necesitamos una maquina linux para poder correr nuestros programas; en mi caso instalé Ubuntu Desktop 16.04.6

Se preguntarán porque una versión antigua… Bueno, les diré que antes de instalar ésta versión de Ubuntu, instalé dos versiones mas actuales.

– Ubuntu 18.04.2 LTS
– Ubuntu 19.04

Sin embargo, no pude configurar el SDK de ubuntu para que funcionara con éstas versiones de Ubuntu Desktop, al final tuve que instalar la versión que mencioné y el SDK se instaló sin problemas, debido a mi desconocimiento de Linux perdí 3 noches intentando instakar el SDK sin éxito hasta que en un último intento funcionó con Ubuntu 16.04.6.

PD: Recien me he enterado que mi buen amigo Germán Estévez (Neftalí) tiene instalada la versión 18.04 y funciona correctamente.

Lo dicho, tengo que estudiar Linux 🙂

Instalar Linux SDK

Para instalar el SDK de Linux se requiere de instalar un repositorio, abrimos una terminal y escribiremos las siguientes instrucciones:

sudo add-apt-repository ppa:ubuntu-sdk-team/ppa

sudo apt install ubuntu-sdk

Instalar «Platform Assistant» ( PAServer ) en Linux

Necesitamos instalar «Platform Assistant» en Linux para construir e implementar aplicaciones de Linux. PAServer le permite usar el Administrador de implementación, importar el SDK de Linux y realizar una depuración remota en un sistema Linux, tal y como se hace con Android, iOS, OSX, etc.

Para instalar PAServer en Linux siga estos pasos:

– Copie el archivo LinuxPAServer20.0.tar.gz a un directorio local de la máquina Linux.

– Abra una Terminal.

– Vaya al directorio donde se localiza el archivo LinuxPAServer20.0.tar.gz.

– Descompacte el archivo LinuxPAServer20.0.tar.gz con el siguiente comando tar –xvf LinuxPAServer20.0.tar.gz.

– Se creará el subdirectorio PAServer-20.0. Y aquí encontrará los binarios de la «Platform Assistant».

Instalar dependencias en Linux

Para usar características gráficas en su aplicación de servidor, es necesario instalar algunas dependencias. No se requiere instalar todo el sistema X11 en la maquina. Para instalar dependencias en Ubuntu/Debian, abra una Terminal y escriba lo siguiente:

sudo apt install libgl1-mesa-glx libglu1-mesa libgtk-3-common libgstreamer1.0 libgstreamer-plugins-base1.0

Configuración de FMXLinux

Al instalar FMXLinux a través de GetIt, el sistema registra un «DLL Expert» que agrega el menú contextual la opción «Agregar plataforma Linux» que se indica a continuación y también agrega la carpeta de la biblioteca del repositorio de catálogo a la Ruta de la biblioteca para la plataforma Linux. Puede verificar esto en Tools > Options > Language > Delphi Options > Library y elegir Linux de 64 bits.

Crear un perfil de conexión

Para crear el perfil de la conexión es necesario que PAServer esté en ejecución en la máquina Linux, para ello abra una terminal y entre al directorio donde se ha descompactado el archivo LinuxPAServer20.0.tar.gz y ejecute el comando ./paserver como se muestra en la imagen siguiente:

A continuación entramos a Delphi RIO en el menú Tools > Deployment > Connection Profile Manager y presionamos el botón [Add], agregamos la plataforma, la máquina Host, el puerto y la contraseña (si ha solicitado una), una vez que hemos llenado las propiedades de la conexión, probamos que se conecte correctamente presionando el botón [Test Connection] y si todo sale bien presionamos el botón [Save] y salimos.

Ya estamos listos para construir nuestra primer aplicación Linux. Abrimos (File > Open) o creamos un nuevo proyecto Firemonkey (File > New > Multi-Device Application) .

A continuación presionamos el botón derecho del mouse sobre el Proyecto y seleccionamos Add Linux platform.

Seleccionamos la plataforma Linux de 64 bits (en mi caso Ubuntu 16.04.6 LTS -fmxLinux profile) e implementar muestras aplicaciones GUI en Linux. Hay que asegurarnos que PAServer se está ejecutando en la máquina Linux de destino.

Atención: Al crear una aplicación FMXLinux, puede aparecer un mensaje de error que dice que System.Devices no es compatible con esta plataforma.

Error message.png

Esto sucede porque las rutas de la biblioteca no están configuradas correctamente y, en lugar de compilarse con el archivo DCU adecuado, el compilador busca la versión original del archivo de código fuente, que no es compatible.

Delphi Linux soporta RedHat Enterprise y las distribuciones Ubuntu que se muestran en la siguiente imagen:

Y bien, ya que hemos terminado de configurar nuestro ambiente Linux Desktop.

Agregamos un botón a la forma de nuestro proyecto y el código respectivo para mostrar el ya famosísimo «Hola Mundo».

Compilamos y ejecutamos y como se esperaba ya podemos ver nuestra aplicación Delphi corriendo en Linux.

Así de fácil y rápido.

Como pueden ver, el funcionamiento es el mismo que ya conocemos para crear aplicaciones multiplataforma así que no tendrán problema para desarrollar aplicaciones Linux.

Además ya existe mucho material en la nube acerca de éste complemento FMXLinux.

FMXLinux
Running the Platform Assistant on Linux
Supported Target Platforms
Preguntas frecuentes FMXLinux

Solo me resta invitarlos a experimentar y desarrollar aplicaciones multiplataforma con nuestra herramienta de desarrollo consentida Delphi.

Nos leemos en la próxima.