高拍仪二次开发，高拍仪驱动，VFP连接高拍仪详解

作者：brand 日期：2023-01-15 阅读量：871

1.高拍仪安装驱动
高拍仪驱动有很多版本，根据自己想要功能下载驱动，详情请咨询相关技术人员。

https://www.brandsz.cn

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

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

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

3 编写代码

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

Thisform.gobal.initdevs()

*--参数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)

cFile=Sys(2015)+".jpg"

img=Thisform.VIdeo.CreateImage(0, Thisform.olePHOTO.GetView())

Thisform.olePHOTO.PlayCaptureEffect()

img.Save(cFile, 0)

img.Destroy()

img = Null

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

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

免责声明：本站部分内容及插图来源于网络，如有发现涉嫌侵权的内容或插图，请联系客服进行举报并提供相关证据，一经查实，本站将立刻删除涉嫌侵权的相关内容或插图。