易语言视频设备怎么拍照

推荐回答

.版本 2

.支持库 twain

.判断循环首 (视频设备1.当前来源 ＝ -1)

   视频设备1.当前来源 ＝ 1

.判断循环尾 ()

.如果真 (视频设备1.当前来源 ≠ -1)

   视频设备1.预览 (真,60)

   视频设备1.保存为图片 ("路径文件名.bmp")

利用Windows API可以完成

capCreateCaptureWindowA

声明原型

.DLL命令 capCreateCaptureWindowA, 整数型, "avicap32", "capCreateCaptureWindowA"

   .参数 lpszWindowName, 文本型, , 指定名字

   .参数 dwStyle, 整数型, , 风格，参见wstyle，一般有WS_CAPTION(决定有无标题栏,标题就是第1个参数)WS_CHILD(子窗口)WS_VISIBLE(可视)WS_ThickFrame(可以调整窗口大小的边框)

   .参数 x, 整数型, , 相对窗口x坐标

   .参数 y, 整数型, , y

   .参数 nWidth, 整数型, ,宽度

   .参数 nHeight, 整数型, , 长度

   .参数 hwndParent, 整数型, , 父窗口句柄，一般用取窗口句柄 ()

   .参数 nID, 整数型, , 0

.版本 2

.局部变量 CrameraHandle, 整数型

CrameraHandle ＝ capCreateCaptureWindowA (“EPL Camera Demo”, 262144 ＋ 12582912 ＋ 1073741824 ＋ 268435456, 0, 0, 200, 200, 取窗口句柄 (), 0)

.如果真 (CrameraHandle > 0)

   SendMessageA (CrameraHandle, #WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0)

   SendMessageA (CrameraHandle, #WM_CAP_SET_CALLBACK_ERROR, 0, 0)

   SendMessageA (CrameraHandle, #WM_CAP_SET_CALLBACK_STATUSA, 0, 0)

   SendMessageA (CrameraHandle, #WM_CAP_DRIVER_CONNECT, 0, 0)

   SendMessageA (CrameraHandle, #WM_CAP_SET_SCALE, 1, 0)

   SendMessageA (CrameraHandle, #WM_CAP_SET_PREVIEWRATE, 66, 0)

   SendMessageA (CrameraHandle, #WM_CAP_SET_OVERLAY, 1, 0)

   SendMessageA (CrameraHandle, #WM_CAP_SET_PREVIEW, 1, 0)

'这些代码负责控制摄像头工作

一般来说用摄像头拍就可以了。