Os explicamos cómo instalar Lazarus (IDE de desarrollo de software gratuito para GNU Linux) en GNU Linux Ubuntu 9.10 Desktop. Os mostramos paso a paso cómo crear una aplicación en GNU Linux que acceda al motor de base de datos MySQL Server. Explicamos también qué se necesita para que una aplicación desarrollada en Lazarus con acceso a MySQL Server funcione en cualquier otro equipo con cualquier distribución de GNU Linux.

• Instalación de Lazarus 0.9.26.2-2 en GNU Linux Ubuntu 9.10.
• Desarrollo de aplicación para GNU Linux con acceso a MySQL utilizando Lazarus.
• ¿Qué se necesita para que esta aplicación Lazarus funcione en otro equipo con GNU Linux?.
• Descarga de la aplicación AjpdSoft Acceso MySQL - Linux y la librería libmysqlclient.so.15.
• Artículos relacionados.
• Créditos.

Instalación de Lazarus 0.9.26.2-2 en GNU Linux Ubuntu 9.10

Instalaremos Lazarus en GNU Linux Ubuntu 9.10 Desktop, necesitaremos conexión a Internet en el equipo con GNU Linux para la instalación de lazarus.

Desde el menú "Sistema" - "Administración" - "Gestor de paquetes Synaptic":

Introduciremos la contraseña del usuario actual:

Pulsaremos en el botón "Buscar" y escribiremos "lazarus", pulsaremos "Buscar":

Entre los paquetes que ha encontrado, marcaremos "lazarus" (0.9.26.2-2), pulsando con el botón derecho sobre "lazarus" y seleccionando "Marcar para instalar":

Nos indicará que son necesarios otros paquetes: build-essential, cvs, debhelper, dpkg-dev, fakeroot, fp-compiler, fp-ide, etc. Pulsaremos "Marcar":

Pulsaremos el botón "Aplicar" para proceder a instalar los paquetes seleccionados:

Nos mostrará una ventana con el resumen de los paquetes seleccionados. Pulsaremos "Aplicar":

Se iniciará la descarga de los paquetes necesarios para instalar Lazarus en GNU Linux:

Una vez descargados se instalarán automáticamente:

Si todo es correcto, una vez finalizada la instalación de Lazarus, podremos abrirlo desde el menú "Aplicaciones" - "Programación" - "Lazarus":

Y ya tendremos disponible Lazarus, el IDE de desarrollo basado en Pascal para GNU Linux, con un entorno muy similiar al de Delphi, con la ventaja de que puede instalarse y desarrollar aplicaciones para Windows, Linux, Mac OS X, etc.:

Por supuesto, Lazarus puede ser instalado desde la ventana de terminal (shell de comandos), utilizando el comando GNU Linux "apt-get install lazarus"

Desarrollo de aplicación para GNU Linux con acceso a MySQL utilizando Lazarus

Os mostramos cómo realizar una sencilla aplicación para GNU Linux que permite ejecutar consultas SQL y mostrar el resultado en pantalla. Admite tanto consultas SQL de selección como de modificación de datos:

Abriremos Lazarus desde "Aplicaciones" - "Programación" - "Lazarus":

Pulsaremos en el menú "Archivo" - "Nuevo...":

Seleccionaremos, en "Project" "Application" (programa gráfico lcl/freepascal) y pulsaremos "Aceptar":

Desde la pestaña "Common Controls" agregaremos un TPageControl, pulsaremos con el botón derecho del ratón sobre el TPageControl y agregaremos dos pestañas (pulsando en "Insertar página"). En la primera pestaña del TPageControl añadiremos un TMemo, un TCheckBox y un TButton de la pestaña "Standard" de la paleta de componentes. Agregaremos también un TDBGrid de la pestaña "Data Controls" de la paleta de componentes:

En la segunda pestaña del TPageControl añadiremos los componentes necesarios para los datos de acceso a MySQL Server, añadiremos varios TEdit: usuario, contraseña, servidor, puerto y catálogo. Añadiremos también un TButton:

Desde la pestaña "SQLdb" agregaremos los siguientes componentes:

• TMySQL50Connection.
• TSQLQuery.
• TDatasource.
• TSQLTransaction.

Configuraremos las siguientes propiedades del componente "TSQLQuery":

• En la propiedad "Database", seleccionaremos el componente "TMySQL50Connection".
• En la propiedad "Transaction", seleccionaremos el componente "TSQLTransaction".

