[UDF] Webcam (l’ultime!)

[matwachich]

Alors voila, étant utilisateur actif de webcam avec autoit, j'ai beaucoup retourné le sujet dans tous les sens, et je pense détenir enfin un Bon UDF qui marche!
C'est celui qu'a fait Ludocus, puis modifier par pierrotm777, et enfin, quelques corrections par moi!

Il reste la gestion des erreurs qui n'est pas super précise, mais je l'ai testé sur plusieurs PC avec Win XP, Vista et Seven sans aucun problème!

[pierrotm777]

Vous arivez à visualiser plusieurs webcam en même temps ?
Quels sont les modifs svp ?

[matwachich]

Oui, j'affiche plusieurs webcams dans une fenêtre

Les modifs:
- La plus importante est dans _webcam_close, avant, elle fermait les dll ce qui empêchait de reouvrir la webcam en milieu de script
- J'ai arrangé la description et le nom des fonction
- _webcam_snap peut prendre directement des photos en jpg
- Et la plus petite, j'ai mis un lien vers la page MSDN qui explique toutes les constantes au début de l'UDF

!!! ATTENTION !!!
La plus importante modification dont je parle, je viens de l'ajouté, il faut donc re-télécharger l'UDF maintenant

[yagonfstm91]

Bonjour,

j'ai essayer cet UDF, il marche, mais aléatoirement pour moi (du genre une fois sur 4), et sans changer le code !

Voila mon script (fait a la va vite):

► Afficher le texteVoir

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include "webcam.au3"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 220, 210, 192, 124)
$b1 = GUICtrlCreateButton("CAPTURE", 0, 0)
$b2 = GUICtrlCreateButton("STOP", 100, 0)
sleep(500)
$ID = _Webcam_Open($Form1, 5, 20, 200, 200, 0)
; Parameter(s):     $sHwnd     - The handle of the gui
;                   $sLeft     - Left coord. of the preview screen
;                   $sTop      - Top coord. of the preview screen
;                   $sWidth    - Width of the preview screen
;                   $sHeight   - Height of the preview screen
;                   $WebCamId  - The capture driver to open
Sleep(500)
_Webcam_Preview_Start($ID)

GUISetState(@SW_SHOW)
Sleep(500)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE

            Exit
        Case $b1
            _Webcam_Rec_Start("cam.avi", $ID)
        Case $b2
            _Webcam_Rec_Stop($ID)

    EndSwitch
WEnd

Soit la caméra se lance toute seul sans rien me demander et la ca marche,
soit on me demande de choisir la source video, je la sélectionne (il y en a qu'une), fait ok et la webcam ne se lance pas et ne s'affiche pas

EDIT : J'ai trouver une solution tres bizarre, j'ai mis la commande _Webcam_Open 2 fois a la suite et ca marche a tout les coups

► Afficher le textevoir

Code : Tout sélectionner

$ID = _Webcam_Open($Form1, 5, 20, 200, 200, 0)
$ID = _Webcam_Open($Form1, 5, 20, 200, 200, 0)

Mais il y a toujours la fenetre qui demande quel source utiliser qui apparait

Aussi j'ai essayer la capture video, l'affichage de la camera se fige (mais sa enregistre bien).
Par contre la video est saccadée

Que faire ? Merci

[matwachich]

Le premier problème, je l'ai eu quelque fois chez moi, et je n'ai jamais compris pourquoi!
Pourtant j'ai plusieurs sources vidéos sur mon pc (webcam, splitcam, youcam...) mais il ne me demande jamais.

Quand au 2e problème, j'ai jamais compris non plus, j'ai pas vraiment chercher sur le forum anglais et ailleurs vu que je n'utilise plus la fonction video, ni cet udf tout court.

Si quelqu'un d'autre a des lumières!

[sablier94]

Salut,

J'aimerai aussi utiliser cet udf mais il fait pareil chez moi : Il demande un source alors qu'il n'y en a qu'une et il marche une fois sur deux...

C'est dommage. Y a-il un autre udf qui fonctionne mieux ?

Merci

[TommyDDR]

Salut matwachich,
Cela fait quelque temps que j'essaye d'afficher plusieurs webcam en même temps sans y arriver, j'ai essayé avec ton UDF mais sans succès non plus...

Je m'explique :
J'ai une webcam ainsi que ManyCam (camera virtuelle)

J'ai fait ce petit script pour afficher toutes les camera de 0 à 9

► Afficher le textecode

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <Webcam.au3>

Opt("GUIOnEventMode", 1)

Global $Gui
Global $Taille[2] = [320/4, 240/4]
Global $Camera[10]

$Gui = GUICreate("test", ($Taille[0]+1)*10-1, $Taille[1])
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
For $i = 0 To UBound($Camera, 1)-1
    $Camera[$i] = _Webcam_Open($Gui, ($Taille[0]+1)*$i, 0, $Taille[0], $Taille[1], $i)
Next
GUISetState()

While(True)
    Sleep(10)
WEnd

Func quit()
    For $i = 0 To UBound($Camera, 1)-1
        _Webcam_Close($Camera[$i])
    Next
    Exit
EndFunc

Mais seul manycam s'affiche en 0.

autoit.PNG (11.18 Kio) Vu 33062 fois

Je me suis donc dit que manycam prenait le dessus sur ma webcam.
Mais récemment j'ai aperçu dans les options vidéos de skype que je pouvais choisir entre manycam et ma webcam.

Je pense donc qu'il y a un moyen pour afficher la camera souhaiter, la question est : Comment ?

La seule solutions que j'ai trouvé est de changer la clé de registre :

Code : Tout sélectionner

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MediaResources\msvideo\MSVideo.VFWWDM : DevicePath

pour pointer sur la webcam au lieu de manycam (mais du coup je n'ai plus manycam ^^') j'ai les deux si je change la clé entre les deux _WebCam_Open ... mais c'est un peu du travail de porc :/

[pierrotm777]

j'ai eu le même problème lorsque j'utilisai cet UDF .

[pierrotm777]

si cela peut vous intéresser j'avais travaillé le sujet sur 4 caméras .Attention à l'UDF inclus qui est un peu plus ancien .
http://www.mediafire.com/?vmpur6pjurrqjk0

[TommyDDR]

Merci mais malheureusement vous utilisez les mêmes fonctions que moi (_WebCam_Open) avec incrémentation de l ID. Donc ça ne marche toujours pas chez moi.

[A2Energie]

Salut et merci pour cet UDF,

Un micro_mini problème détecté :
Désolé pour la contribution ridicule, mais contribution quand même
Vais essayer de faire mieux les prochains coups.

Ligne 97 : ; Syntax: _WebcamOpen($sHwnd, $sLeft, $sTop, $sWidth, $sHeight)
A remplacer par :
Ligne 97 : ; Syntax: _Webcam_Open($sHwnd, $sLeft, $sTop, $sWidth, $sHeight, $WebCamId = 0)

Ligne 162 : ; Syntax: _WebcamSnap($sId, $sFile)
A remplacer par :
Ligne 162 : ; Syntax: _Webcam_Snap($sId, $sFile)

Ligne 207 : ; Syntax: _WebcamClose($sId)
A remplacer par :
Ligne 207 : ; Syntax: _Webcam_Close($sId)

Ligne 231 : ; Syntax: _WebcamRecordStart($sFile, $sId)
A remplacer par :
Ligne 231 : ; Syntax: _Webcam_Rec_Start($sFile, $sId)

Ligne 264 : ; Syntax: _WebcamRecordStop($sId)
A remplacer par :
Ligne 264 : ; Syntax: _Webcam_Rec_Stop($sId)