DirectShow UDF für Webcam-capture

kettensaege

Hallo Autoit community,

ich suche für mich eine Möglichkeit unter Windows 7 mit hilfe von DirectShow captures von einer Webcam zu machen. Leider habe ich bisweilen nur einen Beitrag zu diesem Thema gefunden. Der Ansatz das ganze über die Wrapper Dll "xVIDEO.dll" zu lösen. Leider scheint die UDF nihct zu laufen.

Kennt jmd. von euch einen andere DLL die ein capturen via DirectShow ermöglichen würde?

Carsten

vivus

ich hab dazu nur das in den archiven meines rechners gefunden ..

Spoiler anzeigen

[autoit]

;credit http://www.autoit.de/index.php?page…B+70#post100341

[/autoit] [autoit][/autoit] [autoit]

;by Unicom for http://www.Autoit.de
;tested for AutoIT 3.3.0.0
;Demonstrations of Movement Detection via Webcam
;First displayed number value represents degree of change between two succeeding images
;Second value is maximum change of a single pixel in the image between two succeeding images
;Quit by pressing "End" - Button

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()

[/autoit] [autoit][/autoit] [autoit]

$Gridstep=50 ;Abstand zwischen den Pixeln zum Abtasten

[/autoit] [autoit][/autoit] [autoit]

$sensitivity = 15 ;Empfindlichkeit

[/autoit] [autoit][/autoit] [autoit]

$gui_x=@DesktopWidth-(@DesktopWidth/8)
$gui_y=@DesktopHeight-(@DesktopHeight/8)

[/autoit] [autoit][/autoit] [autoit]

$width=$gui_x

[/autoit] [autoit][/autoit] [autoit]

$cam_xlength=(1.3*($width/2)-(2*($width/20)));300 ;Breite (1.3*($width/2)-(2*($width/20)))
$cam_ylength=( $width/2)-(2*($width/20));300 ;Höhe ( $width/2)-(2*($width/20))

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{END}", "Quit");
HotKeySet("{INSERT}", "SnapShot")

[/autoit] [autoit][/autoit] [autoit]

$snapfile1 = @ScriptDir & "\scrshot1.bmp"

