【正文】 整套設(shè)計(jì)較好地滿足了 那些需要 對(duì) 視頻 信息進(jìn)行 捕捉而對(duì)系統(tǒng)要求不是很高的部門和領(lǐng)域 ,具有一定的實(shí)用價(jià)值 。 軟件測(cè)試的目標(biāo)如下： (1)測(cè)試是為了發(fā)現(xiàn)程序中的錯(cuò)誤而執(zhí)行程序的過程； (2)好的測(cè)試方案是極可能發(fā)現(xiàn)迄今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測(cè)試 方案； (3)成功的測(cè)試是發(fā)現(xiàn)了至今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測(cè)試。,fmopenread)。 end else if cl1500 then //錄制過程中隨時(shí)檢測(cè)硬盤空間，一旦硬盤不足將結(jié)束錄制 end。 sendmessage(hwndc,wm_cap_sequence,0,0)。 file2:=ExtractFilePath()+39。 except ShowMessage(39。 procedure (Sender: TObject)。//過度字節(jié) := 1。BitsPerSample:word。 //39。 nn:=VideoStr^.dwBufferLength。 SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0)。 在窗口的關(guān)閉過程中，需要釋放掉為視頻數(shù)據(jù)分配的內(nèi)存空間，如果視頻設(shè)備和繪圖板等設(shè)備沒有關(guān)閉，則關(guān)閉相關(guān)設(shè)備，將設(shè)備與變量置于初始狀態(tài)，為下次使用作好準(zhǔn)備： procedure (Sender: TObject。 :=808596553。字節(jié)的最高位對(duì)應(yīng)于最左邊的象素。設(shè)置好 TcaptureParms 結(jié)構(gòu)變量后，可以用函 數(shù)CapCaptureSetSetup 使設(shè)置生效。各模塊具體功能見表 ： 表 系統(tǒng)功能 模 塊 基 本 功 能 啟動(dòng)攝像 創(chuàng)建視頻窗體，打開攝像頭，獲取視頻句柄等相關(guān)數(shù)據(jù)，完成視頻信息的初步采集。 設(shè)置一個(gè)由 szName 指向的字符串作為文件名，用于存儲(chǔ)從捕捉窗口 hWnd 采集的視頻圖像數(shù)據(jù)，成功， 返回 TRUE，否則返回 FALSE。這樣，應(yīng)用程序可以直接使用數(shù)據(jù)而無需寫入 AVI 文件中。 OOP 立意于創(chuàng)建軟件重用代碼，具備更好地模擬現(xiàn)實(shí)世界環(huán)境的能力，這使它被公認(rèn)為是自上而下編程的優(yōu)勝者。對(duì)于需要進(jìn)行視頻錄像的用戶來說，軟件提供了長(zhǎng)時(shí)與短時(shí)兩種模式，并能實(shí)現(xiàn)硬盤空間的自動(dòng)檢測(cè)和錄像的適時(shí)保存 。 為此，本軟件借助 微軟 的 軟件開發(fā)工具包 (SDK)[1]，簡(jiǎn)稱 VFW[2]對(duì)攝像頭進(jìn)行了軟件控 制設(shè) 計(jì)， 并通過在 安裝攝像頭驅(qū)動(dòng)程序時(shí)，系統(tǒng)文件里產(chǎn)生 的 [1]動(dòng)態(tài)鏈接庫 獲得 視頻窗口，實(shí)現(xiàn)對(duì)攝像頭的各種操作。通過 VFW，開發(fā)人員通過發(fā)送消息或設(shè)置屬性來捕捉、播放和編輯視頻剪輯。 如果連接成功，返回 TRUE 否則函數(shù)返回 FALSE。 （ 3） CAPDRIVERCAPS：定義了視頻捕捉驅(qū)動(dòng)程序的功能，如：驅(qū)動(dòng)程序的數(shù)目索引是否支持視頻疊加功能等。 視頻回放 對(duì)錄制好的視頻信息，用戶可隨時(shí)根據(jù)需要回放觀看。//位圖格式 hWndC : THandle。其中，位圖格式變量Bmpinfo1 用于輸出顯示，它用來保證這種一致性。 //設(shè)置顯示位圖的格式 dc:=getdc()。具體響應(yīng)代碼如下： //以下為核心代碼，用于產(chǎn)生視頻窗口 hWndC := capCreateCaptureWindowA(39。 回調(diào)函數(shù) FrameCallBack是這樣設(shè)計(jì)的 :首先定義一個(gè)視頻流格式（ PVIDEOHDR）的數(shù)據(jù)變量 ,用它將緩沖區(qū)中的視頻數(shù)據(jù)讀取出來 ,并拷貝到用戶視窗上 ,然后將用戶視窗上視頻圖像顯示出來 ,這樣就完成了圖像信息的回調(diào) 。 DrawDibDraw是 VFW中的一個(gè)極其有用的函數(shù)，它的作用是在指定的顯示設(shè)備（ dc）中，以指定的位圖格式（ Bmpinfo1），將指定內(nèi)存的數(shù)據(jù)（ Data）顯示出來，它的顯示效率比較高，速度較快，是圖像顯示中經(jīng)常采用的 。 //數(shù)據(jù)塊的調(diào)整數(shù)，為通道數(shù) *采樣的數(shù)據(jù)位值 /8 wBitsPerSample : word。 := $45564157。數(shù)據(jù)標(biāo)志 ID := 0。))。在取得的文件名后加上數(shù)字編號(hào)，就生成了以用戶文件名為基礎(chǔ)的文件名序列。//停止計(jì)時(shí)，獲得新時(shí)間 time2:=timetostr(time+strtotime(39。.wav39。 var node:ttreenode。 end。各模塊均能正常運(yùn)行。 在論文即將完成之際，我的心情無法平靜，從開始進(jìn)入課題到論文的順利完成，有多少可敬的師長(zhǎng)、同學(xué)、朋友給了我無言的幫助，在這里請(qǐng)接受我誠(chéng)摯的謝意！ 參考文獻(xiàn) [1][美 ]Steve TeiXeira 著 .龍勁松，王瑜，謝尚書譯 .Delphi7 開發(fā)人員指南 [M]. 北京 :機(jī)械工業(yè)出版社 ,. [2]Microsoft for Windows Developed Toolkit Programming Guide[Z].1996. [3]張春林 .Delphi6 程序設(shè)計(jì)導(dǎo)學(xué) [M].北京 :清華大學(xué)出版社 ,2020. [4]周新會(huì) ,周金根 . Ｄ elphi 數(shù)據(jù)庫通用模塊及典型系統(tǒng)開發(fā) [M].北京 :人民郵電出版社 ,2020. [5]王小華 .程序員經(jīng)驗(yàn)點(diǎn)滴 [M].北京 :兵器工業(yè)出版社 ,2020. [6]呂偉臣 .Delphi8 入門與提高 [M].北京 :清華大學(xué)出版社 ,. [7]張海藩 .軟件工程 [M].北京 :人民郵電出版社 ,2020. [8]飛思科技產(chǎn)品研發(fā)中心 .delphi7 網(wǎng)絡(luò)應(yīng)用開發(fā) [M].北京 :電子工業(yè)出版社 ,2020. [9][美 )Feng Yuan 著 . 英宇工作室譯 . Windows 圖形編程 [M].北京 :機(jī)械工業(yè)出版社 ,. [10] 。點(diǎn)擊“啟動(dòng)攝像”，軟件與攝像頭順利建立通信，并成功捕獲視頻信息 。 fileclose(ff)。用戶在使用過程中如果需要擴(kuò)充幫助系統(tǒng)，只需修 改對(duì)應(yīng)的文本文件即可。wav\39。 f:=inttostr(i)。 在自動(dòng)保存時(shí) ,文件名的獲取成為設(shè)計(jì)的關(guān)鍵 ,為了與用戶輸入的文件名保持 一致 ,可先定義兩個(gè)字符串變量 filename和 fname,其中 filename 用來保存用戶輸入的文件名和存取路徑 ,fname 僅僅存取主文件名 (不包括擴(kuò)展名 )。 //以下為錄制音頻文件 try CreateWavFile(2,16,22050, (ExtractFilePath()+ 39。// 39。RIFF 格式聲音文件 39。 nAvgBytesPerSec : longint。 begin drawdibdraw(hdd,dc,0,0,addr(bmpinfo),data,0,0,1,1,0)。 在該段程序中，還有一個(gè)幀的回調(diào)過程 FrameCallBack，這是本系統(tǒng)的關(guān)鍵，通過這個(gè)回調(diào)，可以獲取視頻數(shù)據(jù)。 啟動(dòng)攝像與音頻錄制 （ 1）啟動(dòng)攝像 要啟動(dòng)攝像頭開始攝像，首先要引入一個(gè)外部函數(shù)capCreateCaptureWindowA[5],這個(gè)函數(shù)來自于 動(dòng)態(tài)鏈接庫中。 在窗口初始化過程中，需要用定義過的格式和結(jié)構(gòu)對(duì)相關(guān)變量進(jìn)行初始化，使繪圖板和設(shè)備均處于打開狀態(tài)，并提前為視頻數(shù)據(jù)分配內(nèi)存空間： procedure (Sender:TObject)。 DIB 位圖的信息頭如表 所示： 表 BITMAPINFOHEADER 數(shù)據(jù)域含義 數(shù)據(jù)域參數(shù) 數(shù)據(jù)域含義 biSize 本結(jié)構(gòu)大小的字節(jié)數(shù) Width 位圖的寬度、單位為 象 素點(diǎn) Height 位圖的高度、單位為 象 素點(diǎn) 數(shù)據(jù)域參數(shù) 數(shù)據(jù)域含義 Planes 指定設(shè)備所用的顏色位面數(shù)，位面數(shù)決定了設(shè)備所使用的顏色數(shù)， 2^位面數(shù)就是顏色數(shù)。 //定義顯示設(shè)備 hdd:HDRAWDIB。 復(fù)制到剪貼板 將實(shí)時(shí)抓取的瞬間圖像送往剪貼板。 （ 2） CAPSTATUS：定義了捕捉窗口的當(dāng)前狀態(tài)，如：以象素為單位表示圖像的高、寬、 預(yù)覽和重疊方式的標(biāo)志量，尺寸縮放的標(biāo)志量等。 如果該函數(shù)調(diào)用成功 則函數(shù)返回窗口的句柄 否則函數(shù)返回 NULL。它能使應(yīng)用程序通過數(shù)字化設(shè)備從傳統(tǒng)的模擬視頻源得到數(shù)字化的視頻剪輯， VFW 的一個(gè)關(guān)鍵思想是播放時(shí)不需要專用硬件。嵌入式視頻 Web服務(wù)器方式性能穩(wěn)定可靠，無需專人管理，但技術(shù)過難、對(duì)硬件的要求也較高。 關(guān)鍵詞 ： VFW， AVICap 窗口類 ， 視頻捕捉 ， 捕捉窗口 ， 視頻對(duì)話框 The Software Control Design of Camera Based on Delphi Information engineering school puter science and technology department zhou jing Abstract This paper introduces how to achieve the functions such as video capture,synchronous recroding of audio,realtime image capture,video streaminp and so on in Delphi,and focused on analysing the timely preservation of the highperformance hard disk video in the video monitoring the process of designing t