Extraire une image d'une vidéo MOV d'appareil photo

[Arkham46]

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 :

 
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
 

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.