Ayuda con una consulta continua

[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;

[roman]

Pues eso, la propiedad Interval especifica cada cuanto se ejecuta el evento OnTimer (en milisegundos) Por defecto está en 1000 (1 segundo), por ello tienes que ponerle 5 (minutos) * 60 (segundos) * 1000 = 300000

// Saludos

[vaporlalibre]

Excelente, muchas gracias, una ultima pregunta el intervalo de 5 minutos a cada 5 minutos del sistema, o cada 5 minutos a partir de que se inicia la aplicación.

[roman]

Empezado por vaporlalibre

a cada 5 minutos del sistema

No entiendo a qué te refieres con esto. La primera vez que se ejecuta el evento será a los cinco minutos de que su propiedad Enabled se ponga en true. Como por defecto está en true. entonces se ejecutará la primera vez a los cinco minutos de iniciada la aplicación.

Luego de esto, se ejecutará cada cinco minutos.

// Saludos

[[Bicho]]

Empezado por 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.

Yo lo que dije es que me parecia excesivo hacer la consulta cada segundo para cada usuario. Pero ponerlo a 30 segundos o cada cinco como al final se ha decidido, no veo problemas. Quizá yendo cada segundo no los habría, pero no sé, no me convence la idea

En cuanto a lo del timer, para quede claro o más liado todavía
El timer se activa tiene la propiedad Enabled que es la que dice si el reloj tiene que estar en marcha o no. Si está a True en diseño, al ejecutar la aplicación, arrancará el timer, con lo cual, a los 5 minutos de arrancar hará la consulta.
Por contra, sino está en marcha el timer al arrancar la aplicación o lo has detenido por cualquier cosa, éste queda desactivado hasta que vuelvas tú a darle la propiedad Enabled a True.

Espero quede más claro. No quiero decir que roman lo haya liado, alomejor lo he liado yo, pero en fin...

Saludos