Bonjour,
Nos appareils photos font souvent des vidéos au format MOV.
Ce sont en fait la plupart du temps des fichiers jpeg encapsulés dans un fichier au format MOV.
Cette source permet d'extraire ces images.
[edit] Mise à jour au 11/03/2008 : fonctionne également pour des vidéos AVI -Mjpeg uniquement- (testé avec une vidéo d'un appareil photo samsung)
La lecture du fichier se fait en suivant les normes exposées :
- ici pour les fichier MOV :
http://developer.apple.com/documenta...uickTime/QTFF/
- ici pour les fichiers AVI :
http://msdn2.microsoft.com/en-us/library/ms779631.aspx
Cela ne fonctionne que si le flux vidéo est au format MJPEG (c'est le cas pour les 3 appareils que j'ai testés)
Le code suivant est à placer dans un module de classe nommé clMov par exemple :
[edit] code en pièce jointe
Exemple d'utilisation :
Pas forcément utile au quotidien mais ça me sert pour extraire des images quand je n'ai qu'une vidéo sous le coude.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Function ExtraitImage() Dim clMovi As ClMov ' Nouvelle classe Set clMovi = New ClMov ' Ouvre le fichier clMovi.OpenFile "C:\Mes Vidéos\Ma Vidéo.AVI" ' Affiche la taille de la vidéo MsgBox "Taille :" & clMovi.Width & " x " & clMovi.Height ' Affiche la durée de la vidéo MsgBox "Durée :" & clMovi.Duration & " secondes" ' Sauvegarde l'image à 10% du film clMovi.SaveFrameToFile clMovi.FrameCount / 10, "C:\Mes Images\Mon image.jpg" Set clMovi = Nothing End Function
Partager