【導(dǎo)讀】本設(shè)計(jì)主要利用微軟公司的VFW軟件包和AVICap窗口類的成員函。長(zhǎng)時(shí)與短時(shí)兩種模式，并能實(shí)現(xiàn)硬盤空間的自動(dòng)檢測(cè)和錄像的適時(shí)保存。供了有益的借鑒。

　　

【正文】 filename:=substr(filename)+f。//生成新文件名 sendmessage(hwndc,wm_cap_file_set_capture_filea,0,longint(pchar(fname+filename+39。.avi39。)))。 sendmessage(hwndc,wm_cap_sequence,0,0)。 :=true。 if cl1500 then //硬盤空間小于 500M 時(shí)強(qiáng)制結(jié)束錄制 begin i:=i+1。 f:=inttostr(i)。 file1:=ExtractFilePath()+ 39。39。 file2:=ExtractFilePath()+39。wav\39。+f+39。.wav39。 copyfile(pchar(file1),pchar(file2),false)。 deletefile(pchar(file1))。 showmessage(39?？臻g不足，強(qiáng)制結(jié)束錄制 39。)。 end。 end else if cl1500 then //錄制過程中隨時(shí)檢測(cè)硬盤空間，一旦硬盤不足將結(jié)束錄制 end。 在對(duì)硬盤空間進(jìn)行檢測(cè)時(shí)，系統(tǒng)調(diào)用了 WINDOWS API 函數(shù) GetDiskFreeSpace（） ，Ｇ etDiskFreeSpace（）函數(shù)共有五個(gè)參數(shù)，其中， lpRootPathName 指出要檢測(cè)的硬盤根目錄，通常用 nil 表當(dāng)前盤， lpSectorsPerCluster 指出每簇所包含的扇區(qū)數(shù)， lpBytesPerSector 指出每區(qū)的字節(jié)數(shù)， lpNumberOfFreeClusters和 lpTotalNumberOfClusters 則指明當(dāng)前盤的空余簇?cái)?shù)和總簇?cái)?shù)。對(duì)測(cè)出的數(shù)據(jù)按照公式： (簇?cái)?shù) *扇區(qū)數(shù) *每扇字節(jié)數(shù) )div(1024*1024)，即可測(cè)得當(dāng)前的總?cè)萘亢褪Ｓ嗫臻g大小。 文件在創(chuàng)建和保存時(shí)，設(shè)備不正常工作的情況經(jīng)常發(fā)生，為了避免出現(xiàn)程序的異常退出或者突然死機(jī)現(xiàn)象 ，本 設(shè)計(jì) 在文件的創(chuàng)建和保 存中均使用了異常處理方法，以保證系統(tǒng)的正常運(yùn)行。 幫助文件的設(shè)計(jì) 一個(gè)好的系統(tǒng)都有一個(gè)完整的幫助文件，為用戶提供各種必要的幫助和系統(tǒng)的基本配置等信息。在本軟件中， 系統(tǒng) 也向用戶提供了幫助 文檔 ，向用戶介紹軟件各模塊的基本功能、系統(tǒng)所需的各項(xiàng)技術(shù)指標(biāo)等。 在系統(tǒng)幫助的設(shè)計(jì)中，為方便用戶和開發(fā)人員完善幫助文件， 這里 使用了文件自動(dòng)讀取技術(shù)，并將所有幫助文件均存為文本格式，當(dāng)程序捕獲到鼠標(biāo)在相應(yīng)幫助項(xiàng)上的點(diǎn)擊事件時(shí)，系統(tǒng) 將 自動(dòng)從幫助文件庫中讀取與其對(duì)應(yīng)的幫助文件 。用戶在使用過程中如果需要擴(kuò)充幫助系統(tǒng)，只需修 改對(duì)應(yīng)的文本文件即可。 幫助系統(tǒng)的界面如圖 43所示： 文件讀取部分的核心代碼如下： procedure (Sender: TObject)。 var node:ttreenode。//定義樹結(jié)點(diǎn) ass:ansistring。 nn,ff:integer。 ss:array[0..1] of char。 begin node:=。 if (nodenil) then begin if (=0) then begin ff:=fileopen(ExtractFilePath()+39。\help\39。,fmopenread)。//當(dāng)單擊某一結(jié)點(diǎn)時(shí)，系統(tǒng)自動(dòng)調(diào)用對(duì)應(yīng)的幫助文檔 if (ff=1) then exit。 ass:=39。39。 repeat nn:=fileread(ff,ss,1)。 if nn0 then ass:=ass+ss。 until nn1。 fileclose(ff)。 :=ass。 end。 圖 43 系統(tǒng)幫助 在可視化樹的單擊事件中，系統(tǒng)隨時(shí)捕獲用戶操作，當(dāng)某一結(jié)點(diǎn)的單擊事件被系統(tǒng)捕獲，系統(tǒng)即自動(dòng)調(diào)用對(duì)應(yīng)的幫助文檔，并將其讀入到左邊的 MEMO 組件中，實(shí)現(xiàn)可視化樹結(jié)點(diǎn)的同步顯示。 設(shè)計(jì)中的問題 本軟件 雖然實(shí)現(xiàn)了音頻和視頻的同步錄制，但在設(shè)計(jì)過程中也遇到了諸多問題，比如視頻與音頻 信息沒有進(jìn)行 壓縮，占 用空間過大，需要用其它視頻壓縮編碼器進(jìn)行壓縮 。音頻文件和視頻文件分開存放，即造成了空間的巨大浪費(fèi)，也使得視頻文件的維護(hù)變得相當(dāng)不便 。如何將視頻和音頻與網(wǎng)絡(luò)聯(lián)接起來，將本地視頻傳送至遠(yuǎn)端，實(shí)現(xiàn)遠(yuǎn)端視頻等問題，也需進(jìn)一步完善。 測(cè)試技術(shù) 軟件測(cè)試是保證軟件質(zhì)量的主要活動(dòng)之一。它是軟件質(zhì)量保證的臨界和決定成分，并它提供對(duì)軟件規(guī)格說明、設(shè)計(jì)和編碼的最終評(píng)審 [7]。 軟件測(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è)試。 軟件測(cè)試可分為兩類：黑盒子測(cè)試和白盒子測(cè)試 (1)黑盒子測(cè)試（功能測(cè)試） 如果已知軟件的功能，可以測(cè)試它的每一個(gè)功能是否能達(dá)到預(yù)期的要求，這種方法叫黑盒子測(cè)試。 對(duì)設(shè)計(jì)好的軟件，將其安裝到多臺(tái)機(jī)子上，由不同的用戶進(jìn)行測(cè)試，發(fā)現(xiàn)本軟件僅可在 WIN2020 上正常運(yùn)行，而在 WIN98,WINXP 上則無法實(shí)現(xiàn)視頻的捕捉，并提示用戶內(nèi)存地址讀寫出錯(cuò)。 (2)白盒子測(cè)試（結(jié)構(gòu)測(cè)試） 如果已知產(chǎn)品的內(nèi)部活動(dòng)方式，可以測(cè)試它的內(nèi)部活動(dòng)是否都符合設(shè)計(jì)要求，這種方 法叫白盒子測(cè)試。 為保證定時(shí)存盤能正常實(shí)現(xiàn)，在程序中將時(shí)間改為十分鐘，系統(tǒng)順利通過了測(cè)試。 本軟件在設(shè)計(jì)完成后，進(jìn)行了多項(xiàng)測(cè)試（功能測(cè)試、性能測(cè)試、可用性測(cè)試 等），經(jīng)過測(cè)試，系統(tǒng)能夠正常運(yùn)行，達(dá)到了預(yù)期的開發(fā)目標(biāo)。 測(cè)試結(jié)果與評(píng)價(jià) 將攝像頭和話筒與系統(tǒng)連接，并正確安裝相關(guān)驅(qū)動(dòng)程序，然后運(yùn)行本軟件。點(diǎn)擊“啟動(dòng)攝像”，軟件與攝像頭順利建立通信，并成功捕獲視頻信息 。點(diǎn)擊“開始錄像”，輸入文件名后，視頻和音頻文件錄制正常；“關(guān)閉設(shè)備”操作能夠及時(shí)斷開軟件與攝像頭的通信，并釋放掉內(nèi)存空間 。各模塊均能正常運(yùn)行。 軟 件基本達(dá)到設(shè)計(jì)要求，功能完整，用戶界面良好，錯(cuò)誤處理正確，且能正確提示錯(cuò)誤種類。但是在測(cè)試中也發(fā)現(xiàn)軟件的一些不足與缺陷，比如視頻格式的設(shè)置對(duì)視頻卡的要求特別嚴(yán)格，視頻數(shù)據(jù)的格式及圖像的長(zhǎng)寬一旦與視頻卡不相容，軟件將發(fā)生意外錯(cuò)誤，并影響視頻信息的再次捕獲 。 視頻與音頻 信息沒有進(jìn)行 壓縮處理，占用空間過大 等不足與缺陷，需要在軟件進(jìn)一步修改和維護(hù)時(shí)予以糾正?？偟膩碚f，軟件通過測(cè)試，可以發(fā)行。 本 軟件在 Windows 2020 環(huán)境下 順利通過測(cè)試，運(yùn)行界面友好，操作簡(jiǎn)單，系統(tǒng) 內(nèi)含萬能攝像頭驅(qū)動(dòng)程序，點(diǎn)擊驅(qū)動(dòng) 安裝菜單項(xiàng)即可自動(dòng)完成驅(qū)動(dòng)程序的安裝，對(duì)無操作經(jīng)驗(yàn)的用戶來說也可以輕而易舉的進(jìn)行錄像而不會(huì)出現(xiàn)任何困難，視頻與音頻效果都達(dá)到了預(yù)期的目的。同時(shí)本軟件還具有自動(dòng)存盤與硬盤空間 適時(shí) 檢測(cè)功能，在進(jìn)行長(zhǎng)時(shí)錄像或應(yīng)對(duì)斷電等異常情況時(shí)，能夠確保最近信息的錄制 ， 這項(xiàng)功能也是目前大多數(shù)攝像軟件 所不具備的。 整套設(shè)計(jì)較好地滿足了 那些需要 對(duì) 視頻 信息進(jìn)行 捕捉而對(duì)系統(tǒng)要求不是很高的部門和領(lǐng)域 ,具有一定的實(shí)用價(jià)值 。 然而，由于知識(shí)體系有待成熟和系統(tǒng)化，視頻與音頻信息的壓縮等部分的代碼實(shí)現(xiàn)還有待進(jìn)一步的優(yōu)化與完善， 視頻卡參數(shù)的設(shè)置與自適 應(yīng)功能也有待于進(jìn)一步增強(qiáng)。隨著 AVICap 窗口類與 VFW 技術(shù)的日益完善， 可以預(yù)見，在今后的一段時(shí)間里，能夠?qū)⒁纛l、視頻流直接壓縮入 AVI 文件而又相對(duì)易用的 AVICap 窗口類與 VFW 技術(shù) 將是視頻捕獲的領(lǐng)域的核心技術(shù)。 致 謝 我在做畢業(yè)設(shè)計(jì)和畢業(yè)論文的整個(gè)過程中，得到了王玉芬老師的精心指導(dǎo)和幫助， 王老師 對(duì)我的畢業(yè)設(shè)計(jì)和畢業(yè)論文多次提出建設(shè)性意見 。王老師還在百忙之中多次召開小組會(huì)來組織討論和悉心指導(dǎo)。 感謝王老師，她嚴(yán)謹(jǐn)細(xì)致、一絲不茍的作風(fēng)一直是我 在 工作、學(xué)習(xí)中的榜樣； 她精益求精的工作作風(fēng)和孜孜不倦的求學(xué)精神 令我受益匪淺。 感謝“團(tuán)隊(duì)”中的其他學(xué)友，我們相互協(xié)作、相互幫助，經(jīng)常在一起進(jìn)行學(xué)習(xí)、討論，相互交流學(xué)習(xí)的心得和體會(huì)，為畢業(yè)設(shè)計(jì)的順利完成營(yíng)造了良好的學(xué)習(xí)氛圍、奠定了堅(jiān)實(shí)的基礎(chǔ)。 在論文即將完成之際，我的心情無法平靜，從開始進(jìn)入課題到論文的順利完成，有多少可敬的師長(zhǎng)、同學(xué)、朋友給了我無言的幫助，在這里請(qǐ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]