begin process at 2008 08 08 21:29:41
1 223 607 membres
365 nouveaux aujourd'hui
14 230 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DURÉE D'UN FICHIER AUDIO ET VIDÉO GRÂCE À L'API MCISENDSTRING


Information sur la source

Catégorie :Multimedia Classé sous : duree, video, mcisendstring, audio, temps Niveau : Débutant Date de création : 18/03/2006 Date de mise à jour : 18/03/2006 19:43:28 Vu : 5 301

Note :
8,5 / 10 - par 2 personnes
8,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

Description

Voilà un morceau de code pour récupérer la durée de fichiers vidéos (avi, mpg, wmv, asf...) et audios (mp3, wav...).
Avec à l'API mciSendString, on ouvre le fichier, on récupère sa durée et on le ferme.

Il existe aussi l'API AVIFileInfo mais elle met trop de temps à renvoyer cette valeur d'après mes tests.
Essayez de tester avec vos fichiers et dites-moi ce que ça donne. Dites-moi aussi si avez d'autres mèthodes pour effectuer cette opération rapidement et avec peu de code.

Source

  • Option Explicit
  • 'API Windows Multmedia à laquelle on envoit des commandes
  • Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  • Private Sub Form_Load()
  • Dim sFichierTest As String
  • Dim sDureeTrouvee As String
  • 'Pour tester, indiquez un nom de fichier multimédia (vidéo et son)
  • sFichierTest = "D:\Documents\Mes Vidéos\MOV029.MOD"
  • 'on récupère la durée du fichier
  • sDureeTrouvee = DureeFichier(sFichierTest)
  • 'on affiche le tout
  • MsgBox "Fichier :" & vbTab & sFichierTest & vbCrLf & _
  • "Durée :" & vbTab & sDureeTrouvee
  • End Sub
  • Private Function DureeFichier(sFichier As String) As String
  • 'On crée un buffer de 128
  • Dim sRetString As String * 128
  • On Error Resume Next
  • 'on ferme fichier au cas où il serait ouvert
  • mciSendString "close fichier", 0, 0, 0
  • 'on ouvre le fichier passé en paramètre
  • mciSendString "open """ & sFichier & """ type MPEGVideo alias fichier", 0, 0, 0
  • 'on règle le format temporel sur milliseconde
  • mciSendString "set fichier time format ms", 0, 0, 0
  • 'on récupère la durée du fichier dans le buffer
  • mciSendString "status fichier length", sRetString, 128, 0
  • 'on passe cette durée à la fonction FormatTemps et on l'affecte à la valeur de notre fonction
  • DureeFichier = FormatTemps(CDbl(Replace(sRetString, Chr(0), "") / 1000))
  • 'et enfin on ferme fichier
  • mciSendString "close fichier", 0, 0, 0
  • End Function
  • 'Fonction qui renvoie la durée formatée ainsi 00:00:00
  • Private Function FormatTemps(dTemps As Double) As String
  • Dim lHeure As Long
  • Dim lMinute As Long
  • Dim lSeconde As Long
  • Dim lTemps As Long
  • lTemps = Round(dTemps)
  • lHeure = Int(lTemps / 3600)
  • lMinute = Int((lTemps - 3600 * lHeure) / 60)
  • lSeconde = lTemps - 3600 * lHeure - 60 * lMinute
  • FormatTemps = Format(lHeure, "00") & ":" & Format(lMinute, "00") & ":" & Format(lSeconde, "00")
  • End Function
Option Explicit

'API Windows Multmedia à laquelle on envoit des commandes
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Form_Load()
   
   Dim sFichierTest As String
   Dim sDureeTrouvee As String
   
   'Pour tester, indiquez un nom de fichier multimédia (vidéo et son)
   sFichierTest = "D:\Documents\Mes Vidéos\MOV029.MOD"
   'on récupère la durée du fichier
   sDureeTrouvee = DureeFichier(sFichierTest)
   'on affiche le tout
   MsgBox "Fichier :" & vbTab & sFichierTest & vbCrLf & _
          "Durée :" & vbTab & sDureeTrouvee
   
End Sub

Private Function DureeFichier(sFichier As String) As String
   
   'On crée un buffer de 128
   Dim sRetString As String * 128
   
   On Error Resume Next
   
   'on ferme fichier au cas où il serait ouvert
   mciSendString "close fichier", 0, 0, 0
   'on ouvre le fichier passé en paramètre
   mciSendString "open """ & sFichier & """ type MPEGVideo alias fichier", 0, 0, 0
   'on règle le format temporel sur milliseconde
   mciSendString "set fichier time format ms", 0, 0, 0
   'on récupère la durée du fichier dans le buffer
   mciSendString "status fichier length", sRetString, 128, 0
   'on passe cette durée à la fonction FormatTemps et on l'affecte à la valeur de notre fonction
   DureeFichier = FormatTemps(CDbl(Replace(sRetString, Chr(0), "") / 1000))
   'et enfin on ferme fichier
   mciSendString "close fichier", 0, 0, 0

End Function

'Fonction qui renvoie la durée formatée ainsi 00:00:00
Private Function FormatTemps(dTemps As Double) As String

   Dim lHeure As Long
   Dim lMinute As Long
   Dim lSeconde As Long
   Dim lTemps As Long
   
   lTemps = Round(dTemps)
   lHeure = Int(lTemps / 3600)
   lMinute = Int((lTemps - 3600 * lHeure) / 60)
   lSeconde = lTemps - 3600 * lHeure - 60 * lMinute
   FormatTemps = Format(lHeure, "00") & ":" & Format(lMinute, "00") & ":" & Format(lSeconde, "00")

End Function

Conclusion

Pour tester, ouvrez un nouveau projet et collez le code dans Form1.

Si vous voulez une source complète utilisant mciSendString, j'ai fait un lecteur complet ici:

http://www.vbfrance.com/codes/CLM-DIVX-PLAYER-LECTEUR-VIDEOS-DIVX-MPG-MPEG_18199.aspx
18 mars 2006 18:38:59 :
faute de frappe
18 mars 2006 19:43:28 :
ajout du lien vers mon autre source
  • signaler à un administrateur
    Commentaire de Cacophrene le 18/03/2006 19:36:46

    Salut !

    J'ai testé ton code sur une dizaine de fichiers .mp3 volumineux (des symphonies), et je dois reconnaître que l'affichage du temps est très rapide. Un seul truc amusant : pour l'un des fichiers, l'API renvoie 50:08, et le lecteur Windows Media Player 50:07. Mais bon, je n'ai trouvé ça qu'une seule fois, et puis bon on n'a rien à faire d'une seconde :D. Ce code est super. Mais juste une question : pour les deux APIs, tu as comparé les vitesses avec une API du type GetThickCount, ou bien la différence est-elle "sensiblement" visible (je veux dire facilement repérable par un être humain) ?

    Cordialement,
    Cacophrène

  • signaler à un administrateur
    Commentaire de clementio le 18/03/2006 19:40:32 administrateur CS

    En fait, je me suis plus concentré sur des vidéos volumineuses et chez moi le temps de réponse est de 3 à 4 secondes avec AVIFileInfo. Alors que là c'est quasi instantané.

    Par contre j'ai remarqué que sur des mp3 encodés en VBR, le résultat est faux. Testez et dites-moi...

  • signaler à un administrateur
    Commentaire de clementio le 18/03/2006 19:48:31 administrateur CS

    Cacophrene --> Pour ta seconde qui diffère c'est que j'utilise la fonction round de VB qui arrondi à l'entier supèrieur ou inférieur. Windows Media Player doit arrondir à l'entier inférieur tout simplement...

  • signaler à un administrateur
    Commentaire de Beotien le 30/05/2006 22:36:02

    sauf erreur de ma part le resultat est seulement valable pour des fichier encodés en CBR je ne crois pas que cela fonctionne en VBR

  • signaler à un administrateur
    Commentaire de clementio le 31/05/2006 00:27:51 administrateur CS

    Oui, c'est ce que j'ai dit plus haut...

  • signaler à un administrateur
    Commentaire de christiansnif le 11/01/2008 11:14:54

    Je débute en VB2005
    J'ai copier ce code mais ne parviens pas à le faire fonctionner
    A la création du buffer de 128 une erreur "fin d'instruction attendu" alors j'ai mis "Dim Variable as string=space(128)"
    A l'utilisation le programme plante à l'appel de mciSendString erreur "mciSendString à déséquilibré la pile"
    J'ai l'impression d'avoir tout essayé, mais sans doute pas la bonne manoeuvre, Si tu peux m'aider. D'avance je te remercie
    Snif

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Téléchargements

Boutique

Boutique de goodies CodeS-SourceS