Question

易语言怎么做，点击按钮后后打开摄像头，然后照张相然后发送到到指定youxaing

求大神解答 易语言怎么做 点击按钮后后打开摄像头 然后照张相然后传到指定youxaing
邮箱两个字打不出来

Answer 1

自己组装一下来自两个程序。
（拍照）
.版本 2
.支持库 twain
.支持库 eImgConverter

.子程序 关闭摄像头

视频设备1.预览 (假, -1)
视频设备1.预览 (假, -1)

.子程序 拍照

视频设备1.保存为图片 (取运行目录 () ＋ “\temp\temp.bmp”)
转换到JPG (取运行目录 () ＋ “\temp\temp.bmp”, 取运行目录 () ＋ “\temp\临时照片.jpg”, 假, 到整数 (编辑框5.内容), 真, 0)
删除文件 (取运行目录 () ＋ “\temp\temp.bmp”)
编辑框4.内容 ＝ 取运行目录 () ＋ “\temp\临时照片.jpg”

.子程序 启动摄像头
.局部变量 计次, 整数型

.计次循环首 (视频设备1.来源总数, 计次)
视频设备1.当前来源 ＝ 计次
.计次循环尾 ()
.如果真 (视频设备1.预览 (真, 100) ＝ 假)
启动摄像头 ()

（邮件发送）
.版本 2
.支持库 EThread
.支持库 internet
.支持库 xplib

.程序集 窗口程序集1
.程序集变量 账户, 文本型
.程序集变量 主题, 文本型
.程序集变量 密码, 文本型
.程序集变量 邮件内容, 文本型

.子程序 _按钮1_被单击, , , 需要在QQ邮箱中账号中设置

.如果真 (编辑框账号.内容 ＝ “” 或 编辑框密码.内容 ＝ “”)
信息框 (“帐号密码不能为空”, 0, )
返回 ()
.如果真结束
.如果真 (接收邮件地址.内容 ＝ “”)
信息框 (“请设定群发目标起始号码”, 0, )
返回 ()
.如果真结束
账户 ＝ 编辑框账号.内容
密码 ＝ 编辑框密码.内容
主题 ＝ 编辑框主题.内容
邮件内容 ＝ 编辑框邮件内容.内容
接收方 ＝ 到整数 (接收邮件地址.内容)
启动线程 (&线程, , 句柄)

.子程序 线程
.局部变量 返回文本, 文本型
.局部变量 临时文本, 文本型
.局部变量 循环次数, 整数型

.如果 (连接发信服务器 (“smtp.qq.com”, , 账户, 密码, ))
返回文本 ＝ “连接发信服务器成功” ＋ #换行符
临时文本 ＝ 发送邮件 (主题, 邮件内容, 到文本 (接收方) ＋ “@QQ.com”, , , 账户 ＋ “@QQ.com”, )
.判断开始 (临时文本 ≠ “”)
返回文本 ＝ “发送失败：” ＋ 临时文本 ＋ #换行符
.默认
返回文本 ＝ “发送成功。” ＋ #换行符
.判断结束

.否则
返回文本 ＝ “连接发信服务器失败” ＋ #换行符
.如果结束
调试编辑框.内容 ＝ 返回文本
断开发信服务器 ()
关闭线程句柄 (句柄)

.子程序 __启动窗口_创建完毕

XP风格 (3)