Ma cam to jpg : capture de webcam et sauvegarde au format jpg.

Soyez le premier à donner votre avis sur cette source.

Vue 25 660 fois - Téléchargée 5 050 fois

Description

Cette petite appli permet de récupérer le visuel d'une webcam et de le sauvegarder dans un fichier image au format JPG.
Il est possible de choisir le pourcentage de compression de l'image ainsi que la fréquence de sauvegarde de l'image.
En fait le but premier de cette appli était de pouvoir créer une image toujours équivalente à ma webcam, pour la rediriger sur ma page Web.

Source / Exemple :


Private Sub Form_Load()
Dim intBoucle As Integer
Dim fso As FileSystemObject
Dim f As file
Dim tsmFile As TextStream
'---------------------RECUPERATION DU FICHIER PARAMETRE-------------------------
'on recupere le chemin ou l'on sauvegardera l'image temporaire et la finale
Set fso = New FileSystemObject
Set f = fso.GetFile(C_INI)
Set tsmFile = f.OpenAsTextStream
strChemin = tsmFile.ReadLine
tsmFile.Close
Set tsmFile = Nothing
Set f = Nothing
Set fso = Nothing
'-------------------------------------------------------------------------------

'on met une qualite JPG par defaut
sldQual.Value = 50
sldQual_Click
cmdRun.Caption = "Stop Camera"
CamRunning = True
'on lance la creation de la capture
mCapHwnd = capCreateCaptureWindow("My Own Capture Window", 0, 0, 0, 320, 240, Me.hwnd, 0)
'on dit a la capture qu'on se connect a la cam
SendMessage mCapHwnd, WM_CAP_DRIVER_CONNECT, 0, 0

'on mets un frequence par defaut
sldFrequence.Value = C_DFTFREQUENCE
sldFrequence_Click
DoEvents
End Sub

Private Sub sldFrequence_Click()
Const C_DEBRAF As String = "Raffraichissement toutes les "
Const C_FINRAF As String = " s"
'on divise par 1000 pour l'affichage en secondes
lblSave.Caption = C_DEBRAF & CStr(sldFrequence.Value / 1000) & C_FINRAF
'on adapte le timer en fonction du choix fait sur la slidebar
Timer1.Interval = CInt(sldFrequence.Value)
DoEvents
End Sub

Conclusion :


Le but prochain est d'incorporer un module ftp et de générer le script javascript nécessaire à l'affichage et au raffraichissement de l'image dans une page web.

Merci à : 1dennis pour sa source sur la compression JPG
ddcreateur pour la source webcam et chat

Voila bonne prog à tous.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61 -
Salut keke4483
Cet après midi, on m'a passé ce lien qui permet de faire la conversion BMP -> JPG mais sans DLL externe, seulement deux classes (et ça fonctionne très bien).
Ca peut toujours être interessant.
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=50065&lngWId=1
cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61 -
Tu aurais pu mettre un SlidBar aussi pour la qualité, c'est lourd un ComboBox avec 100 entrées !
keke4483
Messages postés
17
Date d'inscription
mercredi 13 octobre 2004
Statut
Membre
Dernière intervention
6 mars 2008
-
Salut jack,
C'est fait la slidebar est mise en place.
J'ai été voir le lien que tu a déposé et la source à l'air vraiment pas mal.
Avant de la mettre en place je vais quand même vérifier qu'elle donne d'aussi bon résultat que l'API INTEL. Si elle mieux c'est clair que je l'utiliserais
cs_PROGRAMMIX
Messages postés
1134
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
-
keke4483,

"Avant de la mettre en place, je vais quand même vérifier qu'elle donne d'aussi bon résultat que l'API INTEL. Si elle est mieux, c'est clair que je l'utiliserais."

Dans un cas comme dans l'autre, pourrais-tu nous tenir au courant de tes essais et conclusions ?

Merci d'avance.
cs_Bifrons
Messages postés
44
Date d'inscription
jeudi 21 août 2003
Statut
Membre
Dernière intervention
17 septembre 2005
-
Pas mal !
Justement besoin de code comme ça et simple en + :)

Juste une question : y a-t-il possibilité d'adapter simplement ce code si l'on a une caméra web sur IP ?

La suite est particulièrement intéressante (le module FTP)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.