Medir tiempo de ejecución usando Timer (Problemas)
 

Hola a todos, les comento mi nuevo problema
(Trabajo con Windows2000 y Delphi6)
Tengo en un procedimiento un proceso que tarda mucho en ejecutarse y necesito medir el tiempo de ejecución de dicho proceso. Para ello he añadido un TTimer y un par de procedimientos 'set' y 'end'. El primero se encarga de activar el Timer (Timer.Enabled=true) lo llamo justo antes de la llamada al proceso principal y el segundo justo cuando termina y se encarga de desactivar el Timer.

He puesto unos label en el formulario de tal forma que cada segundo el evento del 'Timer' del timer me pinta el reloj, que avanza segundo a segundo.
Todo esto funciona OK, el problema es cuando se llama al proceso principal que se apodera de la ejecución y el contador ¡no funciona!

También he probado a iniciar el cronómetro por un botón y luego invocar al procedimiento, en cuanto que empieza el éste, el crono deja de funcionar.

¿Alguien sabe como hacer para que ambos procesos puedan funcionar y el contador me cuente el tiempo de cómputo del proceso principal?

Adjunto un esquema de los procedimientos

Código Delphi [-]

procedure Tform1.inicio();
begin
        // Inicialización del cronómetro
        form1.set();
        // Llamada al proceso principal
        resultado := generarProceso([...]);
        // Paramos el cronómetro
        form1.end();
end;

procedure Tform1.set();
begin
        segundos:=0;minutos:=0;horas:=0;dias:=0;
        form1.Timer1.Interval := 1000;
        form1.Timer1.Enabled := true;
end;
 
procedure Tform1.end();
begin
        form1.Timer1.Enabled := false;
end;
 
procedure Tform1.Timer1Timer(Sender: TObject);
begin
segundos := segundos + 1;
if (segundos > 59) then
 begin
 segundos := 0;
 minutos := minutos + 1;
 if (minutos > 59) then
  begin
  minutos := 0;
  horas := horas + 1;
  if (horas > 23) then
   begin
   horas := 0;
   dias := dias + 1;
  end;
 end;
end;
// Pintar el reloj en el form
form1.lbSegundos.Caption := inttostr(segundos);
form1.lbMinutos.Caption := inttostr(minutos);
form1.lbHoras.Caption := inttostr(horas);
form1.lbDias.Caption := inttostr(dias);
end;

Muchas gracias y un saludo.

Hola, primero te recomiendo que utilices otro método para medir el tiempo, ya que el TTimer es muy impreciso y con tiempos tan largos peor todavia.. :mad:
En Torry podés encontrar varios Timer más precisos.
Otra opción es utilizar la API GetTickCount, documentada acá. Esta función te devuelve la cantidad de tiempo (en milisegundos) que hace que la computadora esta encendida.
Cuando iniciás el proceso guardas el valor que te devuelve GetTickCount y con un TTimer común (con un intervalo menor a 1 segundo) vas comparando el valor que te da GetTickCount con el de la variable y luego haces los cálculos y actualizás los labels.

Para solucionar esto tenés que "encerrar" el proceso en un TThread. En la ayuda de Delphi está bien documentada la clase y el buscador de los foros tambien te va a ser de gran ayuda.
EDITO: En lugar de usar un Thread, proba añadiendo Application.ProcessMessages en el proceso.

Bytes!!

Hola y gracias por tu respuesta.

Perdona, pero tengo poca experiencia con Delphi.
¿Podrías ponerme aunque sea a modo de esquema cómo puedo usar la función GetTickCount como comentas?

Voy a documentarme sobre el TThread, ¿tendría que meter en una hebra ambos procesos?

un saludo.

Declará a Inicio y T_Actual como Extended;
El codigo que iría antes de iniciar el proceso seria éste:

Código Delphi [-]
  Inicio:= GetTickCount; //En Inicio guardas el valor que te devuelve GetTickCount cuando inicias el proceso
  Timer1.Interval := 300;
  Timer1.Enabled := true;
  //Acá tendrias que inciar el proceso

