Webcam UDF

SUBMITTED BY: Guest

DATE: May 29, 2013, 7:07 a.m.

FORMAT: Text only

SIZE: 7.3 kB

Raw Download

HITS: 2106

Report
  1. #include-once
  2. #include <GUIConstants.au3>
  4. ;~ #####################################################
  5. ;~ ### ###
  6. ;~ ### Webcam UDF ###
  7. ;~ ### ###
  8. ;~ ### Functions : _WebcamInit() ###
  9. ;~ ### _Webcam() ###
  10. ;~ ### _WebcamStop() ###
  11. ;~ ### _WebcamSnapShot() ###
  12. ;~ ### ###
  13. ;~ ### Made by L|M|TER ###
  14. ;~ ### --------------------------------------------- ###
  15. ;~ ### ###
  16. ;~ ### Copyright ©2008 - L|M|TER ###
  17. ;~ ### ###
  18. ;~ #####################################################
  20. ;~ Declaring Variables
  22. $WM_CAP_START = 0x400
  23. $WM_CAP_UNICODE_START = $WM_CAP_START +100
  24. $WM_CAP_PAL_SAVEA = $WM_CAP_START + 81
  25. $WM_CAP_PAL_SAVEW = $WM_CAP_UNICODE_START + 81
  26. $WM_CAP_UNICODE_END = $WM_CAP_PAL_SAVEW
  27. $WM_CAP_ABORT = $WM_CAP_START + 69
  28. $WM_CAP_DLG_VIDEOCOMPRESSION = $WM_CAP_START + 46
  29. $WM_CAP_DLG_VIDEODISPLAY = $WM_CAP_START + 43
  30. $WM_CAP_DLG_VIDEOFORMAT = $WM_CAP_START + 41
  31. $WM_CAP_DLG_VIDEOSOURCE = $WM_CAP_START + 42
  32. $WM_CAP_DRIVER_CONNECT = $WM_CAP_START + 10
  33. $WM_CAP_DRIVER_DISCONNECT = $WM_CAP_START + 11
  34. $WM_CAP_DRIVER_GET_CAPS = $WM_CAP_START + 14
  35. $WM_CAP_DRIVER_GET_NAMEA = $WM_CAP_START + 12
  36. $WM_CAP_DRIVER_GET_NAMEW = $WM_CAP_UNICODE_START + 12
  37. $WM_CAP_DRIVER_GET_VERSIONA = $WM_CAP_START + 13
  38. $WM_CAP_DRIVER_GET_VERSIONW = $WM_CAP_UNICODE_START + 13
  39. $WM_CAP_EDIT_COPY = $WM_CAP_START + 30
  40. $WM_CAP_END = $WM_CAP_UNICODE_END
  41. $WM_CAP_FILE_ALLOCATE = $WM_CAP_START + 22
  42. $WM_CAP_FILE_GET_CAPTURE_FILEA = $WM_CAP_START + 21
  43. $WM_CAP_FILE_GET_CAPTURE_FILEW = $WM_CAP_UNICODE_START + 21
  44. $WM_CAP_FILE_SAVEASA = $WM_CAP_START + 23
  45. $WM_CAP_FILE_SAVEASW = $WM_CAP_UNICODE_START + 23
  46. $WM_CAP_FILE_SAVEDIBA = $WM_CAP_START + 25
  47. $WM_CAP_FILE_SAVEDIBW = $WM_CAP_UNICODE_START + 25
  48. $WM_CAP_FILE_SET_CAPTURE_FILEA = $WM_CAP_START + 20
  49. $WM_CAP_FILE_SET_CAPTURE_FILEW = $WM_CAP_UNICODE_START + 20
  50. $WM_CAP_FILE_SET_INFOCHUNK = $WM_CAP_START + 24
  51. $WM_CAP_GET_AUDIOFORMAT = $WM_CAP_START + 36
  52. $WM_CAP_GET_CAPSTREAMPTR = $WM_CAP_START + 1
  53. $WM_CAP_GET_MCI_DEVICEA = $WM_CAP_START + 67
  54. $WM_CAP_GET_MCI_DEVICEW = $WM_CAP_UNICODE_START + 67
  55. $WM_CAP_GET_SEQUENCE_SETUP = $WM_CAP_START + 65
  56. $WM_CAP_GET_STATUS = $WM_CAP_START + 54
  57. $WM_CAP_GET_USER_DATA = $WM_CAP_START + 8
  58. $WM_CAP_GET_VIDEOFORMAT = $WM_CAP_START + 44
  59. $WM_CAP_GRAB_FRAME = $WM_CAP_START + 60
  60. $WM_CAP_GRAB_FRAME_NOSTOP = $WM_CAP_START + 61
  61. $WM_CAP_PAL_AUTOCREATE = $WM_CAP_START + 83
  62. $WM_CAP_PAL_MANUALCREATE = $WM_CAP_START + 84
  63. $WM_CAP_PAL_OPENA = $WM_CAP_START + 80
  64. $WM_CAP_PAL_OPENW = $WM_CAP_UNICODE_START + 80
  65. $WM_CAP_PAL_PASTE = $WM_CAP_START + 82
  66. $WM_CAP_SEQUENCE = $WM_CAP_START + 62
  67. $WM_CAP_SEQUENCE_NOFILE = $WM_CAP_START + 63
  68. $WM_CAP_SET_AUDIOFORMAT = $WM_CAP_START + 35
  69. $WM_CAP_SET_CALLBACK_CAPCONTROL = $WM_CAP_START + 85
  70. $WM_CAP_SET_CALLBACK_ERRORA = $WM_CAP_START + 2
  71. $WM_CAP_SET_CALLBACK_ERRORW = $WM_CAP_UNICODE_START + 2
  72. $WM_CAP_SET_CALLBACK_FRAME = $WM_CAP_START + 5
  73. $WM_CAP_SET_CALLBACK_STATUSA = $WM_CAP_START + 3
  74. $WM_CAP_SET_CALLBACK_STATUSW = $WM_CAP_UNICODE_START + 3
  75. $WM_CAP_SET_CALLBACK_VIDEOSTREAM = $WM_CAP_START + 6
  76. $WM_CAP_SET_CALLBACK_WAVESTREAM = $WM_CAP_START + 7
  77. $WM_CAP_SET_CALLBACK_YIELD = $WM_CAP_START + 4
  78. $WM_CAP_SET_MCI_DEVICEA = $WM_CAP_START + 66
  79. $WM_CAP_SET_MCI_DEVICEW = $WM_CAP_UNICODE_START + 66
  80. $WM_CAP_SET_OVERLAY = $WM_CAP_START + 51
  81. $WM_CAP_SET_PREVIEW = $WM_CAP_START + 50
  82. $WM_CAP_SET_PREVIEWRATE = $WM_CAP_START + 52
  83. $WM_CAP_SET_SCALE = $WM_CAP_START + 53
  84. $WM_CAP_SET_SCROLL = $WM_CAP_START + 55
  85. $WM_CAP_SET_SEQUENCE_SETUP = $WM_CAP_START + 64
  86. $WM_CAP_SET_USER_DATA = $WM_CAP_START + 9
  87. $WM_CAP_SET_VIDEOFORMAT = $WM_CAP_START + 45
  88. $WM_CAP_SINGLE_FRAME = $WM_CAP_START + 72
  89. $WM_CAP_SINGLE_FRAME_CLOSE = $WM_CAP_START + 71
  90. $WM_CAP_SINGLE_FRAME_OPEN = $WM_CAP_START + 70
  91. $WM_CAP_STOP = $WM_CAP_START + 68
  92. $cap = ""
  93. $avi = ""
  94. $user = ""
  95. $snapfile = @ScriptDir & "\snapshot.bmp"
  97. ;~ ##########################################################
  98. ;~ Function Name : _WebcamInit()
  99. ;~ Description : Starts the webcam image capturing session
  100. ;~ Author : L|M|TER
  101. ;~ ##########################################################
  103. Func _WebcamInit()
  104. $avi = DllOpen("avicap32.dll")
  105. $user = DllOpen("user32.dll")
  106. EndFunc
  108. ;~ ##########################################################
  109. ;~ Function Name : _Webcam($gui,$h,$w,$l,$t)
  110. ;~ Description : Creates a webcam preview window
  111. ;~ Parameter(s):
  112. ;~ $gui - The gui where the webcam window should be created
  113. ;~ $h - The height of the webcam window
  114. ;~ $w - The width of the webcam window
  115. ;~ $l - The left position of the webcam window
  116. ;~ $t - The top position of the webcam window
  117. ;~ NOTE : All parameters required !
  118. ;~ Author : L|M|TER
  119. ;~ ##########################################################
  121. Func _Webcam($gui,$w,$h,$l,$t)
  122. $cap = DllCall($avi, "int", "capCreateCaptureWindow", "str", "cap", "int", BitOR($WS_CHILD,$WS_VISIBLE), "int", $l, "int", $t, "int", $w, "int", $h, "hwnd", $gui, "int", 1)
  124. DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_DRIVER_CONNECT, "int", 0, "int", 0)
  125. DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_SCALE, "int", 1, "int", 0)
  126. DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_OVERLAY, "int", 1, "int", 0)
  127. DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEW, "int", 1, "int", 0)
  128. DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEWRATE, "int", 1, "int", 0)
  129. EndFunc
  131. ;~ ##########################################################
  132. ;~ Function Name : _WebcamStop()
  133. ;~ Description : Closes the webcam image capturing session
  134. ;~ Author : L|M|TER
  135. ;~ ##########################################################
  137. Func _WebcamStop()
  138. DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_END, "int", 0, "int", 0)
  139. DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_DRIVER_DISCONNECT, "int", 0, "int", 0)
  140. DllClose($user)
  141. DllClose($avi)
  142. EndFunc
  144. ;~ ##########################################################
  145. ;~ Function Name : _WebcamSnapShot($file)
  146. ;~ Description : Takes a snapshot
  147. ;~ Parameter(s):
  148. ;~ $file (Optional) - The path to the file where the snapshot will be saved (Default : @ScriptDir & "\snapshot.bmp")
  149. ;~ Author : L|M|TER
  150. ;~ ##########################################################
  152. Func _WebcamSnapShot($file = $snapfile)
  153. DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_GRAB_FRAME_NOSTOP, "int", 0, "int", 0)
  154. DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_FILE_SAVEDIBA, "int", 0, "str", $file)
  155. EndFunc
comments powered by Disqus