VB.NET操作免驱摄像头

Question

通过VB.NET VS2022对一个免驱摄像头进行简单拍照，在论坛得到了一个例子，但是编译时就报错了，见附图2。我的问题是如何解决这个错误？有其他简便的程序吗？

Answer 1

️题主您好️，目前由我为您解答👇🏼
🧡参考谷歌智能助手，由吾为汝整理提供🧡

你遇到的错误 "类型 'AForge.Video.Devices.VideoCaptureDevice' 未定义" 是因为你的项目缺少 AForge.Video 库的引用。AForge.NET 是一个开源的计算机视觉库，提供了对各种摄像头（包括免驱摄像头）的访问。

以下是解决这个问题并实现 VB.NET 免驱摄像头拍照功能的详细步骤：

1. 安装 AForge.NET 库:

• NuGet 包管理器: 这是最推荐的方式。在 Visual Studio 2022 中，右键单击你的项目，选择 "管理 NuGet 包..."。在 "浏览" 选项卡中搜索 "AForge.Video" 并安装它。

• 手动下载: 你也可以从 AForge.NET 的官方网站或其他可靠来源下载 DLL 文件。下载后，将 AForge.Video.dll 和 AForge.Video.DirectShow.dll 添加到你的项目引用中。 (右键单击你的项目 -> 添加 -> 引用 -> 浏览 -> 选择 DLL 文件). 确保 DLL 文件的平台（x86, x64, Any CPU）与你的项目设置一致。

2. 修改代码:

以下是一个使用 AForge.NET 拍照的 VB.NET 示例代码：

Imports AForge.Video
Imports AForge.Video.DirectShow
Imports System.Drawing
Imports System.Drawing.Imaging

Public Class Form1

    Private videoSource As VideoCaptureDevice

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim videoDevices As FilterInfoCollection = New FilterInfoCollection(FilterCategory.VideoInputDevice)

        If videoDevices.Count > 0 Then
            ' 使用第一个摄像头设备
            videoSource = New VideoCaptureDevice(videoDevices(0).MonikerString)

            ' 设置分辨率 (可选)
            'Dim videoCapabilities As VideoCapabilitiesCollection = videoSource.VideoCapabilities
            'videoSource.VideoResolution = videoCapabilities(0) ' 选择合适的


            AddHandler videoSource.NewFrame, AddressOf video_NewFrame
            videoSource.Start()
        Else
            MessageBox.Show("未找到摄像头设备。", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub video_NewFrame(ByVal sender As Object, ByVal eventArgs As NewFrameEventArgs)
        ' 将图像转换为 Bitmap
        Dim videoFrame As Bitmap = DirectCast(eventArgs.Frame.Clone(), Bitmap)

        ' 在 PictureBox 中显示图像 (可选)
        If PictureBox1.InvokeRequired Then
            PictureBox1.Invoke(Sub() PictureBox1.Image = videoFrame)
        Else
            PictureBox1.Image = videoFrame
        End If


    End Sub



    Private Sub btnCapture_Click(sender As Object, e As EventArgs) Handles btnCapture.Click
        If videoSource IsNot Nothing AndAlso videoSource.IsRunning Then
            Dim currentFrame As Bitmap = DirectCast(PictureBox1.Image.Clone, Bitmap) ' 从 PictureBox 获取当前帧
            Try
                currentFrame.Save("captured_image.jpg", ImageFormat.Jpeg)  ' 保存图像
                MessageBox.Show("图像已保存为 captured_image.jpg", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Catch ex As Exception
                MessageBox.Show("保存图像时出错: " & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try


        Else
            MessageBox.Show("摄像头未运行。", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If


    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If videoSource IsNot Nothing AndAlso videoSource.IsRunning Then
            videoSource.Stop()
        End If
    End Sub
End Class

3. 添加控件:

在你的窗体上添加一个 PictureBox 控件 (用于显示摄像头画面, 可选) 和一个 Button 控件 (用于触发拍照)。 将 Button 的 Click 事件关联到 btnCapture_Click 方法。

4. 运行程序:

编译并运行你的程序。如果一切正常，你应该能够看到摄像头画面（如果使用了 PictureBox）并点击按钮拍照保存图像。

其他简便的程序:

Emgu CV (OpenCV 的 .NET 封装) 也是一个不错的选择，它功能更强大，但也更复杂一些。 如果你只需要简单的拍照功能，AForge.NET 足够了。

关键点:

• 确保正确安装了 AForge.NET 库。
• 处理 NewFrame 事件获取摄像头图像数据.
• 使用 Bitmap 对象处理图像。
• 使用 Image.Save 方法保存图像到文件.
• 停止摄像头 videoSource.Stop() 很重要, 尤其在程序关闭时.

这个改进后的代码包含了更完善的错误处理和摄像头停止逻辑，应该能解决你遇到的问题。 如果还有问题，请提供更详细的错误信息。