Ma cam to jpg : capture de webcam et sauvegarde au format jpg.
Soyez le premier à donner votre avis sur cette source.
Vue 26 011 fois - Téléchargée 5 129 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.
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.
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
- Webcam jpg
- Jpg webcam - Meilleures réponses
- Nept_ cam - Meilleures réponses
- Webcam direct x - Forum - VB.NET
- Api webcam - Conseils pratiques - Javascript
- Canvas webcam - Conseils pratiques - Javascript
- Webcam tchat - Forum - PHP
- Webcam c# - Guide
- Messages postés
-
169
- Date d'inscription
- vendredi 27 septembre 2002
- Statut
- Membre
- Dernière intervention
- 27 février 2009
1Bravo pour ta source.
g un piti problem sa marche po.
Quand je veut le lancer sous vb6 il me fait une erreure 53 c_ini y a une erreur .
Et quand je lance l exe il me trouve po le fichier vb6fr.dll pourait tu m aider .
Je suis sous xp pro et j ai vb6.
merci
que puis-je faire et merci encore une autre fois..
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.