Convert Bitmap to JPG

[marius40]

Hi,
I borrwed some code to capture a image with the onboard Web Cam of my Laptop. It works fine, but is is saving the image as a Bitmap, how can i convert the image to a JPG file?

Here is some part of the code.

 Public Function copyFrame(ByVal src As PictureBox, ByVal rect As RectangleF) As Bitmap
        If iRunning Then
            Dim srcPic As Graphics = src.CreateGraphics
            Dim srcBmp As New Bitmap(src.Width, src.Height, srcPic)
            Dim srcMem As Graphics = Graphics.FromImage(srcBmp)
            Dim HDC1 As IntPtr = srcPic.GetHdc
            Dim HDC2 As IntPtr = srcMem.GetHdc
            BitBlt(HDC2, 0, 0, CInt(rect.Width), _
              CInt(rect.Height), HDC1, CInt(rect.X), CInt(rect.Y), 13369376)

            '' Capture Image as Bitmap
            copyFrame = CType(srcBmp.Clone(), Bitmap)
            'Clean Up 
            srcPic.ReleaseHdc(HDC1)
            srcMem.ReleaseHdc(HDC2)
            srcPic.Dispose()
            srcMem.Dispose()
        Else
            MessageBox.Show("Camera Is Not Running!")
        End If
    End Function

[cicatrix]

Just like this:

' Capture Image as Bitmap
copyFrame = CType(srcBmp.Clone(), Bitmap)
' Add this:
Dim img As Image = Image.FromHbitmap(copyFrame.GetHbitmap)
img.Save("filename.jpeg", Drawing.Imaging.ImageFormat.Jpeg)