webcam et micro

Question

hhhp2004

salut, je viens de finir un prog de chat et je me demandais si je peux faire en sorte que les 2 utilisateur puissent parler (au micro) et se voir (webcam) 

Si cest possible, indiquez moi svp par ou commencer ...

merci

olivier857 · Answer

Voila déja un point de depart : Avec ca devrais avoir un peu près tout ce qu'il te faut pour gérer l'envoie et la reception de l'image + un bouton pour capturer l'image.


Option Explicit


'Déclaration des fonctions pour le traitement des fichiers graphiques
Private Declare Function BmpToJpeg Lib "Bmp2Jpeg.dll" (ByVal BmpFilename As String, ByVal JpegFilename As String, ByVal CompressQuality As Integer) As Integer
Private Declare Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYdest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal dwRop As Long) As Long


'déclaration des fonctions pour la capture de l'image de la caméra
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal IpszWindowName 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, IParam As Any) As Long
Private Declare Function ReleaseCapture Lib "USER32" () As Long


'Déclaration des constantes
Private Const WM_CAP_DRIVER_CONNECT As Long = 1034
Private Const WM_CAP_DRIVER_DISCONNECT As Long = 1035
Private Const WM_CAP_GRAB_FRAME As Long = 1084
Private Const WM_CAP_EDIT_COPY As Long = 1054
Private Const WM_CAP_DLG_VIDEOFORMAT As Long = 1065
Private Const WM_CAP_DLG_VIDEOSOURCE As Long = 1066
Private Const WM_CLOSE = &H10


'Déclaration des variables nécessaires à l'utilisation des fonctions précédentes
Private mCapHwnd As Long


'Déclaration des variables pour le stockage mémoire des images
Dim ImageWebCam() As Byte


Private Sub Form_Load()    
    socklisten.LocalPort = 128
    socklisten.Listen
    
    'dimensionnement dynamique de l'objet MaWebCam en fonction de la taille de l'image
    MaWebCam.Width = 640 * Screen.TwipsPerPixelX
    MaWebCam.Height = 480 * Screen.TwipsPerPixelY
    
    'fenêtre virtuelle
    mCapHwnd = capCreateCaptureWindow("Ma fenêtre de capture", 0, 0, 0, 320, 240, Me.hwnd, 0)
    SendMessage mCapHwnd, WM_CAP_DRIVER_CONNECT, 0, 0        
End Sub

Private Sub Camera_Click()
    Timer.Enabled = True    
End Sub


Private Sub Capture_Click()
    'Pour cette ligne il te faut avoir la dll bmp2jpeg
    BmpToJpeg App.Path & "	mpout.bmp", App.Path & "	mpout.jpeg", 40
    MsgBox "Cliquez sur OK pour enregistrer l'image", vbOKOnly
    SavePicture MaWebCam, "tmpout.bmp"        
End Sub


Private Sub socklisten_ConnectionRequest(ByVal requestID As Long)
    sockclient.Accept requestID
End Sub

Private Sub Setting_Click()
    SendMessage mCapHwnd, WM_CAP_DLG_VIDEOFORMAT, 0, 0
End Sub


Private Sub Timer_Timer()
    SendMessage mCapHwnd, WM_CAP_GRAB_FRAME, 0, 0
    SendMessage mCapHwnd, WM_CAP_EDIT_COPY, 0, 0
    MaWebCam.Picture = Clipboard.GetData
    MaWebCam.Refresh
    
    Dim FREEout As Integer
    FREEout = FreeFile
    Open App.Path & "	mpout.jpg" For Binary As #FREEout
        ReDim ImageWebCam(1 To LOF(FREEout))
        Get #FREEout, , ImageWebCam
    Close #FREEout        
End Sub

Private Sub sock_DataArrival(ByVal bytesTotal As Long)        
    Dim ImageWebcamDistante() As Byte
    Dim FREEin As Integer
    
    Winsock.GetData ImageWebcamDistante
    
    If Dir$(App.Path & "	mpin.jpg") <> "" Then Kill App.Path & "	mpin.jpg"
    FREEin = FreeFile
    Open App.Path & "	mpin.jpg" For Binary As #FREEin
        Put #FREEin, , ImageWebcamDistante
    Close #FREEin
    webcamdistance.Picture = LoadPicture(App.Path & "	mpin.jpg")
    webcamdistance.distance.Refresh
    DoEvents    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SendMessage mCapHwnd, WM_CAP_DRIVER_DISCONNECT, 0, 0    
End Sub
<\code>

Voila bonne prog. a toi !

Olivier

