Aplicacion lenta en otra maquina

[jmcf]

Instalarlo en Linux es un problema. Ya me gustaria a mi poder hacerlo.

En cuanto al midas lo tengo en todos los programas puestos ,pero ademas la
distribuyo y registro , ya que tengo que registrar y distribuir unos cuantos ocx, dll y codecs de video, registrar uno más que más da?

Yo el servidor si lo podría instalar en Linux. Mi problema es que el 98% de las ocasiones la misma maquina será el servidor y el cliente, y las SDK que recibo de los fabricantes no están hechas para linux , algunos me dan componentes que usan muchísimas librerias de windows, este es el problema de no hacerlo para linux.

y montar una maquina solo para el servidor de datos en linux(costo adicional para el cliente), cuando las bases de datos son muy pequeñas, hablamos de 10-20 megas, y de estos 20 megas 19'5 son de logs generados por las alarmas y sucesos de los programas que se van generando. El ususario siempre tiene visible los log del dia actual , si quiere ver otro día lo selecciona en un datetimepiker y el acceso es instantaneo.

Con lo que no me queda más remedio que seguir con Windows, y lo peor es que ahora ya no venden el XP , este último que estoy probando ahora para instalarlo la semana que viene en Sevilla , he tenido que comprar un windows7.

Conclusión : lo monto como superserver en multiprocesador y que use solo un procesador (aunque Casimiro diga que el superserver solo usa un procesador yo le puse en el CPUAffinityMask= 224 y los procesadores 6 7 y 8 tienen activadad por el Firebird 2.1.3) , pero como tampoco necesito tanta cpu para mover los pocos datos que necesito lo dejaré sólo en uno, pa, por si acaso.

También os puedo asegurar que no tengo mucha idea de lo que estoy haciendo, me puse con este mega proyecto el año pasado porque monte una empresa con otro socio y sabía que en plena crisis mundial nos costaría mucho salir adelante y como tenía tiempo (no teniamos trabajo ) me dió por hacer este super programa (ya llevaré facilmente más de 150.000 líneas de código) en delphi7, porque hace muchos años estuve cacharreando con el primer delphi, al final con saber un poco de ingles , haces código en pascal.

Cuando yo ejecute por primera vez el delphi7 y VI UNA PALETA DE COMPONENTES QUE SE SALIA DE LA VENTANA CON UNOS NOMBRES RARISIMOS, ME ASUSTE. Y OJO, la primera version del programa la hice con paradox, hasta que un día encontre este club y me enteré que paradox ya se dejo de desarrollar hace tiempo y que tenía problemas de vez en cuando........y es cierto se me colgaba, y se rompian los indices. Se hablaba en este foro mucho de Firebird, a sin que tomé la decisión de cambiar a Firebird, me tiré dos semanas intentando entenderlo y que podía hacer, y dí el salto.

Por cierto, ya que os estoy soltando este rollo de mi historia , tengo otra duda , que lo mismo lo estoy haciendo fatal el código o el planteamiento del programa(ahora son 150000 lineas pero llegerá al millón seguro) y la consulta es esta..