Para el componente "TDatasource" configuraremos la propiedad "TDataset" seleccionando el TSQLQuery

Para el componente "TSQLTransaction", configuraremos la propiedad "Database" seleccionando el "TMySQL50Connection":

El botón "Conectar" de la pestaña "Datos conexión" de nuestra aplicación para GNU Linux, en el evento OnClick añadiremos el siguiente código:

procedure TformMenuPrincipal.btConectarClick(Sender: TObject); begin
  try
    mysqlConexion.Close;
    mysqlConexion.UserName := txtUsuario.Text;
    mysqlConexion.Password := txtContrasena.Text;
    mysqlConexion.HostName := txtServidor.Text;
    mysqlConexion.port := StrToInt(txtPuerto.Text);
    mysqlConexion.DatabaseName:= txtCatalogo.Text;
    mysqlConexion.Open;
    be.Panels[1].Text := 'Conectado';
    MessageDlg('Conexión realizada con éxito.', mtInformation, [mbok], 0);
  except
    raise;
    be.Panels[1].Text := 'Error en la conexión';
  end;
end;

En el botón "Ejecutar" de la pestaña SQL de nuestra aplicación para GNU Linux realizada en Lazarus, en el evento OnClick, añadiremos el siguiente código:

procedure TformMenuPrincipal.btEjecutarSQLClick(Sender: TObject); 
begin
  if not mysqlConexion.Connected then
  begin
    MessageDlg('Primero debe realizar la conexión al servidor MySQL.',
        mtInformation, [mbok], 0);
    tabDatos.show;
  end
  else
  begin
    if txtSQL.Text <> '' then
    begin
      tcConsulta.Close;
      tcConsulta.SQL.Clear;
      tcConsulta.SQL.Add(txtSQL.Text);
      if opModificacion.Checked then
        tcConsulta.ExecSQL
      else
        tcConsulta.Open;
    end
    else
    begin
      MessageDlg('Introduzca una consulta SQL.',
          mtInformation, [mbok], 0);
      txtSQL.SetFocus;
    end;
  end;
end;

En nuestro caso hemos añadido un TLabel, para que al hacer click sobre él se abra Mozilla Firefox y navege a una URL, el código fuente para ejecutar un comando GNU Linux desde Lazarus es el siguiente:

procedure TformMenuPrincipal.Label3Click(Sender: TObject); var
  proceso : TProcess;
begin
  proceso := TProcess.Create(nil);
  proceso.CommandLine := 'firefox http://www.ajpdsoft.com';
  proceso.Execute;
  proceso.Free;
end;

Una vez añadidos todos los componentes y su código fuente compiaremos la aplicación desde el menú "Ejecutar" - "Ejecutar":

Si todo es correcto se ejecutará la aplicación, desde la pestaña "Datos conexión" introduciremos los datos del servidor de MySQL Server: usuario, contraseña, servidor, puerto, catálogo. Pulsaremos "Conectar":

Si el servidor de MySQL Server está activo, los datos de conexión son correctos y se establece la conexión correctamente nos mostrará el siguiente mensaje "Conexión realizada con éxito":

Desde la pestaña "SQL" podremos introducir cualquier consulta SQL y ejecutarla, mostrará el resultado en el DBGrid, por ejemplo:

show tables

Podremos ejecutar consultas SQL de todo tipo (SELECT, INSERT, UPDATE, CREATE, etc). Por ejemplo, la siguiente consulta SQL:

select * from chequepagare

Mostrará el resultado (los registros de la tabla MySQL indicada que cumplan el filtro) en el grid:

Para ejecutar consultas SQL de modificación de datos (SELECT, INSERT, UPDATE, CREATE, etc), intronduciremos dicha consulta SQL y marcaremos el check "Modificación":

create table tbajpdsoft
( codigo int primary key, nombre varchar(100), fecha date)

¿Qué se necesita para que esta aplicación Lazarus funcione en otro equipo con GNU Linux?

Tras compilar la aplicación Lazarus para GNU Linux, Lazarus generará un ejecutable en la carpeta donde hayamos guardado los ficheros que componen el código fuente de la aplicación GNU Linux. Si abrimos Nautilus o cualquier otro explorador de archivos (o la ventana de terminal) y accedemos a la carpeta donde hayamos guardado los ficheros podremos ver el ejecutable obtenido:

