[R] Webcam affiché avec un écart "vertical" de 25
Posté : sam. 18 juil. 2020 14:54
Bonjour.
Pour information, j'utilise l'UDF "WebcamDS_UDF.au3" afin d'afficher ma webcam au sein de mon interface graphique....
Je voulais de base, assouvir ma curiosité.
-> Je voulais - en effet - faire un petit "soft" permettant de désactiver / activer la webcam. Et d'ajouter un test visuel....
J'arrive donc à afficher la webcam, à faire une capture d'écran.
Par contre, ce que je ne comprends pas, c'est que j'ai un écart de 25.
Jugez par vous même : Le code simplissime :
J'ai tenté d'utiliser guictrlsetpos mais en vain.
J'ai cru à un miracle qui n'est jamais venu. ^^
Savez-vous pourquoi ce tel "écart" ?
Merci
++
Pour information, j'utilise l'UDF "WebcamDS_UDF.au3" afin d'afficher ma webcam au sein de mon interface graphique....
Je voulais de base, assouvir ma curiosité.
-> Je voulais - en effet - faire un petit "soft" permettant de désactiver / activer la webcam. Et d'ajouter un test visuel....
J'arrive donc à afficher la webcam, à faire une capture d'écran.
Par contre, ce que je ne comprends pas, c'est que j'ai un écart de 25.
Jugez par vous même : Le code simplissime :
#AutoIt3Wrapper_UseX64=n
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include "WebcamDS_UDF.au3"
#include <SendMessage.au3>
#include <ScreenCapture.au3>
Global Const $SC_DRAGMOVE = 0xF012
Global $Quitter
;~ Opt("MustDeclareVars", 1)
Global $UserDLL = DllOpen("user32.dll")
Global $oError = ObjEvent("AutoIt.Error", "_ErrFunc")
Global $hComboCam = '', $hComboComp = '', $hComboMic, $ZoomInput = ''
_WebcamDS_Init()
Global $hGUI = GUICreate("DirectShow Capture", 1280, 720, 0, 0, $WS_POPUPWINDOW);+$WS_SIZEBOX) ; , $WS_EX_LAYERED)
Global $WC=_WebcamDS_RenderWebcam(1, 1, $hGUI, 1, 640, 480)
GUISetState()
;~ GUICtrlSetPos(-1,0,50,500,900)
Global $msg
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $GUI_EVENT_PRIMARYDOWN
_SendMessage($hGUI, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0)
Case $msg = $GUI_EVENT_RESIZED
_WebcamDS_Init()
Global $pos = WinGetPos($hGUI)
GUISetState($hGUI, @SW_HIDE)
Global $NLargeur = $pos[2] - 20
Global $NHauteur = $pos[3] - 40
GUISetState($hGUI, @SW_SHOW)
_WebcamDS_RenderWebcam(1, 1, $hGUI, 1, $NLargeur, $NHauteur)
EndSelect
WEnd
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include "WebcamDS_UDF.au3"
#include <SendMessage.au3>
#include <ScreenCapture.au3>
Global Const $SC_DRAGMOVE = 0xF012
Global $Quitter
;~ Opt("MustDeclareVars", 1)
Global $UserDLL = DllOpen("user32.dll")
Global $oError = ObjEvent("AutoIt.Error", "_ErrFunc")
Global $hComboCam = '', $hComboComp = '', $hComboMic, $ZoomInput = ''
_WebcamDS_Init()
Global $hGUI = GUICreate("DirectShow Capture", 1280, 720, 0, 0, $WS_POPUPWINDOW);+$WS_SIZEBOX) ; , $WS_EX_LAYERED)
Global $WC=_WebcamDS_RenderWebcam(1, 1, $hGUI, 1, 640, 480)
GUISetState()
;~ GUICtrlSetPos(-1,0,50,500,900)
Global $msg
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $GUI_EVENT_PRIMARYDOWN
_SendMessage($hGUI, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0)
Case $msg = $GUI_EVENT_RESIZED
_WebcamDS_Init()
Global $pos = WinGetPos($hGUI)
GUISetState($hGUI, @SW_HIDE)
Global $NLargeur = $pos[2] - 20
Global $NHauteur = $pos[3] - 40
GUISetState($hGUI, @SW_SHOW)
_WebcamDS_RenderWebcam(1, 1, $hGUI, 1, $NLargeur, $NHauteur)
EndSelect
WEnd
J'ai cru à un miracle qui n'est jamais venu. ^^
Savez-vous pourquoi ce tel "écart" ?
Merci
++