Yo uso Firebird, los componentes Interbase(un IBtable conexión con la base de datos y luego por cada tabla que uso lo hago con un IBdataset , un IBtransacction y un datasetprovider ,uno por cada tabla (en los servidores de aplicaciones, que conectan con firebird), no he tenido problemas y me funciona, realmente lo único que hacen es grabar, borrar y servirme los datos cuando se los pido. Por otro lado en las aplicaciones uso los sockectconnection y el connectionbroker para establecer las comunicaciones con los diferentes servidores de aplicación y establecer una autopista de comunicacion. Y siempre uso los clientDataset por ejemplo :

Código Delphi [-]
 
 if not CamicoTabla.IsEmpty then
    begin
     i_icono:=camicotablaID_ICO.Value;
     Camtabla.close;
     Camtabla.CommandText:='select * from CAMARAS where ID_CAMARA = '+inttostr(camicotablaID_CAMARA.Value);
     Camtabla.open;
     if not camtabla.IsEmpty then
       begin
        if camtablaptz.Value='SI' then preset:='1' //para que no de error cuando se activa un domo
        else preset:=' ';
        valores:=camtablanombre.Value+'\'+camtablaentradaalarma.Value+'\'+timetostr(time)+'\'+inttostr(camta  blanumcamara.Value)+'\'+preset+'\'+datetostr(date)+'\';
        if camtablaid_modelo.Value=1 then //geovision
        createprocess(pchar('alarmasvideo.exe'),pchar(valores),nil,nil,false,HIGH_PRIORITY_CLASS,nil,pchar(d  irl),startinfo,procinfo);

o buscando con locate así:

Código Delphi [-]
 //busco en la tabla  el camicotablaID_CAMARA.Value
        if  camtabla.Locate('ID_CAMARA',vararrayof([camicotablaID_CAMARA.Value]),[loCaseInsensitive]) then
          //si lo encuentra comprobamos de que grabador es
          begin
           if camtablaID_MODELO.Value=1 then //si es geovision
           begin
           // buscamos en ioconet el estado del grabador conectado-desconectado
           if iotabla.Locate('ID_GRABADOR',vararrayof([camtablaID_GRABADOR.Value]),[loCaseInsensitive]) then
            begin
              //si conectado lo ponemos de verde
             if iotablaestado.Value='conectado' then
               begin
                if assigned(comp) then
                   begin
                   if camicotablatimage.Value='Imgcam' then
                     begin
                     img:=Timage(comp);
                     img.picture:=imgverde.picture;
                     img.Hint := camicotablahint.value;
                     end;
                   end;
               end
               //si desconectado lo ponemos gris

y la conexión con los servidores de aplicación las hago así

Código Delphi [-]
 
    try
          if valor_serv='NOMBRE_SERV' then
            firebirdconnection1.Host:=nombreserv;
          if valor_serv='IP_SERV' then
             firebirdconnection1.Address:=ip_serv;
            //si la receptora es operativa conectamos con la base de datos
          if serveroperativa='SI' then
           begin
            if serverreceptoravalor='SERVER_RECEPTORA' THEN
              receptoraconnection.Host:=serverreceptora;
            if serverreceptoravalor='SERVER_RECEPTORA_IP' THEN
              receptoraconnection.Address:=serverreceptoraIP;
           if not broker2.Connected then broker2.Connected:=true; //receptora
           end;
          //si la receptora GALAXY es operativa conectamos con la base de datos
          if galaxyoperativa='SI' then
           begin
            if servergalaxyvalor='SERVER_GALAXY' THEN
              galaxysocket.Host:=servergalaxy;
            if servergalaxyvalor='SERVER_GALAXY_IP' THEN
              galaxysocket.Address:=servergalaxyIP;
            if not galaxybroker.Connected then galaxybroker.Connected:=true;
           END;
         //despues de arrancar las receptoras arrancamos el principal
         if not broker1.Connected then broker1.Connected:=true; //integracion
 
         except
         on e:exception do
          showmessage(e.Message);
         end;
       end;

¿LO ESTOY HACIENDO MAL O PUEDO SEGUIR ASÍ?
porque os puedo asegurar que estoy programando a base de ostias, y gracias a las aportaciones que haceis en el foro he ido solventando muchos probemas.

Saludos y gracias a todos

[Casimiro Noteví]

Te aconsejo que pongas el código entre etiquetas para que pueda leerse mejor [code ]tu código[/code ], echa un vistazo a esto.

¿Y exite algún motivo para no instalar la versión classic?

[jmcf]

No em principio ninguno, solo que he leido mucho que bajo windos mejor el superserver, yo probé ayer el clasic y el funcionamiento es el mismo . Ten en cuanta que las difernecias se vrrían con bases de datos pesadas y muchas conexiones clientes, y en mi caso la base de datos no pesa y solo suele haber un cliente. Supongo que me daría igual uno que otro.

Lo que tengo claro es que el día que tenga que montar esta apliacación para unos cuantos clientes sobre el mismo servidor ,montaré el servidor independiente a las apliacaciones y en linux.

la proxima vez que ponga código, intentaré hacerlo mejor, saludos

[Casimiro Noteví]

Sí, en esas condiciones es cierto que lo mismo da montar uno que otro.

Te he puesto las etiquetas [delphi ] tu código [/delphi ], ahora se lee mejor

[donald shimoda]

Empezado por jmcf

Lo que tengo claro es que el día que tenga que montar esta apliacación para unos cuantos clientes sobre el mismo servidor ,montaré el servidor independiente a las apliacaciones y en linux.

Concejo, dado que estas en un super projecto, hay algo que estas haciendo mal: usar componentes diseñados para interbase cuando tu base es firebird (parecido pero no igual). Cosas que yo revisaría:

1) Version de firebird (usa la última estable).
2) Prueba componentes específicos, caso FIB+ de devrace (excelentes) o IBO. Si quieres ir por open source prueba ZEOS, muy recomendables tambien.

Espero que te sirva.