Demande d'information pour une WebCam et VB6

Question

Bonjour à tous !!!

J'ai un petit problème et peut-être que vous pouvez m'aider, je dois créer une application qui doit prendre une image en provenance d'une webcam à intervalle régulier.  Mon probleme est que par l'appel des différentes composantes et rérérences, le programme de gestion de ma caméra s'ouvert à chaque fois !!! et que je dois prendre manuellement un instantané!!! Y-a-t-il un autre moyen pour que tout ce fasses de façon automatique !!!

Je vous remercis à l'avance de votre aide !!!

Un petit Québecois que a des problèmes de Webcam !!! :)
ExodusQuebec

louis · Answer

bonjour, j'ai un probleme similaire a resoudre: recupere des images provenant d'une webcam poue effectuer diffrents traitements d'images en temps reel sur celles ci.
Si tu peux me dire ce que tu sais faire pour l'instant et comment tu le fais, merci d'avance.

louis

cs_webooking · Answer

Bonjour

Nous venons de cr&#233;&#233;e un module webcam chat modifiable selon la demande, le webcam chat est en flash, et en module php dans quelque heures, &#233;galement possibilit&#233; ifram. 

Vous pouvez &#233;galement g&#233;rer le flux vid&#233;o et audio

pour info telechargement   [mailto:admin@videolivenet.be admin@videolivenet.be] 

www.videolivenet.be sp&#233;cialiste vid&#233;o surveillance et retransmission d'image par internet &#224; 30 images secondes, pour discoth&#232;ques et autre ....

cs_mofallyes · Answer

Bonjour Mr le seul &#224; des probl&#233;mes il sont simples a r&#233;soudre je crois
j'ai une application qui enregistre les agents d'une boite alors quand
on cr&#233;e un nouveau agent il s'assoit de la webcam je le prend en photo
et le tout est jou&#233; . Mon probl&#233;me comment faire reconnaitre &#224; VB la
web cam qu'elle composant utilis&#233; pour 

De l'aide j'en bien besoin

le seul, l'unique, le grand

bennybenny · Answer

Salut fr&#232;re.

Pour g&#233;rer la prise d'images automatique, il faut utiliser le minuteur. (Contr&#244;le TIMER). Dans la propri&#233;t&#233; dans interval de celui ci tu d&#233;finis un temps qui est en mili seconde.( 1000 ms = 1 s ). Alors tu saisis ton programme dans la minuterie. N'oublis pas que le contr&#244;le doit se trouver sur une form (feuille).

Bonne chance !

Benny

cs_mofallyes · Answer

Salut benny

j'apprecie ton aide tu peux me dire quel composant permet d'utiliser
une web cam par exemple pour une image j'utilise soit picturebox ou
image et pour la web cam j'utilise quoi pour que mon application
m'affiche la video provenant de la webcam lorsque je l'execute 

le seul, l'unique, le grand

bennybenny · Answer

salut,

1-
tu dessines sur une form un contr&#244;le picturebox que tu renommes picture1

2-

tu dessines un timer sur la form et tu nommes le contr&#244;le timer timer1

3-
recopies le code suivant dans l'onglet code de la form et ex&#233;cutes. si &#231;a ne va pas, &#233;cris moi.

Bonne Chance.



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.dll" Alias "SendMessageA" ( _ 
     ByVal hwnd As Long, _ 
     ByVal wMsg As Long, _ 
     ByVal wParam As Long, _ 
     ByRef lParam As Any) As Long 

Private Const WM_USER As Long = &H400 
Private Const WM_CAP_DRIVER_CONNECT As Long = WM_USER + 10 
Private Const WM_CAP_DRIVER_DISCONNECT As Long = WM_USER + 11 
Private Const WM_CAP_GRAB_FRAME As Long = WM_USER + 60 
Private Const WM_CAP_EDIT_COPY As Long = WM_USER + 30 

Private iResult As Long 

Private Sub Form_Load() 

    Timer1.Interval = 50 
    iResult = capCreateCaptureWindow("Capture", _ 
                                    0, 0, 0, _ 
                                    Picture1.ScaleWidth, _ 
                                    Picture1.ScaleHeight, _ 
                                    Me.hwnd, 0) 
    SendMessage iResult, WM_CAP_DRIVER_CONNECT, 0, 0 
    
End Sub 

Private Sub Form_Unload(Cancel As Integer) 

    SendMessage iResult, WM_CAP_DRIVER_DISCONNECT, 0, 0 
    
End Sub 

Private Sub Timer1_Timer() 

    Clipboard.Clear 
    SendMessage iResult, WM_CAP_GRAB_FRAME, 0, 0 
    SendMessage iResult, WM_CAP_EDIT_COPY, 0, 0 
    Picture1.Picture = Clipboard.GetData 
    
End Sub

BENNY !!!!!!!!!!!!!!

bennybenny · Answer

Il faut bien s&#251;r installer la webcam au pr&#233;alable !

Demande d'information pour une WebCam et VB6

7 réponses

Discussions similaires