Mostrando el tiempo de una canción con TMediaPlayer (Ayuda)

[[enecumene]]

Gracias a la ayuda de eduarcol, el código quedó funcionando de pelos de esta manera:

Código Delphi [-]
procedure TFMain.Timer1Timer(Sender: TObject);
var min, sec: String;
begin
MediaPlayer1.TimeFormat := tfMilliseconds;
  if Progreso.MaxValue <> 0 then
    Progreso.Progress := MediaPlayer1.Position;
    sec := InttoStr((MediaPlayer1.Position div 1000) - (((MediaPlayer1.Position div 1000) div 60) * 60));
    min := InttoStr((MediaPlayer1.Position div 1000) div 60);
    Label2.Caption := FormatFloat('00', StrtoFloat(min));
    Label4.Caption := FormatFloat('00', StrtoFloat(sec));
end;

Saludos.

PD. Eduarcol eres un duro (Para los mal pensados no es lo que piensan)

[Khronos]

Si tienes razón enecumene no me di cuenta. Pero si en la función le pones esto:

Código Delphi [-]
mil:= MediaPlayer.Position; //mil:= MediaPlayer.length;

Te funcionaría como buscabas, la primera función era para obtener la duración de una canción y de esta manera consigues la posición actual en el formato x:xx:xx.

Salu2

[thebignico]

Retomo en este post para no abrir uno nuevo ya q es lo q estoy buscando, pero me interesaria saber como hacer para q me muestre tambien las milesimas de segundos porq lo estoy usando para edicion de video Es decir el formato q tendria q verse seria HH:MM:SS:ZZZ. Saludoss.

[[enecumene]]

Empezado por thebignico

Retomo en este post para no abrir uno nuevo ya q es lo q estoy buscando, pero me interesaria saber como hacer para q me muestre tambien las milesimas de segundos porq lo estoy usando para edicion de video Es decir el formato q tendria q verse seria HH:MM:SS:ZZZ. Saludoss.

Deberías al menos aportar algo de código y qué componentes usas.

Saludos.

[[eduarcol]]

los milisegundos salen de la diferencia entre la position y los segundos mostrados, asi de sencillo

[[enecumene]]

Empezado por eduarcol

los milisegundos salen de la diferencia entre la position y los segundos mostrados, asi de sencillo

Es que el no ha dicho qué componentes usa ya que habla de "edición de videos" y es muy probable que no use el MediaPlayer.

[sultan]

buenas señores.

os queria preguntar a cerca de este post sobre el tmediaplayer, ya que yo tengo que hacer uno, en un programa, como ampliacion, pero aun no nos han explicado como va.

tengo varios botones del tmediaplayer habilitados( play, pause, avanzar, retroceder)pero no me sale el de expulsar ni el de grabar. como los habilito para que me funcionen??

tambien queria, si se puede, hacerte una pregunta enecumene: ese "progreso.progress", de donde lo sacas?? es una variable tuya o es algun objeto que pones del tool palete?

os agradezco la ayuda de antemano

gracias