Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki


Lazarus: Mi primera aplicación en Linux con Lazarus con acceso a MySQL Server
Linux


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

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":

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

Introduciremos la contraseña del usuario actual:

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

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

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

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":

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

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

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

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

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

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

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

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

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

Una vez descargados se instalarán automáticamente:

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

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

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

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.:

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

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":

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

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

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

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

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

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:

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

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:

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

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

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

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

Configuraremos las siguientes propiedades del componente "TSQLQuery":

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

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

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

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

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

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

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":

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

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":

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

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":

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

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

show tables

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

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:

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

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)


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

Para descargar gratuitamente esta aplicación pulsa aquí.

 

¿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:

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

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:

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

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)

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

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:

¿Qué se necesita para que esta aplicación Lazarus funcione en otro equipo con GNU 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

Créditos

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


Anuncios


Enviado el Viernes, 09 abril a las 01:14:07 por ajpdsoft
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A