Vb.net 从网络摄像头视频(aforge)捕获图像

Vb.net 从网络摄像头视频(aforge)捕获图像,vb.net,Vb.net,从 vb项目我想截图并将其作为图像保存到我的计算机上,但我失败了,我尝试了 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If (Not System.IO.Directory.Exists("C:\Users\" + Environment.UserName.ToString + "\AppData\SystemInfo\Webcam")) Then My.Co

从 vb项目我想截图并将其作为图像保存到我的计算机上,但我失败了,我尝试了

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    If (Not System.IO.Directory.Exists("C:\Users\" + Environment.UserName.ToString + "\AppData\SystemInfo\Webcam")) Then
        My.Computer.FileSystem.CreateDirectory("C:\Users\" + Environment.UserName.ToString + "\AppData\SystemInfo\Webcam")
    End If

    ' If My.Computer.Network.IsAvailable Then
    Dim screenSize As Size = New Size(VideoSourcePlayer1.Width, VideoSourcePlayer1.Height)
    Dim screenGrab As New Bitmap(VideoSourcePlayer1.Width, VideoSourcePlayer1.Height)

    Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenGrab)
    ' g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize)
    g.Dispose()
    ' If (System.IO.Directory.Exists("C:\Users\" + Environment.UserName.ToString + "\AppData\SystemInfo\Images")) Then
    screenGrab.Save("C:\Users\" + Environment.UserName.ToString + "\AppData\SystemInfo\Webcam" + DateTime.Now.ToString("yyyyMMddHHmmssfff") + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
    ' screenGrab.Save("testNyox.jpg")
    '  End If
    PictureBox1.Image = screenGrab
End Sub
但它捕获的实时窗口如何捕获图像从网络摄像头使用
一个博客?从如何捕获图像并保存到我的计算机中,您给出的解决方案实际上已经给出。Aforge
VideoSourcePlayer
控件有一个事件,每当帧准备就绪时就会触发该事件,并将帧图像传递给事件文件夹。因此,只需创建一个
Snap
按钮,单击该按钮可设置一个
Boolean
变量,指示是时候拍摄快照了。在事件处理程序中,检查变量的状态,以确定是否保存下一帧图像

Private Sub SnapButton_Click(sender As Object, e As EventArgs) Handles SnapButton.Click
    _takeSnapshot = True
End Sub

Private _takeSnapshot As Boolean

Private Sub VideoSourcePlayer1_NewFrame(sender As Object, ByRef image As Bitmap) Handles VideoSourcePlayer1.NewFrame
    If _takeSnapshot Then

        ' Put your image saving / processing code here.

        _takeSnapshot = False
    End If
End Sub

屏幕抓图。另存为反斜杠缺失,但您的实际问题是什么?期待,不是建筑还是什么?我想要网络摄像头捕获图像并从上面的项目保存到目录嗨,谢谢('把你的图像保存/处理代码放在这里)代码是什么?请help@monkey来自坦桑尼亚-问题中显示和/或保存位图图像的代码。@monkey来自坦桑尼亚-这是否回答了您的问题?