FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
minutos y segundos con Tmediaplayer
Hola a Todos
¿Me podrian decir como se hace para extraer de Tmediaplayer.timeformat los minutos y segundo para mostrarlo en un Tlabel , de un reproductor de cd ?. desde ya muchisimas gracias a todos Pepetrueno |
#2
|
|||
|
|||
hola
lo primero es colocar la clausula MMSystem en el uses del form y en el evento on timer poner lo siguiente Var Trk, min, sec : Word; begin with MediaPlayer1 do Begin trk:=MCI_TMSF_TRACK(Position); min:=MCI_TMSF_MINUTE(Position); sec:=MCI_TMSF_SECOND(Position); Label1.Caption:=Format('%.2d',[trk]); Label2.Caption:=Format('%.2d:%.2d',[min,sec]); end; end; pero ten en cuenta que esto solo sirve en caso de cd de musica. si utilizas wav midi o mp3 no te sirve un saludo |
#3
|
|||
|
|||
muchisimas gracias por la informacion, me resulto y anda barbaro
pepetrueno |
|
|
|