1.?易语言电语????Ե??Լ??Դ??
2.易语言服务器端怎么连接客户端的摄像头！最好有一个简单的脑监源码 就连接一个摄像头

?????Ե??Լ??Դ??

       月数不好定，因为每个月天数不一样。控源快乐垂钓代理源码算到天就行了。码易

       代码如下：

       .版本 2

       .支持库 spec

       .子程序 _按钮1_被单击

       .局部变量 运行时间,监控libinput源码 整数型, , , 毫秒

       运行时间 ＝ 取启动时间 ()

       调试输出 (取毫秒到天 (运行时间))

       .子程序 取毫秒到天, 文本型

       .参数 参_秒, 整数型

       .局部变量 参_秒, 整数型

       .局部变量 天, 整数型

       .局部变量 小时, 整数型

       .局部变量 分钟, 整数型

       .局部变量 秒, 整数型

       参_秒 ＝ 取启动时间 () ÷

       天 ＝ 参_秒 ÷ ÷ ÷

       小时 ＝ (参_秒 － 天 × × ) ÷

       分钟 ＝ (参_秒 － 天 × × － 小时 × ) ÷

       秒 ＝ 参_秒 ％

       返回 (到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “小时” ＋ 到文本 (分钟) ＋ “分钟” ＋ 到文本 (秒) ＋ “秒”)

易语言服务器端怎么连接客户端的摄像头！最好有一个简单的程序fydeos源码源码 就连接一个摄像头

一、易语言电语接收端程序编写

       1.支持库：视频聊天支持库

       2.接送端全局变量及组件

       全局变量 音频输出设备,脑监 文本型

       组件 多媒体播放器 说明：播放接收到的视频图像

       组件 服务器 说明：接收视频数据

       组件 时钟 说明：用于检测接收远程数据库速度

       组件 标签 说明：显示接收远程数据数据速度

       组件 窗口1 说明：设置输出音频

       组件 多媒体设备枚举器 说明：获取音频设备

       组件 组合框 说明：列出音频设备

       3.接收视频窗口设置-启动窗口                         

       4.启动窗口-窗口程序集代码

       .支持库 eChat

       .程序集 窗口程序集_启动窗口

       .程序集变量 流量计数, 整数型

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

       载入 (窗口1, , 真)

       多媒体播放器1.设置视频输出窗口 ()

       多媒体播放器1.设置音频输出设备 (音频输出设备)

       多媒体播放器1.设置缓存时间 (, )

       多媒体播放器1.启动 ()

       .子程序 _时钟1_周期事件

       标签_流量.标题 ＝ “流量：” ＋ 到文本 (到整数 (流量计数 ÷ )) ＋ “ KB/S”

       流量计数 ＝ 0

       .子程序 _服务器1_数据到达

       .局部变量 远程视频数据, 字节集

       远程视频数据 ＝ 服务器1.取回数据 ()

       流量计数 ＝ 流量计数 ＋ 取字节集长度 (远程视频数据)

       多媒体播放器1.追加字节集 (远程视频数据)

       .子程序 __启动窗口_可否被关闭, 逻辑型

       多媒体播放器1.停止 ()

       5.窗口1设置

       6.窗口1-窗口程序集代码

       .支持库 eChat

       .程序集 窗口程序集_窗口1

       .程序集变量 音频输出设备数组, 音频输入设备, , "0"

       .子程序 _窗口1_创建完毕

       .局部变量 i, 整数型

       音频输出设备数组 ＝ 多媒体设备枚举器1.取音频输入设备列表 ()

       .计次循环首 (取数组成员数 (音频输出设备数组), i)

           组合框1.加入项目 (音频输出设备数组 [i].设备名称, )

       .计次循环尾 ()

       组合框1.现行选中项 ＝ 0

       .子程序 _按钮1_被单击

       音频输出设备 ＝ 音频输出设备数组 [组合框1.现行选中项 ＋ 1].设备标识

       销毁 ()

       接收端设置完成。

二、控源发送端程序编写

       1.支持库：视频聊天支持库

       2.接送端全局变量及组件

       全局变量 视频输入设备,码易 文本型  说明：设置用于发送视频的设备

       全局变量 音频输入设备, 文本型 说明：设置用于发送音频的设备

       组件 多媒体采集器 说明:用于采集视频和音频数据

       组件 客户 说明:发送视频和音频数据

       组件 标签 说明:用于显示相关说明提示.

       组件 编辑框 说明:设置接收端的IP和端口

       组件 选择框 说明：设置是否发送音频数据选项

       3.启动窗口-发送端窗口设计

       4.启动窗口-窗口程序集代码

       .支持库 eChat

       .程序集 窗口程序集1

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

       载入 (窗口1, , 真)

       .子程序 _按钮1_被单击

       .局部变量 帧率, 整数型

       .如果 (客户1.连接 (编辑框_目标IP地址.内容, 到整数 (编辑框_目标端口.内容)))

           .如果真 (多媒体采集器1.打开视频输入设备 (, , , , , ) ＝ 假)

               信息框 (“没有视频输入设备！”,监控 0, )

               返回 ()

           .如果真结束

           帧率 ＝ 8

           .如果真 (选择框1.选中)

               多媒体采集器1.打开音频输入设备 (, , , 1)

           .如果真结束

           多媒体采集器1.设置视频编码器参数 (0, 帧率, 帧率 × 2 － 1, , , 4, 7, , 0.6, 2)

           .如果真 (选择框1.选中)

               多媒体采集器1.设置音频编码器参数 ()

           .如果真结束

           多媒体采集器1.启动 ()

           按钮1.禁止 ＝ 真

           选择框1.禁止 ＝ 真

           编辑框_目标IP地址.禁止 ＝ 真

           编辑框_目标端口.禁止 ＝ 真

       .否则

           信息框 (“请先打开 [接收端] ！”,程序 0, “连接失败”)

       .如果结束

       .子程序 _多媒体采集器1_获得编码数据

       .参数 数据地址, 整数型

       .参数 数据长度, 整数型

       客户1.发送数据 (指针到字节集 (数据地址, 数据长度))

       .子程序 __启动窗口_可否被关闭, 逻辑型

       多媒体采集器1.停止 ()

       4.窗口1，设计

       5.窗口-窗口程序集代码

       .支持库 eChat

       .程序集 窗口程序集2

       .程序集变量 视频输入设备数组,易语言电语crgwin源码 视频输入设备, , "0"

       .程序集变量 音频输入设备数组, 音频输入设备, , "0"

       .子程序 _窗口1_创建完毕

       .局部变量 n, 整数型

       视频输入设备数组 ＝ 多媒体设备枚举器1.取视频输入设备列表 ()

       音频输入设备数组 ＝ 多媒体设备枚举器1.取音频输入设备列表 ()

       .计次循环首 (取数组成员数 (视频输入设备数组), n)

           组合框_视频输入.加入项目 (视频输入设备数组 [n].设备名称, )

       .计次循环尾 ()

       组合框_视频输入.现行选中项 ＝ 0

       .计次循环首 (取数组成员数 (音频输入设备数组), n)

           组合框_音频输入.加入项目 (音频输入设备数组 [n].设备名称, )

       .计次循环尾 ()

       组合框_音频输入.现行选中项 ＝ 0

       .子程序 _按钮1_被单击

       视频输入设备 ＝ 视频输入设备数组 [组合框_视频输入.现行选中项 ＋ 1].设备路径

       音频输入设备 ＝ 音频输入设备数组 [组合框_音频输入.现行选中项 ＋ 1].设备标识

       销毁 ()

       发送端设置完成。