图像获取: 保存图像 (JPEG)

下面这个Visual Basic小程序将演示如何使用IC Imaging Control从设备传回的视频里抓取一帧图像并将其保存为JPEG文件。

示例程序窗口如下图所示:

程序开始后首先调用内置对话框(.ShowDeviceSettingsDialog)用于选择视频设备。 而后通过.LiveStart显示设备传来的现场画面数据流:

Private Sub Form_Load()

    ICImagingControl1.ShowDeviceSettingsDialog

    If ICImagingControl1.DeviceValid Then
        ICImagingControl1.LiveStart
    Else
        Unload Me
    End If

End Sub

现在可以访问图像了: .ImageBuffers.CurrentIndex 指示的是最近一帧被写入 环形缓存的图像的位置。.ImageBuffers(index) 提供一个ImageBuffer对象用于存放 这帧图像，.SaveAsJpeg将其写入一个JPEG文件 file, 用户可以设定文件名及质量参数 (0 ～ 100):

Private Sub cmdSaveJpeg_Click()

    ICImagingControl1.MemorySnapImage

    CommonDialog1.DefaultExt = "jpg"
    CommonDialog1.Filter = "Jpeg Images (*.jpg)|*.jpg|"
    CommonDialog1.ShowSave

    If CommonDialog1.FileName <> "" Then

        Dim currentIdx As Integer
        currentIdx = ICImagingControl1.ImageBuffers.CurrentIndex

        Dim buf As ImageBuffer
        Set buf = ICImagingControl1.ImageBuffers(currentIdx)

        buf.SaveAsJpeg CommonDialog1.FileName, 75

    End If

End Sub