《摄像头监视系统设计与实现 苏州技师学院信息工程系2012届毕业设计论文》由会员分享，可在线阅读，更多相关《摄像头监视系统设计与实现 苏州技师学院信息工程系2012届毕业设计论文（32页珍藏版）》请在金锄头文库上搜索。
1、 2012 届毕业设计（论文）摄像头监视系统院 （系） 信息工程系 专 业 高级计算机网络技术 班 级 信息0707班 姓 名 黄子英 指导教师 华 康 起讫日期 3月3日6月10日 2011年6月10日目 录第一章开发背景2第二章系统分析32.1需求分析32.2可行性分析32.2.1引言32.2.2可行性分析的前提4第三章关键技术53.1 使用文件对象模型FSO53.2 使用Windows Media Player控件53.3 使用ezVidCap视频控件63.3.1 常用属性63.3.2 常用方法63.3.3 常用事件6第四章系统设计74.1 系统目标74.2 系统功能结构74.3 构建开
2、发环境74.4 系统特色介绍8第五章设计模块文件8第六章设计主窗体96.1 制作主窗体文件96.2 添加菜单栏126.3 编写主窗体代码14第七章设计视频监视主要窗体217.1 录制视频窗体217.2 预览窗体237.3 全屏窗体277.4 回放窗体29第八章设计辅助窗体308.1 设置帧率318.2 设置保存文件328.3 录制时长32第九章 小结33第一章 开发背景随着计算机硬件技术的快速发展，使用USB摄像头(或采集卡)和个人计算机也可组成一套智能数字化监视系统.我们以USB摄像头为基础,开发出一套监视系统软件，该软件需要一个几十快钱的普通的USB摄像头（或电视采集卡）即可。本软件可以把
3、录像保存为AVI格式，或将监视画面保存为BMP图片格式。本软件还提供录像回放及图片查看功能，可查看数据文件夹中保存的录像文件或图片文件。另外，还支持全屏幕的现实方式，时监视画面可是范围更大，图片看起来更清晰。本软件可作为个人用户、企业门卫、员工信息采集等处使用。本系统采用Visual Basic中文版和OCX空间开发具有以下优点： 本系统投资小，对于有计算机的用户，只需购置一个USB摄像头即可（大部分用户的计算机都已经配置有摄像头）。 功能实用，提供录像、拍照、回放功能。 操作简单，只需点几下鼠标即可完成录像、拍照等功能。第二章 系统分析2.1 需求分析通过对监视系统需要完成的功能进行分析，以
4、及参照其他监视系统的功能，得到该系统需要具备的功能，具体如下。 随时显示监视画面； 根据需要录制监视视频； 可设置录制视频的时长，满时自动停止； 可控制录制视频是否录制声音； 可设置视频、音频格式； 根据需要抓拍监视画面为单独的图片文件； 可设置视频文件和图片文件的保存位置。2.2 可行性分析2.2.1编写目的从计算机信息管理技术，以及企业的业务需求两方面出发，对摄像头监视系统（下面简称为“本系统”）的可行性分析，为企业决策作依据。2.2.2项目背景 项目提出者；xxxxxxx公司 项目开发者；xxxxxxx公司 系统用户；作为免费软件，发布到网上供广大网友下载使用。2.2.3系统要求摄像头监
5、视系统提示视频监视、录制、回放等多种 功能，并能设置视频、音频等参数。2.2.4系统目标摄像头监视系统的目标是：监视目标、录制监视视频、抓拍监视画面、回放录制视频和图片等功能。2.2.5对项目提出者支出与收益的分析本系统作为免费软件，免费提供给广大用户使用，对此项不作分析。2.2.6对计算机信息管理技术支持的分析本系统使用Visual Basic 作为开发环境，这是非常成熟的开发平台，项目开发者非常熟悉Visual Basic 各项功能，有着丰富的开发经验，完全可以在规定的时间内完成本系统的开发。2.2.7对项目开发者支出与收益的分本系统作为免费软件，免费提供给广大用户使用，对此项不作分析。2
6、.2.8社会因素的分析本系统完全由本公司独立开发完成，是按本公司的开发体系结构进行开发的，在法律方面没有任何侵权行为，完全符合合同的规定。2.2.9结论根据以上的分析，本项目的开发在技术上没有问题，开发时间 充足。从 效益上分析，1个星期的工期，1个程序员即可完成该项目。虽然没有直接的经济收入，但作为免费软件，可为公司积累大量用户，并为 开发多媒体系统进行技术储备，具有积极的意义。因此认为该项目可以开发。第三章 关键技术3.1 使用文件对象模型FSO文件对象模型FSO的全称是File System Object，对该模型提供了一个基于对象的工具来处理文件夹和文件。通过采用面向对象编程的语法（使
7、用Object。Method这种方法 ），将一系列文件和文件夹的操作通过调用FSO对象的属性和方法来实现。FSO对象模型不仅可以像使用传统文件操作语句那样实现文件的创建、改变、移动和删除，而且可以检测是否存在指定的文件夹，以及文件夹位于磁盘上的什么位置。FSO对象模型可以获取关于文件和文件夹的信息，如名称、创建日期或最近修改日期，以及当前系统中使用的驱动器的信息。FSO对象模型包含了File System Object、Drive、Folder、File和Textstream5个对象。 File System Object对象是FSO对象模型中最主要的对象，它提供了一套完整的可用于创建、删除文
8、件和文件夹，收集驱动器、文件夹、文件相关信息的方法。 Drive对象用来收集驱动器的信息，如可用磁盘空间或驱动器的类型等。 Folder对象用于创建、删除或移动文件夹，同时可以进行向系统查询文件夹的路径等操作。 File对象的基本操作和Folder基本相同，所不同的是Files的操作只要是针对磁盘上的文件进行的。 Textstream对象则是用来完成对文件的读写等操作。本章第5节演示了使用FSO操作文件或文件夹的方法。3.2 使用Windows Media Player控件在Visual Basic中使用Windows Media Player控件来播放多媒体文件是最方便的，要在应用程序中使用
9、该控件，可按以下步骤进行设置。1. 通过“工程/部件”菜单命令3.3 使用ezVidCap视频控件ezVidCap是一个免费的视频控件，使用该控件编写程序，程序员不用直接调用API函数，就可轻松编写出控制视频的程序。ezVidCap控件提供了丰富的属性和方法，以方便程序员控制视频，下面简单介绍该控件的常用属性、方法和事件。3.3.1 常用属性 CaptureAudio：在录制视频时，是否同时录制音频； CaptureFile：设置本地视频或图片缓冲文件； CaptureRate：录制视频的帧率，可设置1100之间的值，默认为15； Capturing：是否正在录制视频； GetDriverVe
10、rsion：返回当前VFW驱动版本； Preview：允许或禁止预览模式； PreviewRate：设置或返回预览模式的帧率； TimeLimit：设置或返回录制视频时的时间限制(以秒为单位) TimeLimitEnabled：是否允许限制录制时间。3.3.2 常用方法 CapSingleFrame：抓拍单帧； CaptureEnd：停止当前录制操作； CaptureVideo：准备到视频和音频录制到一个文件中； PreciseCaptureCancel：放弃录制； PreciseCaptureStart：开始录制 SaveDIB：保存当前帧到一个DIB文件； ShowDlgAudioForm
11、at：显示“音频格式”对话框，设置录制视频时的音频格式； ShowDlgCompressionOptions：显示“视频压缩”对话框； ShowDlgVideoDisplay：显示“视频设置”对话框； ShowDlgVideoFormat：显示“视频格式”对话框； ShowDlgVideoSource：显示“选择视频源”对话框。3.3.3 常用事件 PreRollComplete：准备开始录制时，将触发该事件； StatusMessage：状态事件； ErrorMessage：错误事件。本章的大部分代码中都需要使用以上列出的属性、方法或事件，具体内容参见本章后面的相关代码。第四章 系统设计4.
12、1 系统目标根据需求分析的描述及与用户的沟通，最终确定系统要实现的目标如下。 界面简洁、框架清晰、美观大方； 全天候预览监视视频； 提供全屏查看监视视频的功能； 提供录制视频的功能； 提供抓拍视频画面的功能； 提供设置视频、音频格式的功能； 提供回放视频、查看抓拍画面的功能；4.2 系统功能结构 本系统的功能只要包括预览监视画面、录制视频、抓拍图片、回放视频和图片、系统参数设置等。系统功能如下图所示。4.3 构建开发环境本项目的开发环境如下。 开发语言环境：Microsoft Visual Basic6.0中文版。运行平台：在Windows2000、Windows2003、Windows XP
13、中运行。4.4 系统特色介绍本系统的特色有： 操作简单，符合Windows风格的操作界面，使用户可快速上手， 可录制视频。 可抓拍视频图片。 可回放录制的视频、图片。 可全屏查看监视画面。第五章 设计模块文件本系统的模块文件代码很简单，只要用来声明全局变量和定义一个函数，下面列出具体代码。(1) 在模块文件中声明全局变量，用来保存录制视频、抓拍图片的位置和名称。1. Public strFileAVI As String 保存视频的文件名2. Public strFileBMP As String 保存图片的文件名3. Public sngTime As Single 设置录制时长4. (2)
14、 编写CreateFolder过程，用来逐层创建子文件夹，具体代码如下：5. Public Function CreateFolder(ByVal strPath As String) As Boolean 逐层创建子文件夹6. Dim iSearch As Integer7. Dim str1 As String8. Dim FileSystemObj As Object9. On Error Resume Next10. Set FileSystemObj = CreateObject(Scripting.FileSystemObject) 创建文件对象模型11. If Not FileSystemObj.DriveExists(FileSystemObj.GetDriveName(strPath) Then 若存在该路径12. CreateFolder = False 设置返回参数13.
