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

自己组装一下来自两个程序。

（拍照）

.版本 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)

易语言编辑框/超级编辑框是无法放图片的。

单纯依靠易支持库超级编辑框是无法加入图片的，因为超级编辑框只提供了两种文本类型，一种是txt 记事本类型，别一种是rtf 写字板类型。所以编辑框更不可能放图片。

你可以试一下系统里的这两个文本编辑器，写字板可以加入图片，但必须加载外部程序才行，例如加入一张bmp图片，写字板可以选择先加载系统画图板，再调入图片到文本中。

如果你是想实现文本+图片或者再加多媒体类型混合文档编辑器的话，可选在易语言中添加一个WEB 2.0的支持库后，先在程序启动时，

控件.浏览 (空白页地址) ‘如果没有这句的话，图片无法显示出来

控件.编辑模式=真

再编写加放图片的代码，或用通用对话框来选择图片路径，或者直接给出直接路径

---