Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement WinDev Capture d'une image Vidéo?

Capture d'une image Vidéo?

6 réponses
Avatar
Emmanuel BLAISE
Je cherche à capturer la 10ème image d'une video pour la transférer dans une
autre image afin de l'archiver dans un fichier Hyper File.

J'ouvre la video avec mciouvre, je positionne la video sur la 10ème image,
je joue la video (uniquement l'image 10) et elle s'affiche correctement dans
le champ qui lui est associée. Mais lorsque je tente de la copier avec le
fonction dCopieImage, j'obtient une image vide...

Comment faire?

Ci-dessous le code essayé :

MciFormatPosition("FicVideo",MciFormatImage)
MciOuvre(SCSelecteurFichier.SAIS_FIC,"FicVideo", MciStyleFille,
Fiche_Video.ImageVideoJoue, MciModeHomothétiqueCentré)
MciJoue("FicVideo",10,10) //--- On prend la 10ème image de la vidéo...
dCopieImage(ImageVideoJoue,ImageVideo,copieSrcCopie))
MciFerme("FicVideo")
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
IN
??

"Emmanuel BLAISE" a écrit dans le message
news: 40c982fa$0$26917$
Je cherche à capturer la 10ème image d'une video pour la transférer dans


une
autre image afin de l'archiver dans un fichier Hyper File.

J'ouvre la video avec mciouvre, je positionne la video sur la 10ème image,
je joue la video (uniquement l'image 10) et elle s'affiche correctement


dans
le champ qui lui est associée. Mais lorsque je tente de la copier avec le
fonction dCopieImage, j'obtient une image vide...

Comment faire?

Ci-dessous le code essayé :

MciFormatPosition("FicVideo",MciFormatImage)
MciOuvre(SCSelecteurFichier.SAIS_FIC,"FicVideo", MciStyleFille,
Fiche_Video.ImageVideoJoue, MciModeHomothétiqueCentré)
MciJoue("FicVideo",10,10) file://--- On prend la 10ème image de la


vidéo...
dCopieImage(ImageVideoJoue,ImageVideo,copieSrcCopie))
MciFerme("FicVideo")




Avatar
Emmanuel BLAISE
!!

(c'est tout ce que j'ai trouvé à répondre à tes "??")

"IN" a écrit dans le message de
news:cac992$ee9$
??

"Emmanuel BLAISE" a écrit dans le message
news: 40c982fa$0$26917$
> Je cherche à capturer la 10ème image d'une video pour la transférer dans
une
> autre image afin de l'archiver dans un fichier Hyper File.
>
> J'ouvre la video avec mciouvre, je positionne la video sur la 10ème


image,
> je joue la video (uniquement l'image 10) et elle s'affiche correctement
dans
> le champ qui lui est associée. Mais lorsque je tente de la copier avec


le
> fonction dCopieImage, j'obtient une image vide...
>
> Comment faire?
>
> Ci-dessous le code essayé :
>
> MciFormatPosition("FicVideo",MciFormatImage)
> MciOuvre(SCSelecteurFichier.SAIS_FIC,"FicVideo", MciStyleFille,
> Fiche_Video.ImageVideoJoue, MciModeHomothétiqueCentré)
> MciJoue("FicVideo",10,10) file://--- On prend la 10ème image de la
vidéo...
> dCopieImage(ImageVideoJoue,ImageVideo,copieSrcCopie))
> MciFerme("FicVideo")
>
>




Avatar
STASZEWSKI André
Bonjour.

Emmanuel BLAISE wrote:
Je cherche à capturer la 10ème image d'une video pour la transférer
dans une autre image afin de l'archiver dans un fichier Hyper File.

J'ouvre la video avec mciouvre, je positionne la video sur la 10ème
image, je joue la video (uniquement l'image 10) et elle s'affiche
correctement dans le champ qui lui est associée. Mais lorsque je
tente de la copier avec le fonction dCopieImage, j'obtient une image
vide...

Comment faire?

Ci-dessous le code essayé :

MciFormatPosition("FicVideo",MciFormatImage)
MciOuvre(SCSelecteurFichier.SAIS_FIC,"FicVideo", MciStyleFille,
Fiche_Video.ImageVideoJoue, MciModeHomothétiqueCentré)
MciJoue("FicVideo",10,10) //--- On prend la 10ème image de la vidéo...
dCopieImage(ImageVideoJoue,ImageVideo,copieSrcCopie))
MciFerme("FicVideo")



Les fonctions de dessin travaillent sur une copie ("bitmap") de l'image. De
plus le champ image cible doit être de la même taille que celle de l'image
source (il me semble) pour que ça marche dans le cas d'une copie avec
"copieSrcCopie"
Que renvoie dCopieImage ? (vrai ou faux)
Essaie la fonction avec un simple fichier image pour voir si elle réussit.
--
Cordialement,
André STASZEWSKI
Nouvelle version 3.0 de Photo Visu sur www.PlaneteDev.fr.st
Avatar
Emmanuel BLAISE
> Que renvoie dCopieImage ? (vrai ou faux)


VRAI mais l'image résultante est un rectangle noir!

Essaie la fonction avec un simple fichier image pour voir si elle réussit.


Oui elle fonctionne mais uniquement sur une image, pas sur une vidéo (meme
si la vidéo est figée)

Je cherche toujours.....

A+

"STASZEWSKI André" a écrit dans le message de
news:caf0gg$s8q$
Bonjour.

Emmanuel BLAISE wrote:
> Je cherche à capturer la 10ème image d'une video pour la transférer
> dans une autre image afin de l'archiver dans un fichier Hyper File.
>
> J'ouvre la video avec mciouvre, je positionne la video sur la 10ème
> image, je joue la video (uniquement l'image 10) et elle s'affiche
> correctement dans le champ qui lui est associée. Mais lorsque je
> tente de la copier avec le fonction dCopieImage, j'obtient une image
> vide...
>
> Comment faire?
>
> Ci-dessous le code essayé :
>
> MciFormatPosition("FicVideo",MciFormatImage)
> MciOuvre(SCSelecteurFichier.SAIS_FIC,"FicVideo", MciStyleFille,
> Fiche_Video.ImageVideoJoue, MciModeHomothétiqueCentré)
> MciJoue("FicVideo",10,10) //--- On prend la 10ème image de la vidéo...
> dCopieImage(ImageVideoJoue,ImageVideo,copieSrcCopie))
> MciFerme("FicVideo")

Les fonctions de dessin travaillent sur une copie ("bitmap") de l'image.


De
plus le champ image cible doit être de la même taille que celle de l'image
source (il me semble) pour que ça marche dans le cas d'une copie avec
"copieSrcCopie"
Que renvoie dCopieImage ? (vrai ou faux)
Essaie la fonction avec un simple fichier image pour voir si elle réussit.
--
Cordialement,
André STASZEWSKI
Nouvelle version 3.0 de Photo Visu sur www.PlaneteDev.fr.st




Avatar
Firetox
j'ai eu le meme souci avec la capture des images dans media player
essayer ceci

VISU est le nom de mon champs qui recupere la copie de l'image
ACTIVEX1 est mon activeX media plyaer mais vous pouvez mettre le nom de
votre champs en fait c'esst l'image source

hwnd est un entier =Handle("VISU") // handle du champ
hwndfen est un entier =Handle("ACTIVEX1") // handle de la fenêtre ou du
champ à copier

hdcScreen est un entier = AppelDLL32("user32","GetWindowDC" , hwndfen)

// calcul de la taille en fonction de l'image dans le player
HORZRES est un entier = activex1>>ImageSourceWidth
VERTRES est un entier = activex1>>ImageSourceHeight

// code obligatoire pour ne pas avoir d'image noir
// visiblement windows y ai pour quelque chose car avec cette manip
// on le force a agarder tout ca en memoire

Iconise()
Multitache(-10)
Restaure()


// ajustement de l'image destination
VISU..Largeur=horzres+50
VISU..Hauteur=vertres+50
dFinDessin("VISU")

// copie de l'image dans la destination par l'API plutot que dcopieImage
dcim1 est un entier ÝébutDessin("VISU")
AppelDLL32("gdi32","BitBlt" , dcim1 , 0 , 0 , VISU..Largeur , VISU..Hauteur
, hdcScreen , 0 , 0 , 0x00CC0020)
AppelDLL32("user32","ReleaseDC",hwndfen,hdcScreen)


bon dev
@+

Firetox

"Emmanuel BLAISE" a écrit dans le message de
news: 40cd77f6$0$21428$
> Que renvoie dCopieImage ? (vrai ou faux)
VRAI mais l'image résultante est un rectangle noir!

> Essaie la fonction avec un simple fichier image pour voir si elle


réussit.
Oui elle fonctionne mais uniquement sur une image, pas sur une vidéo (meme
si la vidéo est figée)

Je cherche toujours.....

A+

"STASZEWSKI André" a écrit dans le message de
news:caf0gg$s8q$
> Bonjour.
>
> Emmanuel BLAISE wrote:
> > Je cherche à capturer la 10ème image d'une video pour la transférer
> > dans une autre image afin de l'archiver dans un fichier Hyper File.
> >
> > J'ouvre la video avec mciouvre, je positionne la video sur la 10ème
> > image, je joue la video (uniquement l'image 10) et elle s'affiche
> > correctement dans le champ qui lui est associée. Mais lorsque je
> > tente de la copier avec le fonction dCopieImage, j'obtient une image
> > vide...
> >
> > Comment faire?
> >
> > Ci-dessous le code essayé :
> >
> > MciFormatPosition("FicVideo",MciFormatImage)
> > MciOuvre(SCSelecteurFichier.SAIS_FIC,"FicVideo", MciStyleFille,
> > Fiche_Video.ImageVideoJoue, MciModeHomothétiqueCentré)
> > MciJoue("FicVideo",10,10) //--- On prend la 10ème image de la vidéo...
> > dCopieImage(ImageVideoJoue,ImageVideo,copieSrcCopie))
> > MciFerme("FicVideo")
>
> Les fonctions de dessin travaillent sur une copie ("bitmap") de l'image.
De
> plus le champ image cible doit être de la même taille que celle de


l'image
> source (il me semble) pour que ça marche dans le cas d'une copie avec
> "copieSrcCopie"
> Que renvoie dCopieImage ? (vrai ou faux)
> Essaie la fonction avec un simple fichier image pour voir si elle


réussit.
> --
> Cordialement,
> André STASZEWSKI
> Nouvelle version 3.0 de Photo Visu sur www.PlaneteDev.fr.st
>
>




Avatar
Emmanuel BLAISE
Merci de ta participation, mais ca ne marche pas non plus, résultat rectangle noir, toujours....

Je vais devoir trouver une autre astuce..
A+

"Firetox" a écrit dans le message de
news:cak4a0$6jp$
j'ai eu le meme souci avec la capture des images dans media player
essayer ceci

VISU est le nom de mon champs qui recupere la copie de l'image
ACTIVEX1 est mon activeX media plyaer mais vous pouvez mettre le nom de
votre champs en fait c'esst l'image source

hwnd est un entier =Handle("VISU") // handle du champ
hwndfen est un entier =Handle("ACTIVEX1") // handle de la fenêtre ou du
champ à copier

hdcScreen est un entier = AppelDLL32("user32","GetWindowDC" , hwndfen)

// calcul de la taille en fonction de l'image dans le player
HORZRES est un entier = activex1>>ImageSourceWidth
VERTRES est un entier = activex1>>ImageSourceHeight

// code obligatoire pour ne pas avoir d'image noir
// visiblement windows y ai pour quelque chose car avec cette manip
// on le force a agarder tout ca en memoire

Iconise()
Multitache(-10)
Restaure()


// ajustement de l'image destination
VISU..Largeur=horzres+50
VISU..Hauteur=vertres+50
dFinDessin("VISU")

// copie de l'image dans la destination par l'API plutot que dcopieImage
dcim1 est un entier ÝébutDessin("VISU")
AppelDLL32("gdi32","BitBlt" , dcim1 , 0 , 0 , VISU..Largeur ,


VISU..Hauteur
, hdcScreen , 0 , 0 , 0x00CC0020)
AppelDLL32("user32","ReleaseDC",hwndfen,hdcScreen)


bon dev
@+

Firetox

"Emmanuel BLAISE" a écrit dans le message


de
news: 40cd77f6$0$21428$
> > Que renvoie dCopieImage ? (vrai ou faux)
> VRAI mais l'image résultante est un rectangle noir!
>
> > Essaie la fonction avec un simple fichier image pour voir si elle
réussit.
> Oui elle fonctionne mais uniquement sur une image, pas sur une vidéo


(meme
> si la vidéo est figée)
>
> Je cherche toujours.....
>
> A+
>
> "STASZEWSKI André" a écrit dans le message de
> news:caf0gg$s8q$
> > Bonjour.
> >
> > Emmanuel BLAISE wrote:
> > > Je cherche à capturer la 10ème image d'une video pour la transférer
> > > dans une autre image afin de l'archiver dans un fichier Hyper File.
> > >
> > > J'ouvre la video avec mciouvre, je positionne la video sur la 10ème
> > > image, je joue la video (uniquement l'image 10) et elle s'affiche
> > > correctement dans le champ qui lui est associée. Mais lorsque je
> > > tente de la copier avec le fonction dCopieImage, j'obtient une image
> > > vide...
> > >
> > > Comment faire?
> > >
> > > Ci-dessous le code essayé :
> > >
> > > MciFormatPosition("FicVideo",MciFormatImage)
> > > MciOuvre(SCSelecteurFichier.SAIS_FIC,"FicVideo", MciStyleFille,
> > > Fiche_Video.ImageVideoJoue, MciModeHomothétiqueCentré)
> > > MciJoue("FicVideo",10,10) //--- On prend la 10ème image de la


vidéo...
> > > dCopieImage(ImageVideoJoue,ImageVideo,copieSrcCopie))
> > > MciFerme("FicVideo")
> >
> > Les fonctions de dessin travaillent sur une copie ("bitmap") de


l'image.
> De
> > plus le champ image cible doit être de la même taille que celle de
l'image
> > source (il me semble) pour que ça marche dans le cas d'une copie avec
> > "copieSrcCopie"
> > Que renvoie dCopieImage ? (vrai ou faux)
> > Essaie la fonction avec un simple fichier image pour voir si elle
réussit.
> > --
> > Cordialement,
> > André STASZEWSKI
> > Nouvelle version 3.0 de Photo Visu sur www.PlaneteDev.fr.st
> >
> >
>
>