視頻採集: 保存一個有時間限制的AVI文件

下面的程序演示的是如何使用IC Imaging control創建一個確定時間長度的AVI文件。

示例程序如圖所示：

程序首先調用一個內置對話框(.ShowDeviceSettingsDialog)用於選擇設備。 而後使用.LiveStart語句顯示設備傳來的實時畫面:

Private Sub Form_Load()

    ICImagingControl1.ShowDeviceSettingsDialog

    If Not ICImagingControl1.DeviceValid Then
        Unload Me
        Exit Sub
    End If

    ICImagingControl1.LiveStart

End Sub

用戶點擊"Start Capture"後，程序停止圖像數據流(.LiveStop)，開始錄製 AVI文件(.AviStartCapture)、開啟計時器(Timer1.Enabled = True):

Private Sub cmdStartCapture_Click()

    ICImagingControl1.LiveStop
    ICImagingControl1.AviStartCapture "video.avi", "DV Video Encoder"

    recordedTime = 0
    Timer1.Enabled = True
    cmdStartCapture.Enabled = False

End Sub

AVI文件的錄製由一個計時器timer控制，通過循環調用Timer1，事件處理程序 Timer1_Timer()讀取用戶定義的錄製時間(txtStop.Text)，顯示已錄製時間長度 (lblRecorded.Caption)，在到達錄製時間後停止錄像 (.AviStopCapture)，而後重新現場視頻畫面.LiveStart):

Dim recordedTime As Long

Private Sub Timer1_Timer()

    recordedTime = recordedTime + 1

    lblRecorded.Caption = "Recorded: " & recordedTime & " s"

    Dim stopTime As Long
    stopTime = txtStop.Text

    If recordedTime >= stopTime Then
        Timer1.Enabled = False

        ICImagingControl1.AviStopCapture
        ICImagingControl1.LiveStart

        cmdStartCapture.Enabled = True
    End If

End Sub