[/autoit] [autoit][/autoit] [autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.11.7 (beta)
thnx to rysiora with his great example!
Author: Ludocus

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Webcam Udf

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------
#include-once
$WM_CAP_START = 0x400
$WM_CAP_UNICODE_START = $WM_CAP_START +100
$WM_CAP_PAL_SAVEA = $WM_CAP_START + 81
$WM_CAP_PAL_SAVEW = $WM_CAP_UNICODE_START + 81
$WM_CAP_UNICODE_END = $WM_CAP_PAL_SAVEW
$WM_CAP_ABORT = $WM_CAP_START + 69
$WM_CAP_DLG_VIDEOCOMPRESSION = $WM_CAP_START + 46
$WM_CAP_DLG_VIDEODISPLAY = $WM_CAP_START + 43
$WM_CAP_DLG_VIDEOFORMAT = $WM_CAP_START + 41
$WM_CAP_DLG_VIDEOSOURCE = $WM_CAP_START + 42
$WM_CAP_DRIVER_CONNECT = $WM_CAP_START + 10
$WM_CAP_DRIVER_DISCONNECT = $WM_CAP_START + 11
$WM_CAP_DRIVER_GET_CAPS = $WM_CAP_START + 14
$WM_CAP_DRIVER_GET_NAMEA = $WM_CAP_START + 12
$WM_CAP_DRIVER_GET_NAMEW = $WM_CAP_UNICODE_START + 12
$WM_CAP_DRIVER_GET_VERSIONA = $WM_CAP_START + 13
$WM_CAP_DRIVER_GET_VERSIONW = $WM_CAP_UNICODE_START + 13
$WM_CAP_EDIT_COPY = $WM_CAP_START + 30
$WM_CAP_END = $WM_CAP_UNICODE_END
$WM_CAP_FILE_ALLOCATE = $WM_CAP_START + 22
$WM_CAP_FILE_GET_CAPTURE_FILEA = $WM_CAP_START + 21
$WM_CAP_FILE_GET_CAPTURE_FILEW = $WM_CAP_UNICODE_START + 21
$WM_CAP_FILE_SAVEASA = $WM_CAP_START + 23
$WM_CAP_FILE_SAVEASW = $WM_CAP_UNICODE_START + 23
$WM_CAP_FILE_SAVEDIBA = $WM_CAP_START + 25
$WM_CAP_FILE_SAVEDIBW = $WM_CAP_UNICODE_START + 25
$WM_CAP_FILE_SET_CAPTURE_FILEA = $WM_CAP_START + 20
$WM_CAP_FILE_SET_CAPTURE_FILEW = $WM_CAP_UNICODE_START + 20
$WM_CAP_FILE_SET_INFOCHUNK = $WM_CAP_START + 24
$WM_CAP_GET_AUDIOFORMAT = $WM_CAP_START + 36
$WM_CAP_GET_CAPSTREAMPTR = $WM_CAP_START + 1
$WM_CAP_GET_MCI_DEVICEA = $WM_CAP_START + 67
$WM_CAP_GET_MCI_DEVICEW = $WM_CAP_UNICODE_START + 67
$WM_CAP_GET_SEQUENCE_SETUP = $WM_CAP_START + 65
$WM_CAP_GET_STATUS = $WM_CAP_START + 54
$WM_CAP_GET_USER_DATA = $WM_CAP_START + 8
$WM_CAP_GET_VIDEOFORMAT = $WM_CAP_START + 44
$WM_CAP_GRAB_FRAME = $WM_CAP_START + 60
$WM_CAP_GRAB_FRAME_NOSTOP = $WM_CAP_START + 61
$WM_CAP_PAL_AUTOCREATE = $WM_CAP_START + 83
$WM_CAP_PAL_MANUALCREATE = $WM_CAP_START + 84
$WM_CAP_PAL_OPENA = $WM_CAP_START + 80
$WM_CAP_PAL_OPENW = $WM_CAP_UNICODE_START + 80
$WM_CAP_PAL_PASTE = $WM_CAP_START + 82
$WM_CAP_SEQUENCE = $WM_CAP_START + 62
$WM_CAP_SEQUENCE_NOFILE = $WM_CAP_START + 63
$WM_CAP_SET_AUDIOFORMAT = $WM_CAP_START + 35
$WM_CAP_SET_CALLBACK_CAPCONTROL = $WM_CAP_START + 85
$WM_CAP_SET_CALLBACK_ERRORA = $WM_CAP_START + 2
$WM_CAP_SET_CALLBACK_ERRORW = $WM_CAP_UNICODE_START + 2
$WM_CAP_SET_CALLBACK_FRAME = $WM_CAP_START + 5
$WM_CAP_SET_CALLBACK_STATUSA = $WM_CAP_START + 3
$WM_CAP_SET_CALLBACK_STATUSW = $WM_CAP_UNICODE_START + 3
$WM_CAP_SET_CALLBACK_VIDEOSTREAM = $WM_CAP_START + 6
$WM_CAP_SET_CALLBACK_WAVESTREAM = $WM_CAP_START + 7
$WM_CAP_SET_CALLBACK_YIELD = $WM_CAP_START + 4
$WM_CAP_SET_MCI_DEVICEA = $WM_CAP_START + 66
$WM_CAP_SET_MCI_DEVICEW = $WM_CAP_UNICODE_START + 66
$WM_CAP_SET_OVERLAY = $WM_CAP_START + 51
$WM_CAP_SET_PREVIEW = $WM_CAP_START + 50
$WM_CAP_SET_PREVIEWRATE = $WM_CAP_START + 52
$WM_CAP_SET_SCALE = $WM_CAP_START + 53
$WM_CAP_SET_SCROLL = $WM_CAP_START + 55
$WM_CAP_SET_SEQUENCE_SETUP = $WM_CAP_START + 64
$WM_CAP_SET_USER_DATA = $WM_CAP_START + 9
$WM_CAP_SET_VIDEOFORMAT = $WM_CAP_START + 45
$WM_CAP_SINGLE_FRAME = $WM_CAP_START + 72
$WM_CAP_SINGLE_FRAME_CLOSE = $WM_CAP_START + 71
$WM_CAP_SINGLE_FRAME_OPEN = $WM_CAP_START + 70
$WM_CAP_STOP = $WM_CAP_START + 68

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$avi = DllOpen("avicap32.dll")
$user = DllOpen("user32.dll")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$gui_name="Webcam UDF Test"

[/autoit] [autoit][/autoit] [autoit]

$gui = GUICreate($gui_name,$gui_x,$gui_y)

[/autoit] [autoit][/autoit] [autoit]

;$label1=GUICtrlCreateLabel("Delta",50,400,150,420)
;$label2=GUICtrlCreateLabel("Max",150,400)
;$label3=GUICtrlCreateLabel("Max",75,420,250)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;Dim $red[$cam_xlength/$Gridstep*$cam_ylength/$Gridstep+1]
;Dim $green[$cam_xlength/$Gridstep*$cam_ylength/$Gridstep+1]
;Dim $blue[$cam_xlength/$Gridstep*$cam_ylength/$Gridstep+1]

[/autoit] [autoit][/autoit] [autoit]

$WebcamID = _WebcamOpen($gui, 20, 20, $cam_xlength, $cam_ylength)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
;$changeold=0

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($gui)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;FileCopy(@ScriptDir & "\scrshot1.bmp",@ScriptDir & "\using.bmp")

[/autoit] [autoit][/autoit] [autoit]

$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\using.bmp")
$iWidth = _GDIPlus_ImageGetWidth($hImage) * 96 / _GDIPlus_ImageGetVerticalResolution($hImage)
$iHeight = _GDIPlus_ImageGetHeight($hImage) * 96 / _GDIPlus_ImageGetHorizontalResolution($hImage)

[/autoit] [autoit][/autoit] [autoit]

$hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hMatrix, 1200, 500)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_GDIPlus_MatrixRotate($hMatrix, 270, "False")
_GDIPlus_GraphicsSetTransform($hGraphic, $hMatrix)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, -$iWidth / 2, -$iHeight / 2)

