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 |
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 |
muchisimas gracias por la informacion, me resulto y anda barbaro
pepetrueno |
La franja horaria es GMT +2. Ahora son las 17:32:58. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi