WebCamShot

Droopy · Message par **Droopy** » jeu. 17/avr./2008 0:07

Capture une image à partir d'une webcam et l'enregistre en jpg (avec date et heure)

Basé sur les code de je sais plus

;/ Infos sur MSDN : http://msdn2.microsoft.com/en-us/library/ms713822(VS.85).aspx

#largeur=640
#Hauteur=480

OpenLibrary(0,"avicap32.dll") 
hWndC = CallFunction(0,"capCreateCaptureWindowA", "My Capture Window",#WS_CHILD,10,10,#largeur,#Hauteur,FindWindow_(0,0),1) ; Handle du bureau
SendMessage_(hWndC, #WM_CAP_DRIVER_CONNECT,0,0) 

;/ Récupère la résolution de capture courante
Image.BITMAPINFO
SendMessage_(hWndC,#WM_CAP_GET_VIDEOFORMAT,SizeOf(BITMAPINFO),Image)
Debug Image\bmiHeader\biWidth
Debug Image\bmiHeader\biHeight
   
;/ Change la résolution de capture
Image\bmiHeader\biWidth=#largeur
Image\bmiHeader\biHeight=#Hauteur
SendMessage_(hWndC,#WM_CAP_SET_VIDEOFORMAT,SizeOf(BITMAPINFO),Image) 
   
;/ Copie l'image dans le presse papier
SendMessage_(hWndC, #WM_CAP_EDIT_COPY,#Null,#Null )

;/ Stoppe la capture
SendMessage_(hWndC,#WM_CAP_STOP,0,0) 
SendMessage_(hWndC,#WM_CAP_DRIVER_DISCONNECT,0,0) 
DestroyWindow_(hWndC) 
CloseLibrary(0)

;/ Copie l'image du presse papier dans un fichier
GetClipboardImage(0,24)
UseJPEGImageEncoder()
SaveImage(0,GetPathPart(ProgramFilename())+FormatDate("%dd-%mm-%yy %hhh%ii",Date())+".jpg",#PB_ImagePlugin_JPEG)

Ar-S · Message par **Ar-S** » jeu. 17/avr./2008 9:21

tout simplement excellent !
Merci Droopy

Droopy · Message par **Droopy** » jeu. 17/avr./2008 10:36

ça fonctionne sous vista mais sous XP la webcam n'étant pas initialisée, on capture une image verte.
Quelqu'un aurais une idée pour résoudre cela ?

lionel_om · Message par **lionel_om** » jeu. 17/avr./2008 10:48

Droopy a écrit :ça fonctionne sous vista mais sous XP la webcam n'étant pas initialisée, on capture une image verte.
Quelqu'un aurais une idée pour résoudre cela ?

Non, chez moi ca marche (XP Media center SP2)

Lio

Progi1984 · Message par **Progi1984** » jeu. 17/avr./2008 11:26

Connaissez vous ma userlib RCam pour gérer facilement les webcams ?

Ar-S · Message par **Ar-S** » jeu. 17/avr./2008 19:56

Droopy a écrit :ça fonctionne sous vista mais sous XP la webcam n'étant pas initialisée, on capture une image verte.
Quelqu'un aurais une idée pour résoudre cela ?

Pareil pour moi sous XP Sp2 pas de probleme

@Progi1984
Je vais voir cette lib de suite

---Edit----

Pour RCam Les exemples commencent par

Code : Tout sélectionner

IncludeFile "RCam_Res.pb"
IncludeFile "RCam_Inc.pb"

Or ces 2 fichiers ne sont pas dans le zip...

Progi1984 · Message par **Progi1984** » ven. 18/avr./2008 7:26

Ar-S a écrit : Pour RCam Les exemples commencent par
Code : Tout sélectionner
IncludeFile "RCam_Res.pb"
IncludeFile "RCam_Inc.pb"
Or ces 2 fichiers ne sont pas dans le zip...

Oops supprime ces deux lignes... ce sont en fait les codes sources :S

Ar-S · Message par **Ar-S** » ven. 18/avr./2008 21:34

Hum... maintenant il me sort que RCam_Init() is not a function...
pourtant j'ai bien copier les fichiers libs et Res ou il fallait..

Progi1984 · Message par **Progi1984** » sam. 19/avr./2008 10:23

Commente-le !!!!

Attends, je vais mettre le package à jour ! Vraiment dsl !

Backup · Message par **Backup** » sam. 19/avr./2008 10:31

..............................

Ar-S · Message par **Ar-S** » sam. 19/avr./2008 10:38

en commentant

RCam_SetAudioCapture(WebCam)
RCam_EnablePreviewMode(WebCam, #True)
RCam_Init()
RCam_End()

ça fonctionne..

Vaut en effet mieux que tu refasses le package "propre", ce sera plus pratique.

wolfjeremy · Message par **wolfjeremy** » sam. 19/avr./2008 12:46

Aucun de vos code ne marche

Celui de Droopy me ressort sans cesse exactement la même image...
Et celui de Progi1984 est sans aucunes aide, et les exemples ne marche pas

Backup · Message par **Backup** » sam. 19/avr./2008 13:15

wolfjeremy a écrit :Aucun de vos code ne marche

Celui de Droopy me ressort sans cesse exactement la même image...
Et celui de Progi1984 est sans aucunes aide, et les exemples ne marche pas

et le code en couleur ??? chez moi il marche !! et sans Lib !!

wolfjeremy · Message par **wolfjeremy** » sam. 19/avr./2008 15:45

Même chose qu'avec celui de Droopy, j'ai tout le temps la même image qui ressort... c'est sur le pc de mon frère sous vista, car sur le mien je n'ai pas de webcam (j'ai horreur de ça)
Mais je pense que je vais en prendre une pour faire mumuse avec PureBasic.

Backup · Message par **Backup** » sam. 19/avr./2008 17:24

wolfjeremy a écrit :Aucun de vos code ne marche

Celui de Droopy me ressort sans cesse exactement la même image...
Et celui de Progi1984 est sans aucunes aide, et les exemples ne marche pas

ta essaye de Decomenter les lignes 57 a 61 ??

ces lignes la

Code : Tout sélectionner

; ;............................................(pour afficher l'option)
             ; #WM_CAP_START = #WM_USER
             ; #WM_CAP_DLG_VIDEOSOURCE = #WM_CAP_START + 42
             ; ;............................................
             ; SendMessage_(hWndC, #WM_CAP_DLG_VIDEOSOURCE, 0, 0)

cela fait afficher une boite de dialogue pour choisir le bon peripherique !!