Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites

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;


Tous droits réservés - Contacts
Haut de la page