毕业设计！用VB.NET编写一个USB摄像头拍照并保存照片功能的程序，现在主流的方法是什么？解决思路
毕业设计！急！用VB.NET编写一个USB摄像头拍照并保存照片功能的程序，现在主流的方法是什么？
用VB.NET编写一个USB摄像头拍照并保存照片功能的程序，现在主流的方法是什么？
用API？DirectShow？还是有其它更好的方法？
我在网上看到的程序代码是用到avicap32.dll和User32.dll，这个是什么方法？以前没做过摄像头调用的程序，知道的人说详细点，应该看哪方面资料，我再去找相关资料看！
大家帮下忙啊，毕业设计急要！！！谢谢大家了！
------解决方案--------------------
Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Drawing.Imaging
Class Camera
Private Const WM_CAP_START = WM_USER
Private Const WM_CAP_STOP = WM_CAP_START + 68
Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Private Const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
Private Const WM_CAP_SAVEDIB = WM_CAP_START + 25
Private Const WM_CAP_GRAB_FRAME = WM_CAP_START + 60
Private Const WM_CAP_SEQUENCE = WM_CAP_START + 62
Private Const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20
Private Const WM_CAP_SEQUENCE_NOFILE = WM_CAP_START + 63
Private Const WM_CAP_SET_OVERLAY = WM_CAP_START + 51
Private Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50
Private Const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START + 6
Private Const WM_CAP_SET_CALLBACK_ERROR = WM_CAP_START + 2
Private Const WM_CAP_SET_CALLBACK_STATUSA = WM_CAP_START + 3
Private Const WM_CAP_SET_CALLBACK_FRAME = WM_CAP_START + 5
Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53
Private Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
Sub New(ByVal I As PictureBox)
o = I
End Sub
Dim o As PictureBox
Dim M_Handle As IntPtr
Private Const WM_CAP_EDIT_COPY = (WM_CAP_START + 30)
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Integer)
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _
Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, _
ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
ByVal nHeight As Integer, ByVal hWndParent As Integer, ByVal nID As Integer) As Integer
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const WM_USER = &H400
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Integer, _
ByVal wMsg As Integer, ByVal wParam As Integer, _
ByVal lParam As String) As Integer
Public Function GrabImage() As Bitmap
'paht:要保存bmp文件的路径
SendMessage(M_Handle, WM_CAP_EDIT_COPY, 0, 0)
Return Clipboard.GetImage
End Function
Function CreateCaptureWindow(ByVal hWndParent As PictureBox, _
Optional ByVal x As Integer = 0, Optional ByVal y As Integer = 0, _
Optional ByVal nWidth As Integer = 320, Optional ByVal nHeight As Integer = 240, _
Optional ByVal nCameraID As Integer = 0) As Integer
Dim Preview_Handle As Integer
Preview_Handle = capCreateCaptureWindow("Video", _
WS_CHILD + WS_VISIBLE, x, y, _
hWndParent.Width, hWndParent.Height, hWndParent.Handle, 0)
Dim BOOL As Boolean
BOOL = SendMessage(Preview_Handle, WM_CAP_DRIVER_CONNECT, nCameraID, 0) 'ncameraid(视频只有一个为0，多个以此类推)
If (BOOL = False) Then
MsgBox("没有找到视频设备！")
End If
SendMessage(Preview_Handle, WM_CAP_SET_PREVIEWRATE, 30, 0)
SendMessage(Preview_Handle, WM_CAP_SET_OVERLAY, 1, 0)
SendMessage(Preview_Handle, WM_CAP_SET_PREVIEW, 1, 0)
M_Handle = Preview_Handle
End Function
Dim blnRunning As Boolean = False
Public Sub Disconnect()
SendMessage(M_Handle, WM_CAP_DRIVER_DISCONNECT, 0, 0)
End Sub
Dim blnRecording As Boolean = False
用VB.NET编写一个USB摄像头拍照并保存照片功能的程序，现在主流的方法是什么？
用API？DirectShow？还是有其它更好的方法？
我在网上看到的程序代码是用到avicap32.dll和User32.dll，这个是什么方法？以前没做过摄像头调用的程序，知道的人说详细点，应该看哪方面资料，我再去找相关资料看！
大家帮下忙啊，毕业设计急要！！！谢谢大家了！
------解决方案--------------------
Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Drawing.Imaging
Class Camera
Private Const WM_CAP_START = WM_USER
Private Const WM_CAP_STOP = WM_CAP_START + 68
Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Private Const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
Private Const WM_CAP_SAVEDIB = WM_CAP_START + 25
Private Const WM_CAP_GRAB_FRAME = WM_CAP_START + 60
Private Const WM_CAP_SEQUENCE = WM_CAP_START + 62
Private Const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20
Private Const WM_CAP_SEQUENCE_NOFILE = WM_CAP_START + 63
Private Const WM_CAP_SET_OVERLAY = WM_CAP_START + 51
Private Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50
Private Const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START + 6
Private Const WM_CAP_SET_CALLBACK_ERROR = WM_CAP_START + 2
Private Const WM_CAP_SET_CALLBACK_STATUSA = WM_CAP_START + 3
Private Const WM_CAP_SET_CALLBACK_FRAME = WM_CAP_START + 5
Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53
Private Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
Sub New(ByVal I As PictureBox)
o = I
End Sub
Dim o As PictureBox
Dim M_Handle As IntPtr
Private Const WM_CAP_EDIT_COPY = (WM_CAP_START + 30)
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Integer)
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _
Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, _
ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
ByVal nHeight As Integer, ByVal hWndParent As Integer, ByVal nID As Integer) As Integer
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const WM_USER = &H400
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Integer, _
ByVal wMsg As Integer, ByVal wParam As Integer, _
ByVal lParam As String) As Integer
Public Function GrabImage() As Bitmap
'paht:要保存bmp文件的路径
SendMessage(M_Handle, WM_CAP_EDIT_COPY, 0, 0)
Return Clipboard.GetImage
End Function
Function CreateCaptureWindow(ByVal hWndParent As PictureBox, _
Optional ByVal x As Integer = 0, Optional ByVal y As Integer = 0, _
Optional ByVal nWidth As Integer = 320, Optional ByVal nHeight As Integer = 240, _
Optional ByVal nCameraID As Integer = 0) As Integer
Dim Preview_Handle As Integer
Preview_Handle = capCreateCaptureWindow("Video", _
WS_CHILD + WS_VISIBLE, x, y, _
hWndParent.Width, hWndParent.Height, hWndParent.Handle, 0)
Dim BOOL As Boolean
BOOL = SendMessage(Preview_Handle, WM_CAP_DRIVER_CONNECT, nCameraID, 0) 'ncameraid(视频只有一个为0，多个以此类推)
If (BOOL = False) Then
MsgBox("没有找到视频设备！")
End If
SendMessage(Preview_Handle, WM_CAP_SET_PREVIEWRATE, 30, 0)
SendMessage(Preview_Handle, WM_CAP_SET_OVERLAY, 1, 0)
SendMessage(Preview_Handle, WM_CAP_SET_PREVIEW, 1, 0)
M_Handle = Preview_Handle
End Function
Dim blnRunning As Boolean = False
Public Sub Disconnect()
SendMessage(M_Handle, WM_CAP_DRIVER_DISCONNECT, 0, 0)
End Sub
Dim blnRecording As Boolean = False