Aplicacion Leeeeenta ...

[ixMike]

No sabemos qué puedes hacer si no sabemos lo que haces. Dices que es lenta al cargar, ¿qué cosas realiza la apliación al cargarse? ¿Qué objetos/componentes utilizas? ¿Podrías ponernos algo de código? ...


Salu2.

[[Chris]]

Piensa en estos puntos para determinar tu problema:
Haces una conección directa al servidor MS Server (no por medio de DBE o ODBC).

1. Pasa en un sólo cliente o en todos?
2. Haz monitoreado el uso de la red (puede estar saturada)
3. Que cantidad de procesamiento de datos haces al momento de iniciar tu aplicación cliente ¿Será demaciado para que se vuelva lenta?
4. se me acabaron las ideas por el momento.

Si no haces una conexión directa, pueda ser que el problema sea el DBE o bien el mismo sistema operativo.

Si ocurre en todos los clientes (inclusive con S.O. recién instalados) puede ser que el problema esté del lado del servidor.

A forma de relato, todavía estoy desarrollando una aplicación para trabajar directamente con servidor firebird, pero he notado que cuando la memoría RAM libre del servidor baja a menos de 200, mis aplicaciones clientes se vuelven leeentas, inclusive sólo con un cliente conectado. Revisa bien, para determinar en donde se encuentra el problema, luego de encontrarlo sería momento de buscar una solución.

Saludos.

[Kenobi]

Hola amigos gracias por sus respuestas, les respondo a continuacion ....


Hago conexion por medio de Ole por medio de los componentes de corelab ojo es lo mismo que con ado,

yo creo que el problema no esta en la aplicacion porque como dije, ella funcionaba bien pero la describo de manera somera a continuacion...

es una aplicacion normalita Cliente servidor a dos capas con + o - 15 tables y otro tanto en consultas actualizables(son necesarias) en el arranque pues accede a estas y luego carga en memoria algo asi como 10 forms, en su mayoria se encarga de hacer consultas a la BD y generar reportes en crystal, como dije una aplicacion normalita

yo creo que el problema esta en el servidor y o en la red, el problema es que temo que este caido un servicio o algo ,

por eso pregunto de que depende a nivel de servicios una aplicacion asi, Odbc lo uso solo para algunos reportes en crystal que se ejecutan en la aplicacion que mas debo revisar ....

Gracias por sus respuestas

[eric565]

con D7 y MSSQL Server 7
tuve el mismo problema. probé todo lo que se me venga a la cabeza y luego....
nada, nada se ha solucionado, aunque un buen dia se me ocurrió terminar un proceso (o sea, uno de los procesos...) llamado svchost y el problema se fue, así como mis temas de xp y demás artilugios gráficos que sólo sirven para quemar con mayor velocidad las pestañas, ah! otra cosa, este pc (que lo utilizo como server de internet en mi lan) quedaba con conexión pero las demás se perdían, los detalles gráficos volvían al cabo de tres minutos, pero la conexión, no.
No te digo que sea una solución, mucho menos algo saludable, pero me saca de apuros cuando el cliente está al lado mío, haciendo comentarios sobre la velocidad con la que trabaja el programa.
Si quieres más detalles, te los contaré....

[Kenobi]

Hola amigos

pues otra cosa la lentitud de la aplicacion es solo en la carga despues la cosa mejora notablemente yo diria que esta a un 90 % de su velocidad normal ....
esto con que tendra que ver ...

Gracias por sus respuestas ....

[Neftali [Germán.Estévez]]

Empezado por Kenobi

pues otra cosa la lentitud de la aplicacion es solo en la carga despues la cosa mejora notablemente yo diria que esta a un 90 % de su velocidad normal ....

Deberías explicar con detalle qué cosas estás haciendo en esa carga y tal vez colocar algo de código, de otra forma es difícil adivinar qué pasa...

[Kenobi]

Hola neftali ....

durante la carga de la aplicacion se crean los distintos formularios asi como el modulo de datos (este va de primero) y dentro de el hay pues tablas y consultas (como 15 o menos de cada uno)

