Discussion :

[m14w]

e cherche un moyen fiable de trouver la longuer en seconde des ficheirs midi.
Sans passer par le leceur multimedia (il me faut une commande de bas niveau ou autre chose que le lecteur)

[defluc]

Bonjour

La commande MciSendString de MMSystem et documentée dans MMedia.hlp devrait te satisfaire.

[m14w]

est ce que par le plsu pur des hasards tu saurais ou l'on peut obtenir ce fichier ?
J'ai recherché dans le repertoire de borland et je n'ai rien trouvé.
De plus sur google, il n'y a pas tellement de resultat (recent)

[defluc]

Je trouve
MMSystem.dll dans
C:\Windows
c:\Windows\System32
MMSystem.pas dans
...Delphi\Source\Rtl\Win
MMSystem.dcu dans
...Delphi\Lib
MMedia.hlp dans
...Borland Shared\MsHelp

Voir aussi

http://msdn2.microsoft.com/en-us/library/ms713277.aspx

Pour la durée, il faut utiliser les fonctions Status length ou ticks en ayant défini un format avec la fonction "Time Format"
Exemple résultant de la doc mais non convaincant quant à la fiabilité des résultats :

Code :

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

1
2
mciSendString('set fichier time format milliseconds', Nil, 0, 0);
mciSendString('status fichier length', TimeArr, 128, 0);

TimeArr étant déclaré comme ARRAY[0..128] OF char

Puis, il faut convertir TimeArr en Integer et enfin en Heures, minutes, secondes et millisecondes.

Code :

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

1
2
3
4
  TimeInt := StrToInt(TimeArr);
  Sec := (TimeInt Div 1000)mod 60;
  Min := TimeInt Div 60000;
  MSec := TimeInt Mod 1000;

Attention si le fichier contient plusieurs morceaux.