En nuestro caso, el fichero ejecutable será accesomysql. Este fichero será el que necesitaremos para que la aplicación pueda ejcutarse en cualquier otro equipo con GNU Linux (tanto para KDE como para GNOME) y casi cualquier distribución. Por lo tanto, copiando este fichero a otro equipo la aplicación se abrirá.

Además de este fichero ejecutable, para el acceso a MySQL Server, se necesitará otro fichero más, la librería que proporciona el acceso a MySQL Server, de no tenerlo, al intentar acceder a MySQL Server, la aplicacón dará un error como este:

Con el texto: Can not load default MySQL library ("libmysqlclient.so.15" or "libmysqlclient.so"). Check your installation. Press Ok to ignore and risk data corruption. Press Cancel to kill the program.

Para solucionar este problema incluiremos junto con el ejecutable el fichero (librería):

libmysqlclient.so.15

que suele estar en la carpeta /lib de nuestro equipo con GNU Linux, donde hemos desarrollado el proyecto con Lazarus. Dicho fichero hay que copiarlo a la carpeta /lib (si es un sistema operativo de 32bits) o /lib64 (si es un equipo GNU Linux de 64 bits) del equipo donde queramos ejecutar el fichero de la aplicación accesomysql.

Por ejemplo, abriendo una ventana de terminal y ejecutando el comando linux:

su - root

(para acceder como superusuario)

y este otro comando linux para copiar la librería a la carpeta /lib:

cp /AjpdSoft_MySQL/libmysqlclient.so.15 /lib

(donde "AjpdSoft_MySQL" será la carpeta donde tengamos descargada la librería libmysqlclient.so.15)

El comando anterior hay que ejecutarlo con el superusuario root, pues es el único con permisos para escribir en dicha carpeta.

Una vez copiado el fichero libmysqlclient.so.15 a la carpeta /lib ó /lib64, ya funcionará la aplicación realizada con Lazarus con acceso a MySQL Server AjpdSoft Acceso MySQL - Linux:

En el ejemplo hemos probado nuestra aplicación AjpdSoft Acceso MySQL - Linux en un equipo con Oracle Enterprise Linux, distribución de GNU Linux basada en Red Hat. Con esto demostramos que las aplicaciones desarrolladas con Lazarus funcionan en casi cualquier distribución de GNU Linux.

Descarga de la aplicación AjpdSoft Acceso MySQL - Linux y la librería libmysqlclient.so.15

Ponemos a disposición de todos nuestros usuarios registrados (si aún no te has registrado puedes hacerlo desde aquí gratuitamente) el código fuente en Lazarus, el ejecutable y la librería libmysqlclient.so.15 de para acceso a MySQL Server forma gratuita y Open Source, de la aplicación AjpdSoft Acceso MySQL - Linux, en el siguiente enlace:

Descarga gratuita de AjpdSoft Acceso MySQL - Linux

Artículos relacionados

• Instalación de Lazarus en Linux Ubuntu, acceso a SQLite 3.
• Comandos básicos para GNU Linux y ejemplos de utilización.
• Instalar GNU Linux Ubuntu 9.10 virtualizado con Sun VirtualBox 3.0.12.
• Instalar Linux Ubuntu Server 8.04.1.
• Instalar Oracle Enterprise Linux virtualizado con VMware Server en Windows 7.
• Instalación y configuración de Windows XP Service Pack 3.
• Instalación de Microsoft Windows 7 Ultimate virtualizado en VMware Server 2.0.1.
• Acceso a SQLite 3 mediante Delphi 6 y ZeosDBO en Windows XP.
• Cómo instalar Linux Red Hat Enterprise 4 Update 2.
• Utilizar un PC con Windows XP y conexión a Internet como servidor proxy.
• Cómo instalar MySQL Server 6.0 Alpha en Windows XP.
• Cómo instalar MySQL Server 4.1 en GNU Linux Ubuntu y permitir conexiones remotas.
• Instalar Oracle Database 11g Standard Edition en Windows XP Profesional.
• Instalar Microsoft SQL Server.
• Instalar DB2.
• Artículos del Proyecto AjpdSoft sobre MySQL Server.
• Artículos del Proyecto AjpdSoft sobre el sistema operativo GNU Linux.
• Artículos del Proyecto AjpdSoft sobre los sistemas operativos de Microsoft Windows.
• AjpdSoft Enciclopedia - Definición SQL.
• AjpdSoft Enciclopedia - Definición URL.

Créditos

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