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

Soyez le premier à donner votre avis sur cette source.

Vue 25 567 fois - Téléchargée 5 044 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

Commenter la réponse de cs_Jack

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.