Y éste es el evento OnTimer del Timer:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var dif: extended;
begin
  T_Actual := GetTickCount;
  dif := (T_Actual - Inicio) / 1000; //En dif se almacena cuantos segundos pasaron desde que se inició el proceso
  Label1.Caption := FloatToStr(Round(dif)); //Se redondea dif y se muestra
end;

No sé que tipo de proceso es el que estás ejecutando pero primero proba añadiendo Application.ProcessMessages.
Y si lo haces con Threads, tenés que poner en uno solo el proceso que vos manejas, ya que el TTimer crea un Thread propio.

Con GetTickCount no necesitas un Timer. Aquí tienes un ejemplo sacado de Ians Marteens "midiendo el tiempo con precisión", adaptado por mí:

Código Delphi [-]
type


   TPerformanceTime = Class(TObject)
  private
    FElapsed: Int64;
    FStart, FFinish, FFrec:Int64;
    function GetFElapsedTime: String;
    public
      procedure Start;
      procedure Finish;
      property ElapsedTime : String read GetFElapsedTime;

    end;
implementation

{ TPerformanceTime }

  const MiliSegundos = 1000;

procedure TPerformanceTime.Finish;
begin
  QueryPerformanceCounter(FFinish);
  FElapsed := (FFinish - FStart) * MiliSegundos div FFrec;
end;

function TPerformanceTime.GetFElapsedTime: String;
begin
  result := Format(' %d Milisegundos',[FElapsed]);
end;

procedure TPerformanceTime.Start;
begin
   QueryPerformanceFrequency(FFrec);
   QueryPerformanceCounter(FStart);
end;

Ejemplo de uso:

Código Delphi [-]
var Counter : TperformanceTime;
begin
  Counter := TPerformanceTime.Create;
  Counter.Start;
  // algoritmo a medir el tiempo;
  Counter.Finish;
  ShowMessage(Counter.ElapsedTime);
  Counter.Free;
end;

Como el cronómetro usado es del ordenador, no importa si nuestra aplicación se queda congelada.

Saludos

Muchas gracias. Voy a intentar lo que me has explicado.
Ya te comento si tengo algún problema.

Un saludo.

Muchas gracias Lepe, justo estaba buscando algo simple pero preciso para medir el tiempo, me vino muy bien tu clase, se agradece...

Yo solo utilizaria la funcion TimeGetTime (ideal para lo que necesitas)de la unidad MMSystem ,mas o menos de esta manera:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var dwTiempo: DWord;
begin
    dwTiempo:=TimeGetTime;//aqui  se inicia
    //hago lo que tengo que hacer;
    ...
    ...
    ...
    //al final muestro el tiempo
   ShowMessage( 'Tiempo: '+IntToStr(TimeGetTime-dwTiempo)+' milisegundos' );
   //sencillo optimo y practico;):D
end;

Edito:Esto es sin Timer y sin ninguna Clase extra.;)
y es mas precisa que GetTickCount.

Hola, te recomiendo que en varias partes de tu codigo, por ejemplo dentro de un bucle, uses la instruccion "Applicattion.proccessmessage;"
Esta instruccion hace que windows procese los mensajes pendientes y da el efecto que la aplicacion no se congela. Asi se pueden ejecutar las instrucciones del timer.
Yo lo uso asi y me funciona.

Apuntada tu sugerencia amigo Brandolin pero creo que haciendolo con un timer no es muy Optimo.;)
Saludos...

Aqtime es lo mejor que he visto y usado para medir tiempos de ejecucion y buscar cuellos de botella o procesos inecesariamente lentos.
Saluos

Pues me alegro que este post, con cuatro años de vida nos haya ayudado tanto.
Saludos.

retomando este hilo...
 

Hola a todos.

Si alguien llega acá buscando respuestas a "MEDIR EL TIEMPO CON PRECISIÓN" igual que llegué yo, les comento que encontré la solución en:
http://arsenio-programa.blogspot.com...45989046264412

Sencillo, muy clarito, muy profesional, muy recomendable