hhhp2004 · Answer

hhhp2004

wooooooooooow

je vais esseyer de comprendre ton code (cest un peu plus que mon niveau de connaissence vb actuel).

mais je nai pas compris une chose : commant tu fais pour prendre limage du web cam ?

merci davoir repondu

hhhp2004 · Answer

hhhp2004

salut,

jai essy&#233; ton code MAIS : quand je quitte le prog, vb6 plante completement ! je suis oblige de faire ALT+CTRL+DEL pour fermer ...

autre chose : quand je clique sur le bouton camera et le timer a la propriete enabled=true

Private Sub Timer_Timer()
    SendMessage mCapHwnd, WM_CAP_GRAB_FRAME, 0, 0
    SendMessage mCapHwnd, WM_CAP_EDIT_COPY, 0, 0
    MaWebCam.Picture = Clipboard.GetData
    MaWebCam.Refresh
    
    Dim FREEout As Integer
    FREEout = FreeFile
    Open App.Path & "	mpout.jpg" For Binary As #FREEout
        ReDim ImageWebCam(1 To LOF(FREEout)) 'il y a une erreur sur cette 'ligne, "Subscript out of range"
        Get #FREEout, , ImageWebCam
    Close #FREEout  

End Sub

merci

olivier857 · Answer

Si il plante completement c'est parceque le driver de la webcam c'est mal deconnecter.

Lorsque que tu n'aura plus d'erreur la deconnexion du driver ce fera correctement.

Cette deconnexion ce fait dans le form_unload de la page, donc si vb plante avant d'arriver au form_unload la deconnexion ce fais mal.

olivier857 · Answer

Tiens essaye deja ca c'est plus simple, mais ca te permet uniquement de regarder ta webcam a toi sur ton pc.

Ca t'aiderai a mieux comprendre, tu passera a la suite apr&#232;s.

Option Explicit


'D&#233;claration des fonctions pour le traitement des fichiers graphiques
Private Declare Function BmpToJpeg Lib "Bmp2Jpeg.dll" (ByVal BmpFilename As String, ByVal JpegFilename As String, ByVal CompressQuality As Integer) As Integer
Private Declare Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYdest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal dwRop As Long) As Long


'd&#233;claration des fonctions pour la capture de l'image de la cam&#233;ra
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal IpszWindowName 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, IParam As Any) As Long
Private Declare Function ReleaseCapture Lib "USER32" () As Long


'D&#233;claration des constantes
Private Const WM_CAP_DRIVER_CONNECT As Long = 1034
Private Const WM_CAP_DRIVER_DISCONNECT As Long = 1035
Private Const WM_CAP_GRAB_FRAME As Long = 1084
Private Const WM_CAP_EDIT_COPY As Long = 1054
Private Const WM_CAP_DLG_VIDEOFORMAT As Long = 1065
Private Const WM_CAP_DLG_VIDEOSOURCE As Long = 1066
Private Const WM_CLOSE = &H10


'D&#233;claration des variables n&#233;cessaires &#224; l'utilisation des fonctions pr&#233;c&#233;dentes
Private mCapHwnd As Long


'D&#233;claration des variables pour le stockage m&#233;moire des images
Dim ImageWebCam() As Byte


Private Sub Camera_Click()
    
    Timer1 = True
    
End Sub


Private Sub Capture_Click()
    
    SavePicture MaWebCam, App.Path & "	mpout.bmp"
    BmpToJpeg App.Path & "	mpout.bmp", App.Path & "	mpout.jpg", 40
    
End Sub

Olivier

hhhp2004 · Answer

hhhp2004

salut,

jai deja modifier le code pour regarder la webcam juste sur mon pc, je le fais a travers le timer et non a travers le fichier image ... apres avoir modifier le code vb ne plantait plus

je crois que cest trop te demander mais tu surais pas aussi commant faire avec la conversation (microphone) ?

ton code est une mine dor

merci

olivier857 · Answer

Non j'ai jamais vu comment faire pour le microphone d&#233;sol&#233;.

Mais cherche sur ce forum, je pense que tu devrais trouver ca.

Il doit certainement &#233;galement exister des API de windows te donnant acc&#232;s aux reglages microphone de windows, tout comme pour la webcam.

Bonne chance

olivier

cs_calipso · Answer

Salut, j'&#233;tudie le language VB et j'ai pas bien compris l'utilit&#233;s des fichiers .ocx.
S'il y'on a une bref discription mersi de me donn&#233;e une id&#233;e.



salut &#224; tous les programmeurs

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]

Webcam et micro

9 réponses

Discussions similaires