Webcam unter Win7

Übersicht BlitzBasic BlitzPlus

Neue Antwort erstellen

 

Eisbaer

Betreff: Webcam unter Win7

BeitragDi, Jan 08, 2013 21:23
Antworten mit Zitat
Benutzer-Profile anzeigen
Schönen Abend liebe Community,

Ich Experementiere gerade etwas mit einer Webcam unter
Windows 7 Ultimate mit 32Bit.

Lauffähiges Demo zum Testen auf unterschiedlichen Systemen für euch.

BlitzPlus - V. 1.47


BlitzBasic: [AUSKLAPPEN]
Const WM_USER = 1024
Const WS_CHILD = $40000000
Const WS_VISIBLE = $10000000

Const WM_CAP_START = WM_USER
Const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50
Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
Const WM_CAP_SET_SCALE = WM_CAP_START + 53
Const WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
Const WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42

window = CreateWindow("Capture Window",200,200,326,264,0,17)
hWndC = QueryObject(window,1)

hWndC_API = capCreateCaptureWindow("cap",WS_CHILD Or WS_VISIBLE,0,0,320,240,hWndC,0)

api_SendMessage(hWndC_API,WM_CAP_DRIVER_CONNECT,0,0)
api_SendMessage(hWndC_API,WM_CAP_SET_SCALE,False,0)
api_SendMessage(hWndC_API,WM_CAP_SET_PREVIEW,True,0)
api_SendMessage(hWndC_API,WM_CAP_SET_PREVIEWRATE,1,0)
api_SendMessage(hWndC_API,WM_CAP_DLG_VIDEOFORMAT,0,0)


Repeat

Delay 40
If WaitEvent()=$803 Then Exit

Forever

api_SendMessage(hWndC_API,WM_CAP_DRIVER_DISCONNECT,0,0)

End


avicap32.decls

Code: [AUSKLAPPEN]
.lib "avicap32.dll"

capCreateCaptureWindow%(lpszWindowName$,dwStyle%,x%,y%,nWidth%,nHeight%,hWnd%,nID%):"capCreateCaptureWindowA"


user32.decls

Code: [AUSKLAPPEN]
.lib "user32.dll"

api_SendMessage% (hwnd%, wMsg%, wParam%, lParam%) : "SendMessageA"
Eigene Webseite:

http://www.eisbaer-studios.de

ozzi789

BeitragDi, Jan 15, 2013 19:42
Antworten mit Zitat
Benutzer-Profile anzeigen
Funktioniert bestens!!
Code ist im Ordner, kann man sicher mal brauchen Smile
user posted image
0x2B || ! 0x2B
C# | C++13 | Java 7 | PHP 5

Neue Antwort erstellen


Übersicht BlitzBasic BlitzPlus

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group