摄像头抓拍失败

[水晶烟灰缸]

摄像头抓拍第一次OK，但第二次就失败，关闭程序再开，还是第一次OK，第二次失败

导致原因：
抓拍保存的文件被占用，无法释放，求救哥们怎么办

    
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'strfile 保存路径
        Dim strFile As String = "c:\1"
        '抓拍摄像头
        Dim hBmp As IntPtr = Marshal.StringToHGlobalAnsi(strFile & ".bmp")
        SendMessage(hWndC, WM_CAP_SAVEDIB, 0, hBmp.ToInt64())
        '压缩图片
        Dim sBmp As Bitmap = Bitmap.FromFile(strFile & ".bmp")
        sBmp.Save(strFile & ".jpg", Imaging.ImageFormat.Jpeg)
End Sub

[一克代码]

判断一下图片是否存在

存在删除

或者重命名图片！

用时间起名

[水晶烟灰缸]

错误提示是文件正在被另一个进程使用
但是代码就只有这几句，
当sBmp另存图片以后就将文件删除
但是不知道怎么释放正在被占用的文件

[兔子-顾问]

try

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'strfile 保存路径
        Dim strFile As String = "c:\1"
        '抓拍摄像头
        Dim hBmp As IntPtr = Marshal.StringToHGlobalAnsi(strFile & ".bmp")
        SendMessage(hWndC, WM_CAP_SAVEDIB, 0, hBmp.ToInt64())
        '压缩图片
		Dim bmpData As Byte() = IO.File.ReadAllBytes(strFile & ".bmp")
        Dim ms As New IO.MemoryStream(bmpData)
        Dim sBmp As Bitmap = Bitmap.FromStream(ms)
        sBmp.Save(strFile & ".jpg", Imaging.ImageFormat.Jpeg)
End Sub

[水晶烟灰缸]

楼上的，解决了，谢谢啊
顺便问一句能否直接将
Dim bmpData As Byte() = IO.File.ReadAllBytes(strFile & ".bmp")

bmpdata直接转化为JPG格式的二进制数组啊

[兔子-顾问]

内存中都是位图。保存的时候才有格式选择。你这样做没错。