使用EMGU从网络摄像机保存图片

Question

我想在VB 2015中修改我的程序，该程序使用网络摄像头捕获照片并将其保存到我的文件夹中。问题是它替换了所拍摄的每张照片，我想将每张照片保存为这种格式名称picture01，picture02等。

信息：我正在使用Emgu。

picture

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Try
      PictureBox1.Image = capture.QueryFrame.ToBitmap()
    Catch ex As Exception
      capture = New Emgu.CV.Capture
    End Try
End Sub


Private Sub startWebcam_Click(sender As Object, e As EventArgs) Handles startWebcam.Click
    Timer1.Start()
End Sub

Private Sub captWebcam_Click(sender As Object, e As EventArgs) Handles captWebcam.Click
    Dim picnumber As Integer = 0
    Timer1.Stop()
    'Save the picture
    PictureBox1.Image.Save("D:\WEBCAM\Img01.JPEG", Imaging.ImageFormat.Jpeg)
    capture.Dispose()
End Sub

Answer 1

这是我第一次尝试回答问题，所以我希望这可以显示。

您可以将文件名设置为日期戳，这样它将始终是唯一的。

Dim a As String = Now.ToShortDateString & Now.ToLongTimeString
a = a.Replace(":", "").Replace("/", "").Replace("\", "")

PictureBox1.Image.Save("D:\WEBCAM\" & a & ".JPEG", Imaging.ImageFormat.Jpeg)