J'ai un petit souci
En gros, je dois afficher une webcam dans une seconde fenêtre, pour un projet.
J'utilise l'UDF WebcamDS_UDF : https://www.autoitscript.com/forum/topi ... ow-webcam/
Ainsi, j'ai réduit le script afin de cibler le souci.
1. J'ai donc crée une simple interface, avec un seul bouton : "afficher la webcam".
2. Quand j'appuie sur le bouton, cela me lance donc la deuxième interface, et la webcam est bien affichée.
3. Je ferme donc l'interface (Guidelete avec exitloop).
4. Je suis donc à nouveau sur la première interface.
5. Je clique à nouveau sur le dit bouton : le script se ferme, plus rien. Sans aucun message d'erreur.
Je ne vois pas où est le souci
Pouvez-vous m'aider ?
Le script en question :
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WebcamDS_UDF.au3>
#include <Misc.au3>
Global $Form1 = GUICreate("Form1", 195, 38, 192, 124)
$aff_cam = GUICtrlCreateButton("Afficher la webcam", 5, 5, 150, 30)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $aff_cam
_aff_cam()
EndSwitch
WEnd
Func _aff_cam()
Global Const $SC_DRAGMOVE = 0xF012
Global $UserDLL = DllOpen("user32.dll"), $hComboCam, $hComboComp, $hComboMic, $ZoomInput, $affichage = 0, $Quitter
Global $hGUI = GUICreate("DirectShow Capture", 640, 480, 0, 0, $WS_POPUP + $WS_SIZEBOX)
GUISetBkColor(0xFFFFFF)
_WebcamDS_Init()
_WebcamDS_RenderWebcam(1, 1, $hGUI, 1, 640, 480, 24, 0, 0, 0, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE ;, $Quitter
_WebcamDS_Init()
GUIDelete($hGUI)
ExitLoop
EndSwitch
WEnd
EndFunc ;==>_aff_cam
#include <WindowsConstants.au3>
#include <WebcamDS_UDF.au3>
#include <Misc.au3>
Global $Form1 = GUICreate("Form1", 195, 38, 192, 124)
$aff_cam = GUICtrlCreateButton("Afficher la webcam", 5, 5, 150, 30)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $aff_cam
_aff_cam()
EndSwitch
WEnd
Func _aff_cam()
Global Const $SC_DRAGMOVE = 0xF012
Global $UserDLL = DllOpen("user32.dll"), $hComboCam, $hComboComp, $hComboMic, $ZoomInput, $affichage = 0, $Quitter
Global $hGUI = GUICreate("DirectShow Capture", 640, 480, 0, 0, $WS_POPUP + $WS_SIZEBOX)
GUISetBkColor(0xFFFFFF)
_WebcamDS_Init()
_WebcamDS_RenderWebcam(1, 1, $hGUI, 1, 640, 480, 24, 0, 0, 0, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE ;, $Quitter
_WebcamDS_Init()
GUIDelete($hGUI)
ExitLoop
EndSwitch
WEnd
EndFunc ;==>_aff_cam
Merci d'avance.
Et @++
