TMediaPlayer: Tiempo de reproducción de un MP3.

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

[Jose_Pérez]

Estoy utilizando Delphi 5.

Saludos.

[mauriciofox]

usas extract ,o mejor buscalo bien en la ayuda que te explica mejor el commando es que hace muscho no trabajo con el.

[CID]

Una simplificación de tu código:

Código Delphi [-]
procedure TFPral.Establecer_Tiempos;
var Hs, Min, Seg: integer;
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);
LTiempo.Caption := Format('%.2d:%.2d:%.2d',[hs,Min,Seg]);
Ltema.Caption := ExtractFileName(Reproductor.FileName);
Proceso.Enabled := True;
Play.Enabled := True;
end; { Fin Establecer_Tiempos }

[Diegolito]

Hola no me entero del codigo, lo pongo y no funciona, si alguien me lo puede explicar se lo agradezco.

[[Delphius]]

Empezado por Diegolito

Hola no me entero del codigo, lo pongo y no funciona, si alguien me lo puede explicar se lo agradezco.

Disculpa pero, ¿te arroja algún error? Se mas específico. Al decir no funciona no podríamos decir a ciencia cierta que es lo que te está fallando. Podría explicarte el código pero para ello dinos cual copiaste: el primero o el segundo (aunque esto sería irrelevante... son prácticamente iguales).

Saludos,