1 安装驱动
驱动有很多版本,根据自己想要功能下载驱动
https://www.eloam.cn/download/list/5
安装完驱动后,请连接良田高拍仪。
2 找到OCX控件并放到表单中
将ole控件的name属性改为olephoto,并拖入一个command按钮
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
以上为简单例子,当然还有更强大的功能,请查看开发文档。