圖像獲取: 保存圖像 (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