【正文】 ：一類是基于 PC 機組合的計算機多媒體工作方式；另一類是嵌入式數字監(jiān)控錄像系統(tǒng)。因此，主流監(jiān)控系統(tǒng)雖然技術先進，但卻難于推廣，通常只用在專業(yè)領域。 它 被稱為第四代編程語言，具有簡單、高效、功能強大的特點。 OOP 立意于創(chuàng)建軟件重用代碼，具備更好地模擬現實世界環(huán)境的能力，這使它被公認為是自上而下編程的優(yōu)勝者。 Delphi 不僅自身組件十分豐富，而且對第三方組件也有良好的兼容性。為了解決數字視頻數據量大的問題，需要對數據進行 壓縮，而 VFW 引進了 AVI 的文件標準，該標準未規(guī)定如何對視頻進行捕捉、壓縮及播放，僅規(guī)定視頻和音頻該如何存儲在硬盤上及在 AVI文件中交替存儲視頻幀和與之相匹配的音頻數據。 具體如表 所列： 表 VFW 功能模塊 模 塊 功 能 包含執(zhí)行視頻捕獲的函數，它給 AVI 文件的 I/O 處理和視頻、音頻設備驅動程序提供一個高級接口 包含一套特殊的 DrawDib函數，用來處理屏幕上的視頻操作 包括對 VFW的 MCI命令解釋器的驅動程序 包含由標準多媒體 I/O（ mmio）函數提供的更高的命令，用來訪問 .AVI文件 ICM 壓縮管理器，用于管理的視頻壓縮 /解壓縮的編譯碼器（ Codec） ACM 音頻壓縮管理器，提供與 ICM相似的服務，適用于波形音頻 類的功能與函數 類的基本功 能 AVICap 支持實時的視頻流捕捉和視頻單幀捕捉。這樣，應用程序可以直接使用數據而無需寫入 AVI 文件中。 AVICap 的函數能夠使開發(fā)人員以很少的投入來創(chuàng)建具有基本捕捉功能的采集程序，這些函數是高級的、經過優(yōu)化的、為開發(fā)人員創(chuàng)建具有自己特性的應用程序留有很大的靈活性。 （ 2）捕捉窗口與設備連接 BOOL capDriverConnect( hwnd， // 捕捉窗口的句柄 iIndex// 設備驅動號 )。 （ 4）設置捕捉設備的參數 BOOL capCaptureSetSetup( hwnd， // 設置窗口句柄 psCapParms， // 指向一個用于存儲返回值的 CAPDRIVERCAPS 結構的指針 wSize// CAPDRIVERCAPS 結構占用的字節(jié) 數 )。 設置一個由 szName 指向的字符串作為文件名，用于存儲從捕捉窗口 hWnd 采集的視頻圖像數據，成功， 返回 TRUE，否則返回 FALSE。而 AVICap 窗口類在捕獲視頻方面具有一定的優(yōu)勢，它能直接訪 問視頻緩沖區(qū)，而不需要生成中間文件，因而實時性很強，效率也很高 。因為捕捉窗口的狀態(tài)隨各種各樣的消息而改變，所以當應用程序需要功能菜單項，決定 捕捉窗口的真實狀態(tài)或者調用視頻格式對話框時，都應該更新這一結構中的信息。 軟件 的 層次結構 根據視頻捕捉的基本流程，軟件在設計過程中采用三級模式，第一級為外部設備層，屬于硬件層 。各模塊具體功能見表 ： 表 系統(tǒng)功能 模 塊 基 本 功 能 啟動攝像 創(chuàng)建視頻窗體，打開攝像頭，獲取視頻句柄等相關數據，完成視頻信息的初步采集。該模塊分為短時錄制和長時錄制，短時錄制的錄制時間完全由用戶控制 。 顯示格式設置 設置視頻信息的顯示格式、圖像大小等?！安东@窗”可用 AVICap 窗口類的“ Cap Create Capture Window”函數來創(chuàng)建，在“捕獲窗”的創(chuàng)建過程中，需指定捕捉窗口的名字、窗口風格、窗口左上角坐標、窗口的寬度和高度以及父窗口的句柄和該捕捉窗口的 ID 等信息。設置好 TcaptureParms 結構變量后，可以用函 數CapCaptureSetSetup 使設置生效。 通過以上四步就可以建立一 個基本的視頻捕獲程序，但如果想自己處理從設備捕獲到的視頻數據，則要使用捕獲窗回調函數來處理，比如一幀一幀地獲得視頻數據或以流的方式獲得視頻數據等，因此，回調函數在視頻捕捉設計中具有舉足輕重的作用。 //設備無關位圖格式 BmpInfo,BmpInfo1:BITMAPINFO。所謂設備無關位圖是指 WINDOWS 可在任何類型的顯示設備上顯示所存儲的圖像， 以后的以 BMP 為擴展名的文件都是設備無關位圖 (DIB)文件。字節(jié)的最高位對應于最左邊的象素。 DIB 文件由 4 個部分組成：位圖文件頭、位圖信息頭、顏色表和位圖圖像數據 。如：單色屏幕位面數為 1，顏色數=2^1=2， 16色屏幕顏色位面數為 4，即 2^4 BitCount 象素的位數 (如 1位位圖 、 12位位圖、 24位位圖等 ) Compression 壓縮方式 (0表示不壓縮 ) SizeImage 位圖數據的字節(jié)數 XPelsPerMeter 水平分辨率（象素點 /米） YPelsPerMeter 垂直分辨率（象素點 /米） Clrused 圖像中使用的顏色數 ClrImportant 圖像中重要的顏色數 雖然定義了位圖格式，但要讓捕獲的圖像能在視頻窗口中正確顯示出來，還必須保證該窗口的位圖格式與視頻所定義的位圖格式一致。 :=224。 :=808596553。 :=0。 begin setbmpinfo1()。沒 有繪圖信息句柄 !39。 在窗口的關閉過程中，需要釋放掉為視頻數據分配的內存空間，如果視頻設備和繪圖板等設備沒有關閉，則關閉相關設備，將設備與變量置于初始狀態(tài)，為下次使用作好準備： procedure (Sender: TObject。 freemem(data)。調用 capCreateCaptureWindowA 函數，就可以建立視頻捕捉窗體，通過向視頻捕捉窗體發(fā)送相應的消息函數，即可實現捕捉窗口與設備的關聯(lián)、捕捉視頻、設置視頻的格式等操作。 if hWndC 0 then //視頻窗口產生正常，初始化相關設備 begin SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0,0)。 SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0)。 SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0)。只要得到了這個數據，就可將它發(fā)送至網絡，或保存，或做其它處理 ， 在此 ,只將獲取的數據顯示在用戶視窗中 。stdcall。 nn:=VideoStr^.dwBufferLength。 end。 end。// 39。 //39。 wFormatTag : word。 nBlockAlign : word。 end。BitsPerSample:word。 fm:TFileStream。的標志 id := 36。的標志 ID := $20746d66。//過度字節(jié) := 1。 := SamplesPerSec*。data39。 。 procedure (Sender: TObject)。 sendmessage(hwndc,wm_cap_sequence,0,0)。39。39。 except ShowMessage(39。 end。在獲取主文件名時，使用字符串截取函數 copy()先截取除擴展名之外的文件名部分，然后再對截得的串進行反截取，當截得的字符為’ /’時結束截取，但這時的截取結果仍然不是用戶所輸入的主文件名，而是輸入的文件名的倒序，將這個倒序文件名再進行一次反截取即得到了用戶輸入的文件名了。 //檢測系統(tǒng)時間 GetDiskFreeSpace(nil,sec1,byt1,cl1,cl2)。 file2:=ExtractFilePath()+39。 copyfile(pchar(file1),pchar(file2),false)。//生成編號為 i的 WAV 文件 :=not 。 //一小 時 一保存 filename:=substr(filename)+f。 sendmessage(hwndc,wm_cap_sequence,0,0)。 file1:=ExtractFilePath()+ 39。+f+39。 showmessage(39。 end else if cl1500 then //錄制過程中隨時檢測硬盤空間，一旦硬盤不足將結束錄制 end。 幫助文件的設計 一個好的系統(tǒng)都有一個完整的幫助文件，為用戶提供各種必要的幫助和系統(tǒng)的基本配置等信息。 幫助系統(tǒng)的界面如圖 43所示： 文件讀取部分的核心代碼如下： procedure (Sender: TObject)。 ss:array[0..1] of char。,fmopenread)。 repeat nn:=fileread(ff,ss,1)。 :=ass。音頻文件和視頻文件分開存放，即造成了空間的巨大浪費，也使得視頻文件的維護變得相當不便 。 軟件測試的目標如下： (1)測試是為了發(fā)現程序中的錯誤而執(zhí)行程序的過程； (2)好的測試方案是極可能發(fā)現迄今為止尚未發(fā)現的錯誤的測試 方案； (3)成功的測試是發(fā)現了至今為止尚未發(fā)現的錯誤的測試。 為保證定時存盤能正常實現，在程序中將時間改為十分鐘，系統(tǒng)順利通過了測試。點擊“開始錄像”，輸入文件名后，視頻和音頻文件錄制正常；“關閉設備”操作能夠及時斷開軟件與攝像頭的通信，并釋放掉內存空間 。 視頻與音頻 信息沒有進行 壓縮處理，占用空間過大 等不足與缺陷，需要在軟件進一步修改和維護時予以糾正。 整套設計較好地滿足了 那些需要 對 視頻 信息進行 捕捉而對系統(tǒng)要求不是很高的部門和領域 ,具有一定的實用價值 。王老師還在百忙之中多次召開小組會來組織討論和