|
Astuces
- Composants - Récupèrer
la durée d'un fichier MP3 à partir d'un composant
TMediaPlayer |
Ajouter un composant
TButton, TLabel, TOpenDialog, et TMediaLayer.
Uses
Math;
procedure TForm1.Button1Click(Sender: TObject);
var Longueur,Heures,Minutes,Secondes:Integer;
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.TimeFormat:=tfMilliseconds; //Détermine
le format utilisé pour spécifier des informations
de position
Longueur:=MediaPlayer1.Length; //Récupère
la durée en millisecondes de la durée d'un
MP3
//Effecue différents calcul
pour récupérer les heures, les minutes et
les secondes
Heures:=Floor(Longueur div 3600000);
//La fonction "Floor"
permet d'arrondir les variables vers l'infini négatif.
Minutes:=Floor(((Longueur div 60000)-Heures*60));
Secondes:= floor((Longueur div 1000)-Heures*3600-Minutes*60);
Label1.Caption:=IntTostr(Minutes)+' minutes : '+IntTostr(Secondes)+'
secondes'; //Affiche le résulat
dans un label
end;
end;
|
|
|