设备配置对 件
话框 2.程序实现方法
-
- ShowContlgureDialog(21//启动视频捕捉格式配置对 2.1注册Active控件
话框 要使用前面介绍的ActiveX控件 AVCap.OCX、PicClp32.OCX
CurVed属性 ,,获得当前视频捕捉设备连接状态值.返回值 和IIIIdit.ocx,必须先对它们进行
注册。在VFP主窗1:21中,执
0表示设备已连接 行”工具”菜单一”选项”一”控件”标签一”ActiveX控件”.单击”添
1钛ePictureToFile方法 ,,抓取当前视频的一幅图像保存 加”按钮,将上述三个控件文件逐一添加到系统中.然后在”选
格式:TakePictureToFile(cBitmapFile
)//抓取当前视频的一幅 定”列表中将”AVCaptureClass”、”KodakImageEditControl”和”
图像保存到指定的位图文件 MicrosoftPictureClipControl”三项选中并单击”确定”按钮。注册
1.2PicClp32.OCX控件 成功后,单击”表单控件”工具栏上的”查看类”按钮。从
列表中选
PicCIp32.OCX是VFP自带的图像剪裁控件.在安装VFP时 择”ActiveX”,显示ActiveX控件工具栏。
被自动安装到Windows2000的System32文件夹内。由于Av. 2.2创建表单集
Cap.OCX控件所捕捉的图像尺寸是捕捉设备所设定的实际分辨 创建包含”基本信息”和”视频预览”两个表单的表单集.主
率,与实际需要的图像大小并不一致。因此可以使用PicClp32. 要功能是:在”基本信息”表单上列出人员的基本信息.如和
OCX控件进行剪裁.并使用VFP的SavePicture函数将剪裁区域 (均来自BASE数据表中的字段)。选择某时显示该学
保存为新的图像。PicCIp32.OCx控件的主要属性和方法如下: 号照片(照片存储在与同名的JPG文件中):点击”开始”按
Picture属性 //加载bmp源位图 钮时启动摄像头,显示”视频预览”表单并进行视频预览;点击”
格式:Picture=LoadPicture(cBitmapFile1,,加载指定的位图文 照相”按钮进行照相.照片经剪裁、压缩和转换后存储到与
----------------------- Page 2-----------------------
维普资讯 cqvip
180 福 建 电 脑 2006年第7期
同名的JPG文件中:点击 停“止”按钮关闭摄像头。隐藏”视频预 cPicFile— bmp=AllTrim(Sys(3))+".bmp”&;&;取得随机bmp文
览”表单。表单集的创建方法如下: 件名
◆新建表单(Form1,”基本信息”表单),创建表单集(Form. Thisformset.Form2.AVCap.TakePictureToFile(cPicFile.bmp)
set1)。 &&;抓取当前视频流中的一幅图像保存到bmp文件
◆在表单集中添加新表单(Form2,”视频预览”表单)。 IFFile(cPicFile—bmp)&;&;如果bmp文件保存成功
2.2.1
设计”视频预览”表单 Thisformset.Form2.PicClip.Picture =LoadPicture (cPic.
◆在”视频预览”表单(Form2)上添加 AVCaptum
Class(AV. 1ebmp),牍入位图
Cap.OCX)、MicrosoftPictureClipControl(PicClp32.OCX)和Kodak Thisformset.Form2.PicClip.ClipX=0&;&;设置剪裁区域
ImageEditControl(ImgEdit.ocx)--+~件.并分别设置属性和编 Thisformset.Form2.PicClip.ClipY=O
写方法程序代码: Thisformset.Form2.PicClip.ClipHeihgt lisformset.F0rm2.
◆表单(Form2)属性 AVCap.VideoHeihgt
AwaysOnTop=.T. Thisformset.Form2.PicClip.ClipWidht =11lisformset.Form2.
Visible=.F. AVCapV·ideoHeihgt314 .
Height=240,,拟照相的照片高度 SavePicture(Thisformset.Form2.PicClip.Clip。cPicFile_bmp)
Width=320 ,,拟照相的照片宽度 &;&;通过PicClip32.OCx控件将照片剪裁后原名保存
◆AVCap.OCX控件属性 Thisformset.Form2.ImgEdit.Heihgt=Thisformset.Form2.Pic-
Name=”AVCap”//设置控件名称为AVCap