[/autoit] [autoit][/autoit] [autoit]

Sleep(10)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_GDIPlus_MatrixDispose($hMatrix)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()

[/autoit] [autoit][/autoit] [autoit]

;FileDelete(@ScriptDir & "\using.bmp")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;$pos=WinGetPos ( $gui_name ) ;Farbwerte der Cam werden direkt vom Screen ausgelesen
;$xpos=$pos[0] ;dazu wird das direkt angezeigte Bild
;$ypos=$pos[1] ;abgefragt
;$count=0

[/autoit] [autoit][/autoit] [autoit]

;$change=0
;$tempchange=0
;$changemax=0

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;For $x_scan = 1 to $cam_xlength Step $Gridstep
;For $y_scan = 1 to $cam_ylength Step $Gridstep

[/autoit] [autoit][/autoit] [autoit]

;$count=$count+1 ;Counter für abgetastete Pixel

[/autoit] [autoit][/autoit] [autoit]

;$farbe=PixelGetColor(2+$x_scan+$xpos,21+$y_scan+$ypos)
;$redc=BitAND($farbe, 0xFF0000) / 16^4
;$greenc=BitAND($farbe, 0x00FF00) / 16^2
;$bluec=BitAND($farbe, 0x0000FF)

[/autoit] [autoit][/autoit] [autoit]

;$change_red=$red[$count]-$redc
;$change_green=$green[$count]-$greenc
;$change_blue=$blue[$count]-$bluec

[/autoit] [autoit][/autoit] [autoit]

;$tempchange=Abs($change_red)+Abs($change_green)+Abs($change_blue)

[/autoit] [autoit][/autoit] [autoit]

;$change+=$tempchange
;If $changemax<$tempchange Then $changemax=$tempchange

[/autoit] [autoit][/autoit] [autoit]

;$red[$count]=$redc
;$green[$count]=$greenc
;$blue[$count]=$bluec

[/autoit] [autoit][/autoit] [autoit]

$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
_WebcamClose($WebcamID)
Exit
EndIf
;Next
;Next

[/autoit] [autoit][/autoit] [autoit]

;$change=$change/$count

[/autoit] [autoit][/autoit] [autoit]

;GUICtrlSetData($label1,int($change))
;GUICtrlSetData($label2,$changemax)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;$diff=abs($change-$changeold)

[/autoit] [autoit][/autoit] [autoit]

;Hier können Anweisungen kommen wie "if $diff>50 then snapshot" folgen
;
;z.B.:

[/autoit] [autoit][/autoit] [autoit]

;Select
;Case $diff <$sensitivity
; GUICtrlSetData($label3,"none")

[/autoit] [autoit][/autoit] [autoit]

