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

[[enecumene]]

Pues eso, tengo el siguiente código:

Código Delphi [-]
procedure TFMain.Timer1Timer(Sender: TObject);
begin
MediaPlayer1.TimeFormat := tfMilliseconds;
  if Progreso.MaxValue <> 0 then
    Progreso.Progress := MediaPlayer1.Position;
    Label2.Caption := FloatToStr(Trunc(MediaPlayer1.Position / 1000) div 60 )+ ' : ' +FloatToStr(Trunc(MediaPlayer1.Length / 1000));
end;

El tiempo me muestra de esta manera:

01 : 197

No logro que la parte de los segundos llegue a los 60 y vuelva a empezar, la de los minutos trabaja correctamente por cada 60 segundos que pasa, ¿alquien me pude ayudar con esto?.

Saludos.

[Khronos]

Hola,

Código Delphi [-]
function FMain.GetCurrentPosition: string;
var
mil, min, sec, hor: integer;
segundos, minutos: string;
begin
MediaPlayer1.TimeFormat:=tfMilliseconds;
mil:= MediaPlayer.Length;
sec:= mil div 1000;
min:= sec div 60;
hor:= min div 60;
sec:= sec mod 60;
segundos:=inttostr(sec);
minutos:=inttostr(min);
if min<10 then begin
minutos:='0' + inttostr(min);
end;
if sec<10 then begin
segundos:='0' + inttostr(sec);
end;
result:= inttostr(hor) +':' +minutos + ':' + segundos;
end;

En el TTimer,

Código Delphi [-]
procedure TFMain.Timer1Timer(Sender: TObject);
begin
MediaPlayer1.TimeFormat := tfMilliseconds;
  if Progreso.MaxValue <> 0 then
    Progreso.Progress := MediaPlayer1.Position;
    Label2.Caption := FMain.GetCurrentPosition;
end;

Salu2

[[enecumene]]

Hola, Muchas gracias Khronos, pero la función que me envias sólo me muestra el total que dura la canción y se queda fija, yo sólo quiero que los segundos empiecen desde 0 cada 60 segundos

Saludos.

[[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.