TMediaPlayer: Tiempo de reproducción de un MP3.

[Jose_Pérez]

Hola:

¿Cómo puedo saber el tiempo de reproducción de un MP3 (mm:ss) con un TMEdiaPlayer?.

Saludos y gracias.

[Descendents]

creo recordar que hay una propiedad que te da los segundos
i luego haces este procedimiento i ya.

var t,h,m,s :integer;
begin
t := 3671;
m := t div 60;
h := m div 60;
m := m mod 60;
s := t mod 60;
showmessage(inttostr(t)+' segundos se transforman en '+inttostr(h)+' horas y +inttostr(m)+' minutos y '+inttostr(s)+' segundos');


Saludos

[[Delphius]]

Esto se puede hacer de esta manera:

Código Delphi [-]
procedure TFPral.Establecer_Tiempos;
var Hs, Min, Seg: integer;
    LHs, LMin, LSeg: string;
begin
// la barra de proceso trabaja en segundos
Proceso.Min := 0;
Proceso.Max := Reproductor.Length Div 1000;
Proceso.Position := 0;
// calcular tiempo
Seg := Reproductor.Length Div 1000;
Hs := Seg Div 3600;
Seg := Seg - (Hs * 3600);
Min := Seg Div 60;
Seg := Seg - (Min * 60);
if Hs >= 10
   then begin
        LHs := IntToStr(Hs);
        end
   else begin
        LHs := '0'+IntToStr(Hs);
        end;
if Min >= 10
   then begin
        LMin := IntToStr(Min);
        end
   else begin
        LMin := '0'+IntToStr(Min);
        end;
if Seg >= 10
   then begin
        LSeg := IntToStr(Seg);
        end
   else begin
        LSeg := '0'+IntToStr(Seg);
        end;
LTiempo.Caption := Lhs +':'+ LMin +':'+ LSeg;
Ltema.Caption := ExtractFileName(Reproductor.FileName);
Proceso.Enabled := True;
Play.Enabled := True;
end; { Fin Establecer_Tiempos }

Para que funcione correctamente asegúrate antes de hacer dichos cálculos que la proopiedad TimeFormat tenga el valor tfMilliseconds.

[Jose_Pérez]

Gracias por vuestras respuestas. Me han servido para resolver el problema.

Saludos.

[[Delphius]]

Ha.. se me olvido decirte Jose_Pérez que si estas usando Delphi 5 o inferior, el componente TMediaPlayer tiene unos "pequeños" fallos. Para ello debes buscar una versión nueva.. Pero si tienes Delphi 6 o superior no te hagas drama...

[Jose_Pérez]

Hasta ahora no he tenido problemas. ¿Cuales son esos fallos?.

Saludos.

[[Delphius]]

No me acuerdo muy bien, la verdad es que lo leí en un libro para principiantes en Delphi... pero creo que el error se producía cuando se le pasaba un nuevo archivo a reproducir. Lo que sucedía es que el TMediaPlayer en vez de "actualizar" el valor de ciertas propiedades, las "sumaba". Otro error que me acuerdo se encontraba en el evento Stop().
Pero como te dije, si estas usando Delphi 6 o superior no tendrás problemas. En caso contrario si.
La verdad es que yo use el TMediaPlayer en Delphi 6 y por eso nunca tuve problemas... sino no estaría escuchando música con el reproductor que me hice!

[Jose_Pérez]

Mira por donde yo acabo de detectar un error. Cuando el path+nombre_de_archivo es muy largo, da problemas.

Saludos.

[[Delphius]]

Disculpa, que versión de Delphi usas?... que tan largo tiene que ser para que se produzca el error?