;Case $diff > $sensitivity AND $diff<=$sensitivity*2
; GUICtrlSetData($label3,"slight")
;Case $diff > 2*$sensitivity AND $diff<=$sensitivity*4
; GUICtrlSetData($label3,"medium")
;Case $diff > 4*$sensitivity
; GUICtrlSetData($label3,"high")
;EndSelect

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;$changeold=$change
; Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func SnapShot()
;MsgBox(0,"Snapshot","press ok")
_WebcamSnap($WebcamID, $snapfile1)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Quit()
_WebcamClose($WebcamID)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Description: Open's a webcam preview screen in your gui
; Syntax: _WebcamOpen($sHwnd, $sLeft, $sTop, $sWidth, $sHeight)
; 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
; Requirement(s): A webcam
; Return Value(s): On Success - Returns id needed for other controls
; On Failure - Returns -1
; Author(s): Ludocus
; Note(s): None
;
;===============================================================================
func _WebcamOpen($sHwnd, $sLeft, $sTop, $sWidth, $sHeight)
$cap = DllCall($avi, "int", "capCreateCaptureWindow", "str", "cap", "int", BitOR($WS_CHILD,$WS_VISIBLE), "int", $sLeft, "int", $sTop, "int", $sWidth, "int", $sHeight, "hwnd", $sHwnd, "int", 1)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_DRIVER_CONNECT, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_SCALE, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_OVERLAY, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEW, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEWRATE, "int", 1, "int", 0)
if @error then return -1
return $cap[0]
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Description: Creates a Snapshot from a webcam
; Syntax: _WebcamSnap($sId, $sFile)
; Parameter(s): $sId - Id (returned from _WebcamOpen)
; $sFile - File to save the snapshot to (*.bmp)
; Requirement(s): A webcam
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0
; Author(s): Ludocus
; Note(s): None
;
;===============================================================================
Func _WebcamSnap($sId, $sFile)
DllCall($user, "int", "SendMessage", "hWnd", $sId, "int", $WM_CAP_GRAB_FRAME_NOSTOP, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $sId, "int", $WM_CAP_FILE_SAVEDIBA, "int", 0, "str", $sFile)
if @error Then
return 0
Else
return 1
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Description: Closes the preview screen created with _WebcamOpen
; Syntax: _WebcamClose($sId)
; Parameter(s): $sId - Id (returned from _WebcamOpen)
; Requirement(s): A webcam
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0
; Author(s): Ludocus
; Note(s): None
;
;===============================================================================
Func _WebcamClose($sId)
DllCall($user, "int", "SendMessage", "hWnd", $sId, "int", $WM_CAP_END, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $sId, "int", $WM_CAP_DRIVER_DISCONNECT, "int", 0, "int", 0)
DllClose($user)
if @error Then
return 0
Else
return 1
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Description: Starts recording the webcam to a file
; Syntax: _WebcamRecordStart($sFile, $sId)
; Parameter(s): $sId - Id (returned from _WebcamOpen)
; $sFile - File to save the movie to (*.avi)
; Requirement(s): A webcam
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0
; Author(s): Ludocus
; Note(s): Stop recording by: _WebcamRecordStop($Id)
;
;===============================================================================
#cs
Func _WebcamRecordStart($sFile, $sId)
DllCall($user, "int", "SendMessage", "hWnd", $sId, "int", $WM_CAP_FILE_SET_CAPTURE_FILEA, "int", 0, "str", $sFile)
DllCall($user, "int", "SendMessage", "hWnd", $sId, "int", $WM_CAP_SEQUENCE, "int", 0, "int", 0)
if @error Then
return 0
Else
return 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Description: Stops recording.
; Syntax: _WebcamRecordStop($sId)
; Parameter(s): $sId - Id (returned from _WebcamOpen)
; Requirement(s): A webcam
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0
; Author(s): Ludocus
; Note(s): None
;
;===============================================================================
Func _WebcamRecordStop($sId)
DllCall($user, "int", "SendMessage", "hWnd", $sId, "int", $WM_CAP_STOP, "int", 0, "int", 0)
if @error Then
return 0
Else
return 1
EndIf
EndFunc ;==> _WebcamRecordStop

[/autoit] [autoit][/autoit] [autoit]

#ce

[/autoit] [autoit][/autoit] [autoit][/autoit]

kettensaege

Halo vivius,

vielen Dank für dein Beispiel, aber dein Besipiel beinhaltet leider keinerlei verwendung von DirectShow/DirektX. Das Bespiele kenne ich sehr gut, leider funktioniert es unter Windows 7 nur mäßig.

Daher nochmal die Frage an alle. Gibt es eine .Dll die via DirectShow/DirektX ein Webcam capture ermöglichen würde? Oder sonst eine Möglichkeit via DirectShow/DirektX das Problem zu lösen?

Carsten

**BugFix**

vivus:
Diese UDF ist nicht wirklich funktionsfähig, eine funktionierende Variante habe ich hier gepostet.

@kettensaege:
Warum ist es für dich so wichtig, DirectShow/DirektX dafür zu verwenden?

vivus

!!! WWAAUUU !! DANKE ! BugFix
hab ich mir gleich mal gezogen

das andere hat auch seinen Zweck bisher erfüllt .. wenn's mal läuft, dann läuft's ..

haste vielleicht irgend wo noch ne Funktion, um das Live Bild zu drehen ( 90°) ? mach das sehr umständlich und unschön über die Zwischenablage "schäm"

aber echt beide Daumen hoch, für dein Script !!

ps: woher bekommst du denn die Binär Code's für die Icon'S ?

**BugFix**

Zitat von vivus

ps: woher bekommst du denn die Binär Code's für die Icon'S ?

Dazu habe ich mals das hier geschrieben.