Un TIMER miente!!!???!

[[Lepe]]

Me quedé pensando y al final, ni siquiera GetTickcount es fiable.

Mira este truco de Ian Marteens.

[[Crandel]]

Recien leo este hilo, asi que voy a intentar aclarar algunas cosas.

Primero, kanvictor estas mesclando dos cosas, una es contar el tiempo transcurrido entre dos eventos y el otro es mostrar este tiempo. Lo escencial es separarlos.

Donde esta tu problema? radica en que cuando le decis TTimer, que cada un segundo (por ejemplo) te genere el evento OnTimer, el TTimer espera que transcurra este tiempo y recien se llama tu evento. Lo cual genera entre un desfasaje entre el tiempo que le pediste y el momento que llegó. Sumando ese desfasaje tenes tus 10 segundos.

Por lo que veo, tus necesidades no son de controlar el tiempo con gran precición, por lo que podes usar el TTimer tranquilamente.

Para controlar el Tiempo simplemente pudes usar la función Time. Cuando recibes el mesaje desde el socket guardas el tiempo con Time y activas tu TTimer.

Luego en tu evento OnTimer:

Código Delphi [-]
formx.LabelTimer.Caption:= FormatdateTime('hh:mm:ss',Time - TiempoInicial);

y solucionado el problema

[[marceloalegre]]

Muy bien,ha quedado claro, igual al final me habia tirado para el lado del gettickcount con excelentes resultados.

Me queda ahora una duda de lo que dice Ian Marteens:

Tenga mucho cuidado, si piensa utilizar GetTickCount para este propósito.
 Cada 49 días y fracción, el contador interno sobrepasará el límite de 
çcapacidad del tipo Cardinal. Si tenemos la mala fortuna de hacer la primera 
llamada antes del suceso, y la segunda después, obtendremos una diferencia 
exageradamente grande, suponiendo que utilizamos un Cardinal para el 
resultado. Si nuestro algoritmo trata sobre teclas y combos de búsqueda, no 
puede pasar nada "excesivamente" malo como castigo. Pero si estamos 
controlando algún proceso peligroso... no quiero ni pensar lo que podría 
suceder.

Tiene alguna solucion el problema de que gettickcount sobrepasa el limite de capacidad de la variable o hay alguna solucion factible al tema?

[vtdeleon]

Saludos

Empezado por Dr. Marteens

¿Volvemos al punto de partida? Si queremos una buena medida, en millonésimas de segundo, del tiempo consumido por un algoritmo, podemos utilizar las funciones presentadas de esta manera:

Código Delphi [-]
const
  UnMillon = 1000000;
var
   Frecuencia, X, Y: Int64;
begin
   QueryPerformanceFrequency(Frecuencia);
   QueryPerformanceCounter(X);
   Algoritmo;
   QueryPerformanceCounter(Y);
   ShowMessage(FormatFloat('0,', (Y - X) * UnMillon div Frecuencia));
end;

Suerte

[[marceloalegre]]

Si el lo dice... ha de ser palabra Santa!!

Gracias y saludos!

[gonzalza]

1.tu sabes como generar un retardo de una instruccion de codigo a otra en delphi, sin utilizar timer? ejemplo delay algo asi

2. Y como se genera el codigo de que puede hace un button dentro de un timer, nose como meter el codigo en el timer?

[[Lepe]]

1.- Sleep(2000) se paraliza el hilo de ejecución 2000 milisegudos
Quizás Application.ProcessMessages y Application.HandleMessages pueda servier, no son un retardo en sí, pero hace que mire la cola de mensajes de la aplicación, de esa forma la interfaz no se queda congelada y permite que se haga clicks en otros botones.

2.- Dentro del evento onTimer del TTimer, añade Button1.Click, así ejecutará el código que exista para ese botón.

Saludos