temps d'un mp3

**CorO** · 15/09/2002, 12h36

Je voudrais connaitre le temps d'un mp3 (apres l'avoir ouvert avec un opendialog) j'ai essayer avec sa:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
MediaPlayer1.timeFormat:=tfMilliseconds;
Longueur:=MediaPlayer1.Length;
hms:=Longueur div 1000;
heures:=hms div 3600;
minute:=(hms-heures*3600)div 60;
seconde:=hms-heures*3600-minute*60;
Label1.Caption:=IntTostr(minute)+' min'+', '+IntTostr(seconde)+' sec.';
temps:= minute * 60 + seconde;

mais sa me donne pas le bon temps

pouquoi??

[Balise [code] rajoutée par hachesse]
[Pensez-y vous-même à l'avenir. Merci.]

**Cameleon45** · 15/09/2002, 13h33

Pour ce qui est de ton code, s' il ne t' indique pas le temps de ton MP3 correctement, c' est que tu dois t' emmeler les pinceaux...
...mais je ne suis pas suffisamment réveillé pour te dire où...

Tu as un exemple sur http://www.phidels.com avec TfMillisecond. (lecteur MP3 de Scarabée). Va y jeter un oeil.

@+

**Smortex** · 15/09/2002, 13h44

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

seconde:= (hms-heures*3600-minute*60) div 60;

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

seconde:=hms-heures*3600-minute*60;

Je peux pas vérifier : je n'ai pas Delphi sous la main.
Bon développement !

**CorO** · 15/09/2002, 15h00

sa fait exactement la meme chose....

**Cyrille2** · 15/09/2002, 16h07

smortex> hms est deja en secondes

sinon je crois que g compris ton pb...
c simple
3600 secondes donnent 1heure
mais 5200 secondes donnent 1.5 heures... toi apres tu fais
minutes = (hms-heures*3600) div 60... en realité tu fais hms-hms !

bon si t'as pas compris ce que je viens de dire
il faut qu'a chaque fois tu arrondisse a l'inférieur!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
MediaPlayer1.timeFormat:=tfMilliseconds; 
Longueur:=MediaPlayer1.Length; 
hms:=Longueur div 1000; 
heures:= floor(hms div 3600); 
minute:= floor((hms-heures*3600)div 60); 
seconde:= floor(hms-heures*3600-minute*60); 
Label1.Caption:=IntTostr(minute)+' min'+', '+IntTostr(seconde)+' sec.'; 
temps:= minute * 60 + seconde;