IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Contribuez Discussion :

Extraire une image d'une vidéo MOV d'appareil photo [Sources]


Sujet :

Contribuez

  1. #1
    Responsable Access

    Avatar de Arkham46
    Profil pro
    Inscrit en
    septembre 2003
    Messages
    5 819
    Détails du profil
    Informations personnelles :
    Localisation : France, Loiret (Centre)

    Informations forums :
    Inscription : septembre 2003
    Messages : 5 819
    Points : 13 942
    Points
    13 942
    Par défaut Extraire une image d'une vidéo d'appareil photo
    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 :
    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
    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.
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [Débutant] Manipulation d'images : intégrer une image dans une image
    Par noscollections dans le forum VB.NET
    Réponses: 2
    Dernier message: 17/10/2014, 12h51
  2. extraire sous image d'une image
    Par sas202010 dans le forum Interfaces Graphiques
    Réponses: 1
    Dernier message: 08/05/2014, 09h29
  3. Insérer une légende dans une image avec une police plus petite
    Par Paulinho dans le forum Tableaux - Graphiques - Images - Flottants
    Réponses: 3
    Dernier message: 29/04/2006, 15h19
  4. copier une partie d'une image vers une autre
    Par gregcat dans le forum Langage
    Réponses: 1
    Dernier message: 14/04/2006, 14h39
  5. VBA : copier une image d'une feuille excel à une autre
    Par Equus dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 08/12/2005, 15h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo