Ayuda con una consulta continua

[roman]

¿Qué componentes estás usando? En dbExpress, la componente SQLConnection tiene la propiedad booleana SQLHourGlass para controlar eso. Eso sí, no me parece lógico que eso sólo sea lo que esté alentando la aplicación.

// Saludos

[[Bicho]]

Empezado por roman

Eso sí, no me parece lógico que eso sólo sea lo que esté alentando la aplicación.

Pues a mí, si. Cada segundo está chequeando en la base de datos en busca de avisos pendientes. A mí lo que no me parece lógico, es estar cada segundo haciendo consultas al servidor por eso.

Imaginate que este programa lo tiene 100 usuarios en una empresa mediana, habría 100 consultas de ese programa que está en marcha todo el tiempo sobre el servidor, además de las que se estén haciendo por otro proceso.
Vale que el servidor puede estar preparado y no debería haber problemas, y me estoy yendo por los cerros de úbeda.
Lo que yo quiero decir, es que para un tema como el de avisos, tipo alarma o agenda, no me parace, a mi, la mejor opción la de estar chequeando cada segundo en la base de datos si hay avisos pendiente.

Yo apostaría por tener esa lista en memoria, o en su defecto en un fichero temporal. Por ejemplo, al arrancar la aplicación, que cargue de la base de datos en un fichero, los avisos pendientes para hoy, si se genera algún aviso para hoy, se cargará en el fichero.
Luego que el programa chequee, cada minuto, como minimo, ese fichero y chequee los avisos y los trate según convega.
No sé alomejor tengo una concepción mala, pero para este tipo de avisos (información breve y puntual) prefiero tenerla en memoria o en un fichero de fácil acceso.

No sé, ¿qué opinan ustedes?

Saludos

[roman]

Empezado por Bicho

Pues a mí, si.

Me refería al cambio de cursor.

// Saludos

[[Bicho]]

Sorry lo entendí mal.
Y estoy contigo, no debería ser motivo para el relentizado de la aplicación.

Saludos

[vaporlalibre]

Empezado por Bicho

Pues a mí, si. Cada segundo está chequeando en la base de datos en busca de avisos pendientes. A mí lo que no me parece lógico, es estar cada segundo haciendo consultas al servidor por eso.

Imaginate que este programa lo tiene 100 usuarios en una empresa mediana, habría 100 consultas de ese programa que está en marcha todo el tiempo sobre el servidor, además de las que se estén haciendo por otro proceso.
Vale que el servidor puede estar preparado y no debería haber problemas, y me estoy yendo por los cerros de úbeda.
Lo que yo quiero decir, es que para un tema como el de avisos, tipo alarma o agenda, no me parace, a mi, la mejor opción la de estar chequeando cada segundo en la base de datos si hay avisos pendiente.

Yo apostaría por tener esa lista en memoria, o en su defecto en un fichero temporal. Por ejemplo, al arrancar la aplicación, que cargue de la base de datos en un fichero, los avisos pendientes para hoy, si se genera algún aviso para hoy, se cargará en el fichero.
Luego que el programa chequee, cada minuto, como minimo, ese fichero y chequee los avisos y los trate según convega.
No sé alomejor tengo una concepción mala, pero para este tipo de avisos (información breve y puntual) prefiero tenerla en memoria o en un fichero de fácil acceso.

No sé, ¿qué opinan ustedes?

Saludos

Eso suena bien, peroexactamente como haria eso, asi ya no cargaria desde el servidor, si no desde memoria local.

[roman]

No sé yo que tan malo sea estar consultando al servidor. Verás, yo tengo un sistemita, claro que con pocos usuarios, no más de diez simultáneos, en donde cada cliente debe "avisar" al servidor cada tanto que aún sigue vivo. Esto lo hago cada 30 segundos y no he tenido ningún problema en tres años que ha corrido.

Es que un segundo es un exceso pero normalmente, si una tarea tiene un retraso de 30 segundos nadie se va a morir. Así que podrías también intentar esa opción. Ya si no mejora pruebas otra cosa.

// Saludos

[vaporlalibre]

Me gustaria realizar esta consulta cada 5 minutos por lo menos, pero no se como, si alguien pudiera por favor, poner aqui un codigo delphi, donde cada 5 minutos me mande un mensaje, ya yo sustituiria ese mensaje por mi codigo de consulta. Por favor lo agradeceria mucho.

P.D. Utilizo Delphi7

[roman]

No entiendo, ¿sabes lanzar la consulta cada segundo pero no cada cinco minutos? Es nada más cuestión de cambiar la propiedad Interval del timer: 5*60*1000

// Saludos

[vaporlalibre]

no se hacerloca da seguno automaticamente el timer lo hace, pues un timer lo tengo enlzadado a un label para que muestre la hora de esta manera:

procedure TForm11.Timer1Timer(Sender: TObject);
begin
label8.Caption:=timetostr(time);
label4.Caption:=datetostr(date);
end;

El segundo label es para la hora.

Y el segundo timer tengo este codigo, pero quiero que lo ejecute cada 5 minutos, de hecho no he encontrado como manejar eso de los intervalos.

procedure TForm11.Timer2Timer(Sender: TObject);
begin
datamodule.DataModule1.Agenda3.SQL.Text:='select * from agenda where hora=(:valor) and fecha=(:valor2)';
datamodule.DataModule1.Agenda3.Params[0].Value:=label8.Caption;
datamodule.DataModule1.Agenda3.Params[1].Value:=label4.Caption;
datamodule.DataModule1.Agenda3.Open;
if label8.Caption = dbedit1.Text then
begin
showmessage('Tarea pendiente');
end;
end;
procedure TForm11.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
bitbtn3.SetFocus;
end;
end;