thebeith
-
11 janv. 2001 à 17:01
jeremiesauve
Messages postés35Date d'inscriptionmercredi 24 novembre 2004StatutMembreDernière intervention 6 juillet 2009
-
21 janv. 2006 à 18:24
Alors voila, je suis en stage et on m'a demandé de faire une capture d'image à partir d'une webcam avec VB6 et je dois avouer que vb est un inconnu pour moi.
J'ai énormement besoin d'aide.
Help me s'iou plait!
ero_senin
Messages postés39Date d'inscriptionmercredi 1 décembre 2004StatutMembreDernière intervention17 janvier 2005 1 déc. 2004 à 16:48
je suis intérécé aussi par le code ....
je dois utulisé une webcam pour mon stage je dois rajouté des simbole sur la vidéo en temp réel dc si on peut m'aider c'est avec grand plaisir......
TheTiger
Messages postés89Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention 2 novembre 2010 28 mars 2005 à 13:46
Hey moi j'ai trouvé une source qui gère la caméra sans ocx mais par des dlls maté ça :) :
Form:
Option Explicit
Dim Video_Handle As Long
Private Sub Form_Load()
Video_Handle = CreateCaptureWindow(Picture1.hwnd)
End Sub
Private Sub cmdSave_Click()
CapturePicture Video_Handle, Picture1
SavePicture Picture1.Picture, "C:\Test.bmp"
End Sub
Module1:
Option Explicit
' benötigte Deklarationen
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _
Alias "capCreateCaptureWindowA" ( _
ByVal lpszWindowName As String, _
ByVal dwStyle As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hWndParent As Long, _
ByVal nID As Long) As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Preview_Handle As Long
Public Function CreateCaptureWindow( _
hWndParent As Long, _
Optional x As Long = 0, _
Optional y As Long = 0, _
Optional nWidth As Long = 320, _
Optional nHeight As Long = 240, _
Optional nCameraID As Long = 0) As Long
TheTiger
Messages postés89Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention 2 novembre 2010 21 janv. 2006 à 13:37
Pour la résolution il suffit de changer
Optional nWidth As Long = 320, _
Optional nHeight As Long = 240, _
Tout simplement en revanche je trouve domage que l'on ai pas accés
directement au pixel par un tableau car j'ai appris une technique pour
avoir un tableau qui agie directement sur l'image, c'est un tableau avec
les 3 composante rgb et c'est hyper rapide (pour plus d'info
il suffit d'aller vois dans mes sources et de regarder le "moteur 3D")
et donc comme je disais, si on veux analyser l'image de la webcam
on a du mal à accéder à ses donnée alors il faut
ruser mais c'est assez lent....
jeremiesauve
Messages postés35Date d'inscriptionmercredi 24 novembre 2004StatutMembreDernière intervention 6 juillet 2009 21 janv. 2006 à 18:24
Moi aussi je pensais ca mais l'image qui va dans la picturebox est de 160 x 120 et l'image
enrégistré aussi. J'ai changer les paramètre nWidth et nHeight mais ca reste a 160 x 120.
c'est bizarre. Je crois que c'est a cause que cette technique fait un PrintScreen sur une fenêtre
quelconque lié a la webcam.
Peut-être que de savoir sur quel fenêtre le prog. le fait pourrais aider a régler le prob.
Si quelqu'un sais comment ca marche, ca serais utile de nous expliquer ca.