使用EMGU保存网络摄像头中的图片

Question

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

信息：我正在使用Emgu。

图片

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:WEBCAMImg01.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)

Answer 2

您也可以使用一个简单的整数增量：

Private FileID as Integer = 0
Private Sub captWebcam_Click(sender As Object, e As EventArgs) Handles captWebcam.Click
Timer1.Stop()
'Save the picture
FileID += 1
PictureBox1.Image.Save("D:WEBCAMImg" & FileID.ToString("00") & ".JPEG", Imaging.ImageFormat.Jpeg)
capture.Dispose()
End Sub