VFP连接高拍仪难不难？只看这篇就能搞定

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