Mejor Windows o Linux
 

Este post es como continuacion del: www.clubdelphi.com/foros/showthread.php?t=13208

Tal y como comenté en otro post donde mencionaba los tiempos obtenidos en dar una serie de altas a una base de datos de FB 1.5 desde Delphi con diversos Componentes de acceso a este, he realizado otra prueba para poder determinar el empleo del servidor de dicho FB bien sobre plataforma WINDOWS o bien sobre LINUX.

Los implicados han sido:

Windows 2000 Profesional SP4, todo similar al post anteriormente citado.
Lenguaje: DELPHI 6, con SP2.
Linux MANDRAKE 10
Firebird-1.5.1.4481-Win32
FireBird 1.5 Classic Server (sin Actualizar a 1.5.1) en Linux
VMWare 4.0 en Linux con Windows XP SP1 como Invitado

La Base de Datos será exactamente la misma que en el otro post, a la cual le añadiré otro Store Procedure definido de la siguiente manera:

Código SQL [-]
CREATE PROCEDURE INICIO 
AS
DECLARE VARIABLE I INTEGER;
DECLARE VARIABLE VALORCAMPO1 VARCHAR(20);
DECLARE VARIABLE VALORCAMPO2 VARCHAR(20);
BEGIN     I = 0;
     WHILE (I <= 500000) DO
     BEGIN
           VALORCAMPO1 = 'Valor Campo1: ' || CAST(I as varchar(20));
           VALORCAMPO2 = 'Valor Campo2: ' || CAST(I as varchar(20));
           INSERT INTO  TABLA1  ( tabla1.id ,  tabla1.campo1, tabla1.campo2 ) values(:I, :VALORCAMPO1, :VALORCAMPO2 );
           I = I + 1;
     END
  SUSPEND;
END

Con ello lo que pretendo es que lanzando el Procedimiento, desde una aplicación Win32 realizada en Delphi, se produzca a nivel servidor de FireBird una inserción másiva (500.000) de filas a la manera similar del post citado (la verdad es que lo cito mucho, eehhh?);

El código para ello es el siguiente:

Código Delphi [-]
procedure TForm1.ButtonComenzarClick(Sender: TObject);

var tInicio: TDateTime;
    tFinal: TDateTime;

    tSegundosInicio: Integer;
    tSegundosFinal: Integer;
begin

    IBDatabase1.Close;
    IBDatabase1.DatabaseName := Trim(EditBaseDatos.Text);

    IBDatabase1.Open;

    IBTransaction1.Active := True;
    tInicio := Now;
    tSegundosInicio := (StrToInt(FormatDateTime('hh', tInicio)) * 3600) +
                        (StrToInt(FormatDateTime('nn', tInicio)) * 60) +
                        (StrToInt(FormatDateTime('ss', tInicio)) * 1) ;


    LabelInicio.Caption := 'Hora Inicio: ' + DateTimeToStr(Now);

    IBStoredProc1.Close;
    IBStoredProc1.ExecProc;

    IBTransaction1.Commit;

    tFinal := Now;

    tSegundosFinal := (StrToInt(FormatDateTime('hh', tFinal)) * 3600) +
                        (StrToInt(FormatDateTime('nn', tFinal)) * 60) +
                        (StrToInt(FormatDateTime('ss', tFinal)) * 1) ;

    LabelFinal.Caption := 'Hora Final: ' + DateTimeToStr(Now);
    LabelInvertido.Caption := 'Segundos Invertidos: ' +
    IntToStr(tSegundosFinal - tSegundosInicio);
end;

Como se observa para ello he empleado los componentes IBX, y durante el mismo no efectúo ningún Commit a no ser al final del mismo.

La aplicación sobre el FB en WIN2K se realiza una vez reiniciado el equipo.

La misma aplicación compilada en WIN, se copia a Linux, de tal manera:

En Linux Mandrake 10 con kernel 2.6, instale el FB 1.5 Classic, (NO el Super Server); así mismo obtuve una copia de demostración de VMware Workstation 4.5 (www.vmware.com), la que me valió de prueba. Una vez instalado el VMWare instale una copia de WINXP SP1 como sistema invitado, y sobre este instale únicamente un cliente de FB y la aplicación en Delphi comentada antes.

Lo que he pretendido es ver el tiempo de ejecución del Store Procedure ejecutándose sobre una plataforma íntegramente Win2K y otra híbrida, es decir, servidor FB en Linux y Cliente en una máquina virtual de WinXP sobre dicho Linux; la aplicación claro está, es exactamente la misma.

Cabe citar que en Linux están corriendo bastantes demonios como Samba, NFS y un montón que ahora no recuerdo; así mismo el XP accede a Linux mediante NAT, con lo cual tanto servidor como cliente (invitado) gozan de diferentes IP,s internas, lo cual en cierta manera, es una pequeñita red dentro de la misma máquina; es por complicarlo un poco más.

