如何在VB.NET 2010中实现IP CAMERA图像采集

大部分民用IP摄像头都支持HTTP协议输出单帧快照或MJPEG视频流，不需要安装第三方SDK，用VB.NET内置的网络请求组件就能实现采集，下面是可直接运行的简易实现代码。

前置准备 #

先确认你手头摄像头的接口信息，这些信息一般在摄像头说明书或者后台管理页的CGI/ONVIF配置板块能找到：

• 单帧快照接口地址，常见格式为http://[摄像头IP]/snapshot.cgi、http://[摄像头IP]/cgi-bin/snapshot?channel=1
• 摄像头的登录账号、密码（如果开了接口认证）

单帧定时抓拍实现（零依赖，适配绝大多数场景） #

这个方案通过定时拉取摄像头的快照帧实现预览/采集，不需要处理复杂的流解析，兼容性最好。

1. 首先在VB.NET项目中新建Windows窗体，拖入1个PictureBox控件（命名为PictureBox1，用于显示画面）、1个Timer控件（命名为Timer1，用于定时刷新帧）
2. 在代码文件顶部引入所需命名空间：

Imports System.Net
Imports System.IO
Imports System.Drawing

3. 写入窗体逻辑代码，注意替换成你自己的摄像头地址、账号密码：

Public Class Form1
    ' 替换为你的摄像头实际配置
    Private Const CameraSnapUrl As String = "http://192.168.1.64/snapshot.cgi"
    Private Const CameraAccount As String = "admin"
    Private Const CameraPassword As String = "你的摄像头密码"

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 设置采集间隔为200ms，约5帧/秒，可根据需求调整
        Timer1.Interval = 200
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim req As HttpWebRequest = Nothing
        Dim res As HttpWebResponse = Nothing
        Dim stream As Stream = Nothing
        Dim bmp As Bitmap = Nothing
        Try
            req = CType(WebRequest.Create(CameraSnapUrl), HttpWebRequest)
            req.Credentials = New NetworkCredential(CameraAccount, CameraPassword)
            req.Timeout = 2000 ' 2秒超时，避免界面卡死

            res = CType(req.GetResponse(), HttpWebResponse)
            stream = res.GetResponseStream()
            bmp = New Bitmap(stream)
            ' 拷贝位图后再赋值，避免流释放后画面失效
            If PictureBox1.Image IsNot Nothing Then PictureBox1.Image.Dispose()
            PictureBox1.Image = CType(bmp.Clone(), Image)
        Catch ex As Exception
            Timer1.Stop()
            MessageBox.Show("图像采集失败：" & ex.Message, "错误")
        Finally
            ' 释放所有资源，避免内存泄漏
            If bmp IsNot Nothing Then bmp.Dispose()
            If stream IsNot Nothing Then stream.Close()
            If res IsNot Nothing Then res.Close()
            If req IsNot Nothing Then req.Abort()
        End Try
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        Timer1.Stop()
        If PictureBox1.Image IsNot Nothing Then PictureBox1.Image.Dispose()
    End Sub
End Class

流畅实时预览补充说明 #

如果需要更低延迟的流畅预览，可以对接摄像头的MJPEG流接口，核心逻辑如下：

• 发起长连接HTTP请求，保持和摄像头的连接不中断
• 持续读取返回的字节流，找到MJPEG协议定义的帧分隔符（一般为--myboundary格式的标记）
• 截取两个分隔符之间的JPEG字节数据，转成Bitmap后显示到控件
  这种方式帧率可以达到摄像头的原生输出帧率，但是需要自己处理流解析、断连重连逻辑，对代码健壮性要求更高，日常抓拍、低频率预览用上面的单帧采集方案足够。

常见问题排查 #

• 如果返回401未授权错误，先确认账号密码正确，部分老款摄像头不支持默认的NTLM认证，可以手动给请求头加Basic认证信息
• 如果返回404错误，说明快照接口地址填错，去摄像头官方文档找正确的CGI接口路径
• 运行时画面卡顿，适当调大Timer的间隔，不要小于100ms，避免摄像头响应不过来

内容的提问来源于stack exchange，提问作者Sk tarique Hussain