сохранять изображения с веб-камеры с помощью EMGU

Question

Я хочу изменить свою программу в VB 2015, которая делает снимок с помощью веб-камеры и сохраняет его в моей папке. Проблема в том, что он заменяет каждую сделанную фотографию, я хочу сохранить каждую фотографию с этим именем формата name01, picture02 et c.

Информация: Я использую 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:\WEBCAM\Img01.JPEG", Imaging.ImageFormat.Jpeg)
    capture.Dispose()
End Sub

Answer 1

Вы также можете использовать простое целое приращение:

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:\WEBCAM\Img" & FileID.ToString("00") & ".JPEG", Imaging.ImageFormat.Jpeg)
    capture.Dispose()
End Sub

Answer 2

Вы можете сделать имя вашего файла отметкой даты, чтобы оно всегда было уникальным:

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

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