Una vez lanzada la aplicación 3 veces en cada plataforma y sacada la media, estas arrojan los siguientes tiempos medidos en segundos:

En base a ello, cada uno puede adoptar por instalar el servidor bajo la plataforma que considere más oportuna.

No he podido realizar comparativas entre Delphi y el Kylix correspondiente, dado que no dispongo de Kylix, mala suerte; no obstante sigo pensando que la cosa no tiene color.

Espero que tanto este post como el anterior, os pueda servir de ayuda y guía, si es que aún no estaba muy clara la cosa.

Y sobre todo, perdonar todo este rollo.

Tengo alguna sugerencia sobre la comparativa.

En primer lugar, si no entiendo mal, haces una prueba con windows 2000 directamente y otra con linux mandrake 10 poniendo un windows xp en un vmware. El vmware como tu dices te crea conexiones de red virtuales median NAT y esas historias seguro que haran que la cosa vaya algo más lenta.

Por otra parte está lo del los modos síncrono o asíncrono. No es para tomarselo a la ligera, yo hice mis pruebas, sobre un servidor windows 2003, accediendo en red desde un cliente windows xp: haciendo un monton de miles de inserciones y haciendo commit cada unas cuantas, con modo síncrono tardaba como 4 minutos y con asíncrono como 30 segundos, una diferencia bastante importante. Hay que tenerlo muy en cuenta porque si no se modifica esto en cada base de datos, firebird 1.5 las crea por defecto en modo asíncrono en linux y en síncrono en windows.

Yo propongo tres tipos de pruebas:

• hacer esa prueba accediendo en red con un programita hecho en delphi desde un cliente windows xp a un servidor linux con kernel 2.6 a traves de samba 3 y a otro windows server 2003 (digo 2003 y no 2000 porque tambien pones un linux con kernel 2.6, para que sean más o menos de la misma epoca, a fin de cuentas aunque sea el 2000 con service pack 17 3/4 no deja de ser 2000)
• Hacer las dos pruebas en local sin vmware ni emulaciones extrañas, mediante un script sql que ejecutas exactamente igual tanto en windows como en linux. Mediante el script tambien se pueden sacar los tiempos preguntando al servidor firebird.
• Combinacion de las dos anteriores: hacer la prueba en red pero sin programita de delphi sino con el script

Me brindo a prestar mi ayuda para realizar la prueba en red sobre windows 2003, lo que pasa que el servidor para windows o linux deberia ser la misma máquina, o una exactamente igual y no puedo poner linux en ese servidor.

En efecto he cometido el grave error de no pensar en ello, tienes toda la razon;

he repetido la prueba, solo en WIN2K, claro, y el tiempo ha variado

es: 84 segundos

lo corrigo en el post inicial.

ahora que tengo tiempo, voy a currar en lo que me comentas del store procedure unicamnete, para poder tirarlo directamnrete desde consola

muchas gracias por tu aclaracion y sacarmne de este GRANDISIMO error y despiste.

lo del 2003, imposible para mi.

en base a los anteriores, continuo:

he vuelto a crear la misma BD con exactamente el mismo propósito, pero, he sustituido el StroreProcedure 'INICIO', por otro denominado 'DAMETIEMPOS' con lo cual queda de la siguiente manera:

Código SQL [-]
SET SQL DIALECT 3;

CREATE DATABASE 'C:\testeo\testeo.fdb'
USER 'sysdba' PASSWORD 'masterkey'
PAGE_SIZE 4096
DEFAULT CHARACTER SET WIN1251;

CREATE GENERATOR SACARID ;
SET GENERATOR SACARID TO 0;

CREATE TABLE TABLA1 (
    ID INTEGER NOT NULL,
    CAMPO1 VARCHAR (80) CHARACTER SET WIN1251 NOT NULL COLLATE WIN1251,
    CAMPO2 VARCHAR (80) CHARACTER SET WIN1251 NOT NULL COLLATE WIN1251);

CREATE TABLE TABLA2 (
    ID INTEGER NOT NULL,
    VALOR1 VARCHAR (80) CHARACTER SET WIN1251 NOT NULL COLLATE WIN1251);

ALTER TABLE TABLA1 ADD CONSTRAINT PK_TABLA1 PRIMARY KEY (ID);
ALTER TABLE TABLA2 ADD CONSTRAINT PK_TABLA2 PRIMARY KEY (ID);

ALTER TABLE TABLA2 ADD CONSTRAINT FK_TABLA2 FOREIGN KEY (ID) REFERENCES TABLA1 (ID) ON DELETE CASCADE ON UPDATE CASCADE;

