易语言捕获视频摄像头

易语言 2020-08-02 19:56:51

易语言捕获视频摄像头

.如果 (启动视频.禁止 = 真)
通用对话框.标题 = “选择你存放的位置”
通用对话框.默认文件后缀 = “jpg”
通用对话框.过滤器 = “JPEG 图像|*.jpg”
通用对话框.初始目录 = 取运行目录 ()
.如果 (通用对话框.打开 () = 真)
文件名 = 通用对话框.文件名
成功 = 视频设备.保存为图片 (文件名)
信息框 (“你是否已初始化?”, #询问图标, “询问:”)
.否则
信息框 (“保存失败!”, #信息图标, “提示:”)
.如果结束

.否则
信息框 (“请先启动视频”, 0, )