毕业设计！急！用VB.NET编写一个USB摄像头拍照并保存照片功能的程序，现在主流的方法是什么？

2011-12-24 07:29:58 696 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

零代码搭建专业知识库：Wiki.js+cpolar让团队协作像写笔记一样简单 "项目文档又找不到了！“团队负责人小张第N次在群里看到这样的抱怨——技术文档分散在邮件、网盘和个人电脑里，新人入职要花一周熟悉文档位置，远程协作时版本混乱更是家常便饭。Wiki.js与cpolar内网穿透服务的出现，就像给团队协作装上了"中央大脑”，用写Markdown笔记的简单方式，搭建一个专业的知识库系统。普通人对知识管理的需求其实很简单：方便记录、容易查找、大家能用。但传统方案把这个过程搞得异常复杂：建服务器、配环境、学语法、搞权限……大部分团队还没开始就放弃了。阅读详情

用VB.NET编写一个USB摄像头拍照并保存照片功能的程序，现在主流的方法是什么？
用API？DirectShow？还是有其它更好的方法？
我在网上看到的程序代码是用到avicap32.dll和User32.dll，这个是什么方法？以前没做过摄像头调用的程序，知道的人说详细点，应该看哪方面资料，我再去找相关资料看！
大家帮下忙啊，毕业设计急要！！！谢谢大家了！

...全文

SAP成本核算-事中控制（成本对象控制/成本归集与结算）本文详细介绍了SAP系统中工单成本归集与结算的全流程管理。主要内容包括：1）工单成本三阶段归集（投料、报工、入库）的具体操作与计算方法；2）工单实际成本结算七步骤：从实际费用归集、成本分割、作业价格计算到差异结算的全过程；3）关键注意事项如测试运行验证、价格单位确认、无在制品处理等。通过标准价计算、实际作业重估等机制，系统实现了生产成本从计划到实际的精确核算，最终生成财务所需的差异结算凭证。所有操作均提供单工单和批量处理两种方式，满足不同业务场景需求。阅读详情

ilshanghai

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

ilshanghai 2012-03-24

打赏
举报

[Quote=引用 14 楼 linjimu 的回复:]

看到这里，感觉你的需求永无止境。
自己动一动收。收获会良多的。
C#转vb.net也不难，都差不多能看懂吧。
[/Quote]
不是我懒惰，是真的调不出来，C#,VB.NET都没学过，不然也不用问的那么自习了。

liuying1982000 2012-03-16

打赏
举报

多用点心吧

沐NeMo 2012-03-14

打赏
举报

看到这里，感觉你的需求永无止境。
自己动一动收。收获会良多的。
C#转vb.net也不难，都差不多能看懂吧。

ilshanghai 2012-03-14

打赏
举报

[Quote=引用 9 楼 wood87654321 的回复:]

摄像头自带SDK虽最方便，但影响程序通用性，除此外有四种方法
1、avicap32.dll，老的API方法，但使用比较方便，类似7楼代码
2、DirectShow，强大，但除非你熟悉C/C++并知道自己做出的库如何被.Net调用，纯会VB.Net则想都别想
3、DirectShowLibNET，某些老外为解决2的伟大贡献
4、第三方控件或类库，但真正Free的几乎没有
[/Quote]
谢谢你列出的方法！
我毕设用的是vb.net，DirectShow是不是就没法用了？
我貌似下载过DirectShowLibNET（http://www.codeproject.com/Articles/2615/DirectShow-NET），里面的SampleGrabberNET就是我要的类型，但这个程序是C#编写的，有没有用VB.NET编的？

ilshanghai 2012-03-14

打赏
举报

[Quote=引用 7 楼 w249756642 的回复:]

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 =……
[/Quote]

谢谢你啊！VB程序窗体程序有完整的代码吗？
我要的就是“picturebbox1是视频显示，picturebbox2是拍取到的照片”这种效果。

jygongweibin 2012-01-20

打赏
举报

7楼的办法可以用

wood87654321 2012-01-16

打赏
举报

摄像头自带SDK虽最方便，但影响程序通用性，除此外有四种方法
1、avicap32.dll，老的API方法，但使用比较方便，类似7楼代码
2、DirectShow，强大，但除非你熟悉C/C++并知道自己做出的库如何被.Net调用，纯会VB.Net则想都别想
3、DirectShowLibNET，某些老外为解决2的伟大贡献
4、第三方控件或类库，但真正Free的几乎没有

w249756642 2012-01-12

打赏
举报

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

'录像
Public Sub KineScope(ByVal path As String)
If blnRecording Then
Return
Else
blnRecording = True
End If

'path:要保存avi文件的路径
Dim hBmp As IntPtr = Marshal.StringToHGlobalAnsi(path)
SendMessage(M_Handle, WM_CAP_FILE_SET_CAPTURE_FILEA, 0, hBmp.ToInt64())
SendMessage(M_Handle, WM_CAP_SEQUENCE, 0, 0)
End Sub
Public Sub StopKinescope()
If blnRecording Then
SendMessage(M_Handle, WM_CAP_STOP, 0, 0)
End If
blnRecording = False
End Sub
End Class

‘以上是视频接口类

VB程序窗体程序如下：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
L.CreateCaptureWindow(PictureBox1)
End Sub

拍照可以用这个方法
Me.PictureBox2.BackgroundImage = L.GrabImage()
保存可以用这个方法
PictureBox2.BackgroundImage.Save(System.IO.Directory.GetCurrentDirectory & "\database\tp\" & i & ".jpg")
注：是这样，picturebbox1是视频显示，picturebbox2是拍取到的照片，你应该能用得上

EnForGrass 2012-01-12

打赏
举报

如果有SDK的话，直接调用接口函数

ilshanghai 2012-01-04

打赏
举报

有没有人能说下VB.NET下怎么调用USB摄像头？或者推荐些相关的书也好的，真的很急用！

ilshanghai 2011-12-24

打赏
举报

[Quote=引用 1 楼 sp1234 的回复:]

http://www.google.com.hk/search?sourceid=chrome&ie=UTF-8&q=silverlight%E6%91%84%E5%83%8F%E5%A4%B4
[/Quote]
silverlight是不是网页用的方法？我只要求用VB.NET调用本地USB摄像头拍张照，保存到本地或本地SQL server就可以了，不需要client和server。

ilshanghai 2011-12-24