CREATE INDEX FK_TABLA2 ON TABLA2 (ID);
CREATE UNIQUE INDEX IDX_TABLA1 ON TABLA1 (CAMPO1);
CREATE UNIQUE INDEX IDX_TABLA11 ON TABLA1 (CAMPO2);
CREATE UNIQUE INDEX IDX_TABLA2 ON TABLA2 (VALOR1);
CREATE UNIQUE INDEX PK_TABLA1 ON TABLA1 (ID);
CREATE UNIQUE INDEX PK_TABLA2 ON TABLA2 (ID);


SET TERM ^ ; 

CREATE PROCEDURE DAMETIEMPOS 
RETURNS (
    TIEMPOINICIO TIMESTAMP,
    TIEMPOFINAL TIMESTAMP,
    TIEMPO INTEGER)
AS
BEGIN
  EXIT;
END
^

CREATE PROCEDURE METEENTABLA2 (
    VALORDEID INTEGER)
AS
BEGIN
  EXIT;
END
^


ALTER PROCEDURE DAMETIEMPOS 
RETURNS (
    TIEMPOINICIO TIMESTAMP,
    TIEMPOFINAL TIMESTAMP,
    TIEMPO INTEGER)
AS
DECLARE VARIABLE I INTEGER;
DECLARE VARIABLE VALORCAMPO1 VARCHAR(80);
DECLARE VARIABLE VALORCAMPO2 VARCHAR(80);
DECLARE VARIABLE tSegundosInicio INTEGER;
DECLARE VARIABLE tSegundosFinal INTEGER;
begin
     TiempoInicio = 'Now';
     tSegundosInicio =
                  (EXTRACT(Hour  from TiempoInicio) * 3600 ) +
                  (EXTRACT(Minute from TiempoInicio) * 60 ) +
                  EXTRACT(Second from TiempoInicio) ;
     I = 0;
     WHILE (I <= 5000000) DO
     BEGIN
           VALORCAMPO1 = 'Valor Campo1: ' || CAST(I as varchar(80));
           VALORCAMPO2 = 'Valor Campo2: ' || CAST(I as varchar(80));
           INSERT INTO  TABLA1  ( tabla1.id ,  tabla1.campo1, tabla1.campo2 ) values(:I, :VALORCAMPO1, :VALORCAMPO2 );
           I = I + 1;
     END

     TiempoFinal = 'Now';
     
     tSegundosFinal =
                  (EXTRACT(Hour  from TiempoFinal) * 3600 ) +
                  (EXTRACT(Minute from TiempoFinal) * 60 ) +
                  EXTRACT(Second from TiempoFinal) ;

     TIEMPO =  (tSegundosFinal - tSegundosInicio);

     Suspend;

end
^


ALTER PROCEDURE METEENTABLA2 (
    VALORDEID INTEGER)
AS
DECLARE VARIABLE IDENSTRING VARCHAR(20);
begin
  IDENSTRING = 'Valor de Id: ' || CAST(:VALORDEID as varchar(80));
  INSERT INTO  tabla2  ( tabla2 . id ,  tabla2 . valor1 ) values(:VALORDEID, :IDENSTRING );
  suspend;
end
^

SET TERM ; ^

SET TERM ^ ;

CREATE TRIGGER INSERTAENTABLA2 FOR TABLA1 ACTIVE
AFTER INSERT POSITION 0
AS
begin
   execute procedure meteentabla2(new. id );
end
^

CREATE TRIGGER TABLA1OPTENERID FOR TABLA1 ACTIVE
BEFORE INSERT POSITION 0
AS
BEGIN
    if (new. id  is null) then
    new. id  = gen_id( sacarid , 1);
END
^

SET TERM ; ^

se hace notar que pa meterle más cañita será un alta masiva de 5.000.000 filas, tal y como se refleja en el Store Procedure

tal y como comenta Rufus:

pues bien, pasando ya de historias, y dado que el mismo procedure nos devuelve el tiempo de proceso, y lanzado tanto en win2000K y linux mediante la propia consola isql,

Código SQL [-]
SELECT TIEMPO FROM DAMETIEMPOS;

tanto en async con sync los tiempos obtenidos han sido:

WIN2K Pro --- En Async = 937 y En Sync = 1.085

Mandrake 10 (kernel 2.6) --- En Async = 461 y en Sync = 523
Nota: a su vez lo he lanzado también desde la WmWare comentada, y en Async el timpo ha sido de 626.

Rufus comentó:

En ti queda la prueba en Win2003; yo no puedo.

De nuevo felicidades Julio.

NOTA: Pensaba que Firebird 1.5 ya venía por defecto en modo asíncrono incluso en Windows.

Saludos.