;Fenster-Konstanten
Const BnWindowClose = $F060    ; Close button
Const BnWindowRestore = $F120  ; Restore button
Const BnWindowMaximize = $F030 ; Maximize button
Const BnWindowMinimize = $F020 ; Minimize button
Const BnWindowMove = $F010     ; Move functionality
Const BnWindowSize = $F000     ; Resizing functionality

;Webcam-Konstanten
Const WS_CHILD = $40000000
Const WS_VISIBLE = $10000000
Const SWP_NOMOVE = $2
Const SWP_NOZORDER = $4
Const HWND_BOTTOM = 1
Const WM_USER = $400

Const WM_CAP_START = WM_USER
Const WM_CAP_GET_CAPSTREAMPTR = WM_CAP_START + 1
Const WM_CAP_SET_CALLBACK_ERROR = WM_CAP_START + 2
Const WM_CAP_SET_CALLBACK_STATUS = WM_CAP_START + 3
Const WM_CAP_SET_CALLBACK_YIELD = WM_CAP_START + 4
Const WM_CAP_SET_CALLBACK_FRAME = WM_CAP_START + 5
Const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START + 6
Const WM_CAP_SET_CALLBACK_WAVESTREAM = WM_CAP_START + 7
Const WM_CAP_GET_USER_DATA = WM_CAP_START + 8
Const WM_CAP_SET_USER_DATA = WM_CAP_START + 9

Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
Const WM_CAP_DRIVER_GET_NAME = WM_CAP_START + 12
Const WM_CAP_DRIVER_GET_VERSION = WM_CAP_START + 13
Const WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14

Const WM_CAP_FILE_SET_CAPTURE_FILE = WM_CAP_START + 20
Const WM_CAP_FILE_GET_CAPTURE_FILE = WM_CAP_START + 21
Const WM_CAP_FILE_ALLOCATE = WM_CAP_START + 22
Const WM_CAP_FILE_SAVEAS = WM_CAP_START + 23
Const WM_CAP_FILE_SET_INFOCHUNK = WM_CAP_START + 24
Const WM_CAP_FILE_SAVEDIB = WM_CAP_START + 25

Const WM_CAP_EDIT_COPY = WM_CAP_START + 30

Const WM_CAP_SET_AUDIOFORMAT = WM_CAP_START + 35
Const WM_CAP_GET_AUDIOFORMAT = WM_CAP_START + 36

Const WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
Const WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
Const WM_CAP_DLG_VIDEODISPLAY = WM_CAP_START + 43
Const WM_CAP_GET_VIDEOFORMAT = WM_CAP_START + 44
Const WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
Const WM_CAP_DLG_VIDEOCOMPRESSION = WM_CAP_START + 46

Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50
Const WM_CAP_SET_OVERLAY = WM_CAP_START + 51
Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
Const WM_CAP_SET_SCALE = WM_CAP_START + 53
Const WM_CAP_GET_STATUS = WM_CAP_START + 54
Const WM_CAP_SET_SCROLL = WM_CAP_START + 55

Const WM_CAP_GRAB_FRAME = WM_CAP_START + 60
Const WM_CAP_GRAB_FRAME_NOSTOP = WM_CAP_START + 61

Const WM_CAP_SEQUENCE = WM_CAP_START + 62
Const WM_CAP_SEQUENCE_NOFILE = WM_CAP_START + 63
Const WM_CAP_SET_SEQUENCE_SETUP = WM_CAP_START + 64
Const WM_CAP_GET_SEQUENCE_SETUP = WM_CAP_START + 65
Const WM_CAP_SET_MCI_DEVICE = WM_CAP_START + 66
Const WM_CAP_GET_MCI_DEVICE = WM_CAP_START + 67
Const WM_CAP_STOP = WM_CAP_START + 68
Const WM_CAP_ABORT = WM_CAP_START + 69

Const WM_CAP_SINGLE_FRAME_OPEN = WM_CAP_START + 70
Const WM_CAP_SINGLE_FRAME_CLOSE = WM_CAP_START + 71
Const WM_CAP_SINGLE_FRAME = WM_CAP_START + 72
Const WM_CAP_PAL_OPEN = WM_CAP_START + 80
Const WM_CAP_PAL_SAVE = WM_CAP_START + 81
Const WM_CAP_PAL_PASTE = WM_CAP_START + 82
Const WM_CAP_PAL_AUTOCREATE = WM_CAP_START + 83
Const WM_CAP_PAL_MANUALCREATE = WM_CAP_START + 84


Const cb_Bitmap = 2



;////////////////////////////////////////////////     \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Graphics 640,480,32,2
SetBuffer BackBuffer()
Timer = CreateTimer(60)
AppTitle "Milch-Scanner"
EnableMenuItem (GetSystemMenu (GetActiveWindow(), 0), BnWindowClose,1)

hwndHandle = findWindow_("Blitz Runtime Class", "Milch-Scanner")
hwnd=avi_cap_("Milch-Scanner", WS_CHILD + WS_VISIBLE, 0, 0, 640, 480, hwndHandle, 0)
sendmessage(hwnd, WM_CAP_DRIVER_CONNECT,   0, 0)
sendmessage(hwnd, WM_CAP_DLG_VIDEOSOURCE,  0, 0)
sendmessage(hwnd, WM_CAP_DLG_VIDEOFORMAT,  0, 0)

Cls

While Not KeyHit(1)
   Time = MilliSecs()
   sendmessage(hwnd,WM_CAP_GRAB_FRAME, 0 , 0)
   AppTitle "Milch-Scanner  Step 1  MS: " + Str$(MilliSecs() - Time)
   
   If KeyHit(3) Then
      Tmp = 0
      EmptyClipboard
      sendmessage(hwnd, WM_CAP_EDIT_COPY,  0, 0)
      OpenClipboard(hwnd)
      Tmp=GetClipboardData(cb_Bitmap)
      CloseClipboard()
      SaveImage Tmp, "C:\web.bmp"
   End If
   
   WaitTimer Timer
   Flip 0
Wend

AppTitle "Milch-Scanner"
sendmessage(hwnd, WM_CAP_SET_PREVIEW, "Milch-Scanner", 0)
sendmessage(hwnd, WM_CAP_DRIVER_DISCONNECT, "Milch-Scanner", 0)
sendmessage(hwnd, WM_CAP_SET_CALLBACK_ERROR, "Milch-Scanner", 0)
sendmessage(hwnd, WM_CAP_SET_CALLBACK_STATUS, "Milch-Scanner", 0)
sendmessage(hwnd, WM_CAP_SET_CALLBACK_Yield, "Milch-Scanner", 0)
sendmessage(hwnd, WM_CAP_SET_CALLBACK_Frame, "Milch-Scanner", 0)
sendmessage(hwnd, WM_CAP_SET_CALLBACK_VideoStream, "Milch-Scanner", 0)
sendmessage(hwnd, WM_CAP_SET_CALLBACK_WaveStream, "Milch-Scanner", 0)
sendmessage(hwnd, WM_CAP_SET_CALLBACK_CapControl, "Milch-Scanner", 0)
End