aca va el codigo del dpr

Código Delphi [-]
Var
I:integer;
begin

FrmIntroProgreso:=TFrmIntroProgreso.Create(Application);

FrmIntroProgreso.Show;
FrmIntroProgreso.Update;

    Application.Initialize;
    Application.Title:='Nombre Aplicacion';
    FrmIntroProgreso.AlphaBlendValue:=FrmIntroprogreso.AlphaBlendValue+100;

    Application.CreateForm(TDataSir, DataSir);

    Application.CreateForm(TFrmPrincipal, FrmPrincipal);
    Application.CreateForm(TFrmEst, FrmEst);
  FrmIntroProgreso.AlphaBlendValue:=FrmIntroprogreso.AlphaBlendValue+30;
    Application.CreateForm(TFrmBuscador, FrmBuscador);
    Application.CreateForm(TFrmConst, FrmConst);
  FrmIntroProgreso.AlphaBlendValue:=FrmIntroprogreso.AlphaBlendValue+30;
    Application.CreateForm(TFrmCancelR, FrmCancelR);
    Application.CreateForm(TFrmCancelRL, FrmCancelRL);
  FrmIntroProgreso.AlphaBlendValue:=FrmIntroprogreso.AlphaBlendValue+30;
    Application.CreateForm(TfrmSancion, frmSancion);
    Application.CreateForm(TFrmI, FrmI);
  FrmIntroProgreso.AlphaBlendValue:=FrmIntroprogreso.AlphaBlendValue+30;
    Application.CreateForm(TFrmEg, FrmEg);
    Application.CreateForm(TFrmTrasN, FrmTrasN);
  FrmIntroProgreso.AlphaBlendValue:=FrmIntroprogreso.AlphaBlendValue+30;
    Application.CreateForm(TFrmEgr, FrmEgr);
    Application.CreateForm(TfrmS,FrmS);
    Application.CreateForm(TFrmCr,FrmCr);
    Application.CreateForm(TFrmGr, FrmGr);
 
   
for i:=FrmIntroProgreso.Barra.Position to FrmIntroProgreso.Barra.max do
begin
  FrmIntroprogreso.Barra.Stepby(5);
  sleep(10);

end;  
 FrmIntroProgreso.Hide;
 FrmIntroProgreso.Free;
Application.Run;

end.

y durante la carga del primer form (modulo de datos)

Código Delphi [-]

procedure TDataSir.DataModuleCreate(Sender: TObject);
begin
//.......RUTINA PARA ABRIR BASE DE D. Y TABLAS ..........

try
if not SqlConexion.Connected then SqlConexion.Connected:=true;
except
  application.MessageBox('Imposible conectar con la Base de Datos'+#13+'Intente mas Tarde','Aviso del Sistema',MB_OK+MB_ICONEXCLAMATION);
  application.Terminate;
end;

if Sqlconexion.Connected then
begin
    Tabla1.Open;
    Tabla2.Open;

    tabla3.Open;

    consulta1.Open;
   tabla3.Open;
    tabla4.Open;

     consulta2.Open;
     tabla5.Open;
     consulta3.Open;

     consulta4.Open;
      consulta4.Last;

end;
end;

este codigo como ven se ejecuta durante el create del modulo de datos .

el que sigue es al final (aca no es el problema porque la aplicacion si que cierra )

Código Delphi [-]
procedure TDataSir.DataModuleDestroy(Sender: TObject);
var
i:integer;
//Nombre:string;
begin
if  SqlConexion.Connected then SqlConexion.Connected:=false;

for i:=0 to self.ComponentCount-1 do
begin
   if (self.Components[i] is TDataSet) then

    if Tdataset(Components[i]).Active then Tdataset(Components[i]).Active:=false;

end;
end;

pues este es el codigo principal yo creo que la cosa esta en el modulo de datos ya que se crea primero alli durante la carga de la conexion y tablas lo que no se es identificar que elemento externo a puede estar afectando ..
por eso pregunto de que servicio depende una aplicacion como esta y como detectar si es el servidor de Bd o la red la que esta interfiriendo ....

GRacias ....