durée fichier vidéoRésolu

Question

Bonjour,
existe-t-il un moyen de connaître rapidement la durée d'une vidéo gérée par windows ainsi que d'un gif animé ?

merci

cptpingu · Accepted Answer

Je n'ai pas testé, donc cela risque de ne pas marcher du premier coup:

function GetVideoTime(Fichier: string): string;
begin
  Result :=  '';
  mciSendString('close ' +





 Fichier





, 0, 0, 0);




  mciSendString('open ' + Fichier + ' type MPEGVideo alias fichier', 0, 0, 0);
  mciSendString('set ' + Fichier + ' time format ms', 0, 0, 0);
  mciSendString('status' + Fichier + ' length', Result, 128, 0);






  mciSendString('close ' + Fichier, 0, 0, 0);




 end ;

function FormatTemps(dTemps: double): string:
var
  lHeure: double;
  lMinute: double; 
  lSeconde: double;
  lTemps: double;
begin   
  lHeure : = dTemps / 3600;
  lMinute :=  (lTemps - 3600 * lHeure) / 60; 
  lSeconde := lTemps - 3600 * lHeure - 60 * lMinute;
  Result := IntToStr(round(lHeure);

  Result := 
Result
 + ':' + IntToStr(round(
lMinute
);

  Result := 
Result
 + ':' + IntToStr(round
(lSeconde);

 end ;

DureeFichier : = FormatTemps(
GetVideoTime
('Nom du fichier') / 1000)) 

En cas de Probleme, mettre des Pchar sur les chaines (mciSendString(Pchar('truc'),0,0,0))

Déclarer mmsystem.pas ou winmm.dll
Code honteusement pompé à partir de cette page :
http://www.codyx.org/snippet_duree-fichier-audio-ou-video_13.aspx

Bestdoud · Answer

Et pour le bitrate et le nombre d'images par seconde c'est possible avec le même system?

cptpingu · Answer

Je n'ai jamais essayé, mais sur des fichiers asf on obtient ce genre d'inofrmations en cliquant droit > propriétés > résumé.
Donc cette méthode est peut être adaptable...

Durée fichier vidéo

3 réponses

Votre réponse

Discussions similaires