【正文】 FreeSpace（） ，Ｇ etDiskFreeSpace（）函數(shù)共有五個參數(shù)，其中， lpRootPathName 指出要檢測的硬盤根目錄，通常用 nil 表當前盤， lpSectorsPerCluster 指出每簇所包含的扇區(qū)數(shù)， lpBytesPerSector 指出每區(qū)的字節(jié)數(shù)， lpNumberOfFreeClusters和 lpTotalNumberOfClusters 則指明當前盤的空余簇數(shù)和總簇數(shù)。.wav39。 :=true。//停止計時，獲得新時間 time2:=timetostr(time+strtotime(39。wav\39。在取得的文件名后加上數(shù)字編號，就生成了以用戶文件名為基礎(chǔ)的文件名序列。媒體設(shè)備初始化錯誤！ 39。))。 begin if hwndc0 then begin if then begin filename:= 。數(shù)據(jù)標志 ID := 0。 := channels。 := $45564157。SamplesPerSec:longint。 //數(shù)據(jù)塊的調(diào)整數(shù)，為通道數(shù) *采樣的數(shù)據(jù)位值 /8 wBitsPerSample : word。WAVE 格式聲音文件 39。 DrawDibDraw是 VFW中的一個極其有用的函數(shù)，它的作用是在指定的顯示設(shè)備（ dc）中，以指定的位圖格式（ Bmpinfo1），將指定內(nèi)存的數(shù)據(jù)（ Data）顯示出來，它的顯示效率比較高，速度較快，是圖像顯示中經(jīng)常采用的 。 CopyMemory(,VideoStr^.lpData,nn)。 回調(diào)函數(shù) FrameCallBack是這樣設(shè)計的 :首先定義一個視頻流格式（ PVIDEOHDR）的數(shù)據(jù)變量 ,用它將緩沖區(qū)中的視頻數(shù)據(jù)讀取出來 ,并拷貝到用戶視窗上 ,然后將用戶視窗上視頻圖像顯示出來 ,這樣就完成了圖像信息的回調(diào) 。 SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 80, 0)。具體響應(yīng)代碼如下： //以下為核心代碼，用于產(chǎn)生視頻窗口 hWndC := capCreateCaptureWindowA(39。 var Action: TCloseAction)。 //設(shè)置顯示位圖的格式 dc:=getdc()。 :=60000。其中，位圖格式變量Bmpinfo1 用于輸出顯示，它用來保證這種一致性。③象素位數(shù)為 4的 DIB 位圖，每個字節(jié)存儲 2個象素。//位圖格式 hWndC : THandle。之后還可以用 CapPreviewScale、 CapPreviewRate 設(shè)置預(yù)覽的比例與速度，也可以直接使用設(shè)備的默認值。 視頻回放 對錄制好的視頻信息，用戶可隨時根據(jù)需要回放觀看。 關(guān)閉設(shè)備 斷開系統(tǒng)與攝像頭的鏈接，釋放視頻窗口和內(nèi)存空間。 （ 3） CAPDRIVERCAPS：定義了視頻捕捉驅(qū)動程序的功能，如：驅(qū)動程序的數(shù)目索引是否支持視頻疊加功能等。 AVICap 類支持實時視頻流捕獲和單幀捕獲，并提供對視頻源的控制。 如果連接成功，返回 TRUE 否則函數(shù)返回 FALSE。 AVICap 窗口類提供了以下功能： ①單獨控制音頻、視頻信息的采集； ②采用 overlay（實時疊加）或 preview（預(yù)覽）方式顯示視頻圖像； ③與 視頻壓縮 /解壓縮編解碼器 (ICM)和 音頻壓縮管理器 (ACM)同時工作，將音頻和視頻數(shù)據(jù)直接壓縮到應(yīng)用程序中； ④將視頻流直接壓縮入 AVI文件而不需要開發(fā)人員詳細了解 AVI 文件格式的細節(jié) ,減輕程序員負擔(dān)； ⑤動態(tài)檢測與連接視頻和音頻的輸入設(shè)備； ⑥動態(tài)創(chuàng)建、保存和載入調(diào)色板，并將圖像調(diào)色板拷貝到剪貼板上； ⑦控制 多媒體控制接口 （ MCI）設(shè)備； ⑧捕捉單幀圖像并以 設(shè)備無關(guān)位圖 DIB（ device independent bitmap）格式保存。通過 VFW，開發(fā)人員通過發(fā)送消息或設(shè)置屬性來捕捉、播放和編輯視頻剪輯。它通過給程序中加入擴展語句，把函數(shù)“封裝”進 Windows 編程所必需的“對象”中。 為此，本軟件借助 微軟 的 軟件開發(fā)工具包 (SDK)[1]，簡稱 VFW[2]對攝像頭進行了軟件控 制設(shè) 計， 并通過在 安裝攝像頭驅(qū)動程序時，系統(tǒng)文件里產(chǎn)生 的 [1]動態(tài)鏈接庫 獲得 視頻窗口，實現(xiàn)對攝像頭的各種操作。 本軟件技術(shù) 切實可行，運行 環(huán)境穩(wěn)定可靠， 對那些需要視頻捕捉而對系統(tǒng)要求不是很高的部門和領(lǐng)域，本文提供了一種簡單易行的辦法，同時為廣大視頻編 程愛好者提供了有益的借鑒。對于需要進行視頻錄像的用戶來說，軟件提供了長時與短時兩種模式，并能實現(xiàn)硬盤空間的自動檢測和錄像的適時保存 。因此，主流監(jiān)控系統(tǒng)雖然技術(shù)先進，但卻難于推廣，通常只用在專業(yè)領(lǐng)域。 OOP 立意于創(chuàng)建軟件重用代碼，具備更好地模擬現(xiàn)實世界環(huán)境的能力，這使它被公認為是自上而下編程的優(yōu)勝者。為了解決數(shù)字視頻數(shù)據(jù)量大的問題，需要對數(shù)據(jù)進行 壓縮，而 VFW 引進了 AVI 的文件標準，該標準未規(guī)定如何對視頻進行捕捉、壓縮及播放，僅規(guī)定視頻和音頻該如何存儲在硬盤上及在 AVI文件中交替存儲視頻幀和與之相匹配的音頻數(shù)據(jù)。這樣，應(yīng)用程序可以直接使用數(shù)據(jù)而無需寫入 AVI 文件中。 （ 2）捕捉窗口與設(shè)備連接 BOOL capDriverConnect( hwnd， // 捕捉窗口的句柄 iIndex// 設(shè)備驅(qū)動號 )。 設(shè)置一個由 szName 指向的字符串作為文件名，用于存儲從捕捉窗口 hWnd 采集的視頻圖像數(shù)據(jù)，成功， 返回 TRUE，否則返回 FALSE。因為捕捉窗口的狀態(tài)隨各種各樣的消息而改變，所以當應(yīng)用程序需要功能菜單項，決定 捕捉窗口的真實狀態(tài)或者調(diào)用視頻格式對話框時，都應(yīng)該更新這一結(jié)構(gòu)中的信息。各模塊具體功能見表 ： 表 系統(tǒng)功能 模 塊 基 本 功 能 啟動攝像 創(chuàng)建視頻窗體，打開攝像頭，獲取視頻句柄等相關(guān)數(shù)據(jù)，完成視頻信息的初步采集。 顯示格式設(shè)置 設(shè)置視頻信息的顯示格式、圖像大小等。設(shè)置好 TcaptureParms 結(jié)構(gòu)變量后，可以用函 數(shù)CapCaptureSetSetup 使設(shè)置生效。 //設(shè)備無關(guān)位圖格式 BmpInfo,BmpInfo1:BITMAPINFO。字節(jié)的最高位對應(yīng)于最左邊的象素。如：單色屏幕位面數(shù)為 1，顏色數(shù)=2^1=2， 16色屏幕顏色位面數(shù)為 4，即 2^4 BitCount 象素的位數(shù) (如 1位位圖 、 12位位圖、 24位位圖等 ) Compression 壓縮方式 (0表示不壓縮 ) SizeImage 位圖數(shù)據(jù)的字節(jié)數(shù) XPelsPerMeter 水平分辨率（象素點 /米） YPelsPerMeter 垂直分辨率（象素點 /米） Clrused 圖像中使用的顏色數(shù) ClrImportant 圖像中重要的顏色數(shù) 雖然定義了位圖格式，但要讓捕獲的圖像能在視頻窗口中正確顯示出來，還必須保證該窗口的位圖格式與視頻所定義的位圖格式一致。 :=808596553。 begin setbmpinfo1()。 在窗口的關(guān)閉過程中，需要釋放掉為視頻數(shù)據(jù)分配的內(nèi)存空間，如果視頻設(shè)備和繪圖板等設(shè)備沒有關(guān)閉，則關(guān)閉相關(guān)設(shè)備，將設(shè)備與變量置于初始狀態(tài)，為下次使用作好準備： procedure (Sender: TObject。調(diào)用 capCreateCaptureWindowA 函數(shù)，就可以建立視頻捕捉窗體，通過向視頻捕捉窗體發(fā)送相應(yīng)的消息函數(shù)，即可實現(xiàn)捕捉窗口與設(shè)備的關(guān)聯(lián)、捕捉視頻、設(shè)置視頻的格式等操作。 SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0)。只要得到了這個數(shù)據(jù)，就可將它發(fā)送至網(wǎng)絡(luò)，或保存，或做其它處理 ， 在此 ,只將獲取的數(shù)據(jù)顯示在用戶視窗中 。 nn:=VideoStr^.dwBufferLength。 end。 //39。 nBlockAlign : word。BitsPerSample:word。的標志 id := 36。//過度字節(jié) := 1。data39。 procedure (Sender: TObject)。39。 except ShowMessage(39。在獲取主文件名時，使用字符串截取函數(shù) copy()先截取除擴展名之外的文件名部分，然后再對截得的串進行反截取，當截得的字符為’ /’時結(jié)束截取，但這時的截取結(jié)果仍然不是用戶所輸入的主文件名，而是輸入的文件名的倒序，將這個倒序文件名再進行一次反截取即得到了用戶輸入的文件名了。 file2:=ExtractFilePath()+39。//生成編號為 i的 WAV 文件 :=not 。 sendmessage(hwndc,wm_cap_sequence,0,0)。+f+39。 end else if cl1500 then //錄制過程中隨時檢測硬盤空間，一旦硬盤不足將結(jié)束錄制 end。 幫助系統(tǒng)的界面如圖 43所示： 文件讀取部分的核心代碼如下： procedure (Sender: TObject)。,fmopenread)。 :=ass。 軟件測試的目標如下： (1)測試是為了發(fā)現(xiàn)程序中的錯誤而執(zhí)行程序的過程； (2)好的測試方案是極可能發(fā)現(xiàn)迄今為止尚未發(fā)現(xiàn)的錯誤的測試 方案； (3)成功的測試是發(fā)現(xiàn)了至今為止尚未發(fā)現(xiàn)的錯誤的測試。點擊“開始錄像”，輸入文件名后，視頻和音頻文件錄制正常；“關(guān)閉設(shè)備”操作能夠及時斷開軟件與攝像頭的通信，并釋放掉內(nèi)存空間 。 整套設(shè)計較好地滿足了 那些需要 對 視頻 信息進行 捕捉而對系統(tǒng)要求不是很高的部門和領(lǐng)域 ,具有一定的實用