VFP连接高拍仪

1 安装驱动

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

https://www.eloam.cn/download/list/5

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

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

gggggggggg1.png, Aug 2021

将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 = NullEndifIf Vartype(Thisform.Device)="O"
Thisform.Device.Destroy() Thisform.Device = NullEndif
Thisform.gobal.DeinitDevs()Thisform.gobal = Null

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

ggggggggggg2.gif, Aug 2021

You may also like

  • sssssssss.png, Aug 2021 VFP控制扫描仪
  • 三分钟配置FRP内网穿透,外网访问SQL不用愁
  • 一些有用的VFP网站地址合集
  • VFP与sql server用作网络版程序
  • VFP9 连接mysql代码示例
  • Visual FoxPro 6.0~9.0解决方案与范例大全写作原稿及光盘下载 转Linux社区
  • vfplogo.jpg, Feb 2020 还记得那年的vfp吗,今天win7安装vfp9.0 sp2