vfp连接高拍仪难不难，只看这篇就能搞定

1 安装驱动

 

驱动有很多版本，根据自己想要功能下载驱动

深圳市新良田科技股份有限公司

安装完驱动后，请连接良田高拍仪。

2 找到OCX控件并放到表单中

将ole控件的name属性改为olephoto，并拖入一个command按钮

表单添加gobal,device,video属性

3 编写代码

表单Load事件

Thisform.gobal=Createobject("EloamGlobal.Instance.1")
Thisform.gobal.initdevs()

表单init事件

*--参数1　1:视频设备2:音频  参数2 设备序号 0 
Thisform.Device=Thisform.gobal.createdevice(1,0)
*-- 参数1 resolution 分辨率索引
*-- 参数2 subtype子类型，1 表示YUY2 ，2 表示MJPG ，4表示UYVY, 0表示自动选择一个子类型
Thisform.video=Thisform.Device.createvideo(0,0)
Thisform.olePHOTO.selectvideo(Thisform.video)  &&加载视频设备显示
*--显示加载时提示信息
Thisform.olePHOTO.SetText("Video Loding...",0)

command1按钮click事件

cFile=Sys(2015)+".jpg"
img=Thisform.VIdeo.CreateImage(0, Thisform.olePHOTO.GetView())
Thisform.olePHOTO.PlayCaptureEffect()
img.Save(cFile, 0)
img.Destroy()
img = Null

表单Destory事件

If Vartype(Thisform.video)="O"
	Thisform.olephoto.SetText("", 0)
	Thisform.video.Destroy()
	Thisform.video = Null
Endif
If Vartype(Thisform.Device)="O"

	Thisform.Device.Destroy()
	Thisform.Device = Null
Endif

Thisform.gobal.DeinitDevs()
Thisform.gobal = Null

以上为简单例子，当然还有更强大的功能，请查看开发文档。

源码下载

vfp连接良田高拍仪.rar_vfp编程-其它文档类资源-CSDN下载

写在最后面的话

加菲猫的vfp倡导用VFP极简混合开发，少写代码、快速出活，用VFP，但不局限于VFP，各种语言混合开发。

已经带领一百多名会员成功掌到VFP的黑科技，进入了移动互联网时代，接下来我们要进入物联网领域。