post icon

Utilizar precisión de milisegundos en Delphi

En la entrada anterior vimos como almacenar el tiempo con precisión en MySQL, ésta vez veremos algo semejante, como la función NOW de por sí no devuelve milisegundos, debemos hacer un decodificamiento del mismo para éste efecto, o caso contrario utilizar la API de Windows, el cual es mucho más preciso que la función anterior.

1
2
3
4
5
6
7
// esta es primer forma de hacerlo
var
 year, mes, dia, hora, minuto, segundo, milisegundo: Word;
begin
   DecodeDate(now, year, mes, dia);
   DecodeTime(now, hora, minuto, segundo, milisegundo);
end;
1
2
3
4
5
6
7
// Invocacion con la API de Windows, solo extrae el milisegundo, pero pueden obtener mas info del objeto TSystemTime
var
 st: TSystemTime;
begin
   Windows.GetSystemTime(st);
   MessageDlg(IntToStr(st.wMilliseconds), mtInformation, [mbOK], 0);
end
15 Abril 2010

Comentarios desde Facebook:

Sin Comentarios aun, puedes tú ser el primero en comentar!

Deja tu Comentario

Responder