易语言视频设备支持库源码（易语言支持库开发）
本文目录一览：
- 1、易语言视频播放源码
- 2、易语言如何写支持wma格式的播放器，源代码是什么？
- 3、求一个易语言网络视频播放器源码。
- 4、易语言视频播放器源码
- 5、易语言服务器端怎么连接客户端的摄像头！最好有一个简单的源码 就连接一个摄像头
易语言视频播放源码
楼上的貌似不对吧，楼主想要的是在易语言窗口中播放，而你是用了易语言的命令在外部打开播放的。。。首先你在易语言窗口处创建一个组建 是在外部组建里的 叫播放器
创建好这个组建后
---------------------------------------------源码分割线------------------------------------------------
.版本 2
.子程序 _按钮1_被单击
播放器1.地址 ＝ “你视频的播放地址”
-----------------------------------------------------------------------------------------------------------
你的视频播放地址是由你自己填写的，只要是视频格式
易语言如何写支持wma格式的播放器，源代码是什么？
msdn一下mciSendString参数一有说明的
mciSendString（“#MCI_OPEN”+字符（32）+FileName+字符（32）+“type”+字符（32）+#MCI_MPEGAUDIO+字符（32）+“Alias”+字符（32）+TAG+字符（32）+“parent”+字符（32）+到文本（hWnd）+字符（32）+#WS_CHILD，字符（#NULL），#NULL,#NULL）’打开媒体设备
mciSendString（#MCI_OPEN+字符（32）+TAG）‘播放音频文件
忠告：写程序一定要会调用API，抄袭别人的代码永远成不了一个程序员
求一个易语言网络视频播放器源码。
那你提供的那个网址必须是视频首地址。记住，是那种在浏览器中一打开就是直接播放视频的地址。否则，任何一种编程语言都是无法做到你说的这种直接放入网址即可播放。除非是在编写的时候写入了你网址的视频规则等，才能实现。
如果你的视频地址是那种一打开就播放的地址的话，就很简单了，用易语言的视频支持库即可。
易语言视频播放器源码
易语言的支持库例程里面有，具体打开易语言
如下：
.版本 2
.支持库 eMMedia
.支持库 iext2
.程序集 窗口程序集1
.子程序 _播放按钮_被单击
媒体播放1.播放 (-1)
媒体播放1.取长度 ()
.子程序 _暂停按钮_被单击
.如果 (媒体播放1.取状态 () ＝ 1)
媒体播放1.暂停 ()
.否则
媒体播放1.播放 (媒体播放1.取位置 ())
.如果结束
.子程序 _停止按钮_被单击
媒体播放1.停止 ()
.子程序 _打开_被选择
通用对话框1.过滤器 ＝ “媒体文件|*.wav;*.mid;*.avi;*.mpg;*.mp3;*.wmv;*.rm”
.如果真 (通用对话框1.打开 () ＝ 真)
媒体播放1.打开 (通用对话框1.文件名)
.如果 (媒体播放1.是否视频 () ＝ 真)
_启动窗口.标题 ＝ “视频文件”
.否则
_启动窗口.标题 ＝ “声音文件”
.如果结束
.如果真结束
.子程序 __启动窗口_创建完毕
播放按钮.图片 ＝ 取图片组图片 (#图片组, 0, 取默认底色 ())
暂停按钮.图片 ＝ 取图片组图片 (#图片组, 1, 取默认底色 ())
停止按钮.图片 ＝ 取图片组图片 (#图片组, 2, 取默认底色 ())
.子程序 _选择框1_被单击
.如果 (选择框1.选中 ＝ 真)
媒体播放1.置句柄 (分组框1.取窗口句柄 ())
.否则
媒体播放1.置句柄 (0)
.如果结束
.子程序 _媒体信息_被选择
.局部变量 信息文本, 文本型
信息文本 ＝ “比率:” ＋ 到文本 (媒体播放1.取比率 ()) ＋ #换行符 ＋ “总时间:” ＋ 到文本 (媒体播放1.取总时间 ()) ＋ #换行符 ＋ “长度:” ＋ 到文本 (媒体播放1.取长度 ()) ＋ #换行符 ＋ “播放位置:” ＋ 到文本 (媒体播放1.取位置 ()) ＋ #换行符 ＋ “MCI别名:” ＋ 媒体播放1.取别名 ()
信息框 (信息文本, 0, )
易语言服务器端怎么连接客户端的摄像头！最好有一个简单的源码 就连接一个摄像头
所用组件和支持库、变量：
一、接收端程序编写
1.支持库：视频聊天支持库
2.接送端全局变量及组件
全局变量 音频输出设备, 文本型
组件 多媒体播放器 说明：播放接收到的视频图像
组件 服务器 说明：接收视频数据
组件 时钟 说明：用于检测接收远程数据库速度
组件 标签 说明：显示接收远程数据数据速度
组件 窗口1 说明：设置输出音频
组件 多媒体设备枚举器 说明：获取音频设备
组件 组合框 说明：列出音频设备
3.接收视频窗口设置-启动窗口
4.启动窗口-窗口程序集代码
.版本 2
.支持库 eChat
.程序集 窗口程序集_启动窗口
.程序集变量 流量计数, 整数型
.子程序 __启动窗口_创建完毕
载入 (窗口1, , 真)
多媒体播放器1.设置视频输出窗口 ()
多媒体播放器1.设置音频输出设备 (音频输出设备)
多媒体播放器1.设置缓存时间 (1000, 3000)
多媒体播放器1.启动 ()
.子程序 _时钟1_周期事件
标签_流量.标题 ＝ “流量：” ＋ 到文本 (到整数 (流量计数 ÷ 1024)) ＋ “ KB/S”
流量计数 ＝ 0
.子程序 _服务器1_数据到达
.局部变量 远程视频数据, 字节集
远程视频数据 ＝ 服务器1.取回数据 ()
流量计数 ＝ 流量计数 ＋ 取字节集长度 (远程视频数据)
多媒体播放器1.追加字节集 (远程视频数据)
.子程序 __启动窗口_可否被关闭, 逻辑型
多媒体播放器1.停止 ()
5.窗口1设置
6.窗口1-窗口程序集代码
.版本 2
.支持库 eChat
.程序集 窗口程序集_窗口1
.程序集变量 音频输出设备数组, 音频输入设备, , "0"
.子程序 _窗口1_创建完毕
.局部变量 i, 整数型
音频输出设备数组 ＝ 多媒体设备枚举器1.取音频输入设备列表 ()
.计次循环首 (取数组成员数 (音频输出设备数组), i)
组合框1.加入项目 (音频输出设备数组 [i].设备名称, )
.计次循环尾 ()
组合框1.现行选中项 ＝ 0
.子程序 _按钮1_被单击
音频输出设备 ＝ 音频输出设备数组 [组合框1.现行选中项 ＋ 1].设备标识
销毁 ()
接收端设置完成。
二、发送端程序编写
1.支持库：视频聊天支持库
2.接送端全局变量及组件
全局变量 视频输入设备, 文本型 说明：设置用于发送视频的设备
全局变量 音频输入设备, 文本型 说明：设置用于发送音频的设备
组件 多媒体采集器 说明:用于采集视频和音频数据
组件 客户 说明:发送视频和音频数据
组件 标签 说明:用于显示相关说明提示.
组件 编辑框 说明:设置接收端的IP和端口
组件 选择框 说明：设置是否发送音频数据选项
3.启动窗口-发送端窗口设计
4.启动窗口-窗口程序集代码
.版本 2
.支持库 eChat
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
载入 (窗口1, , 真)
.子程序 _按钮1_被单击
.局部变量 帧率, 整数型
.如果 (客户1.连接 (编辑框_目标IP地址.内容, 到整数 (编辑框_目标端口.内容)))
.如果真 (多媒体采集器1.打开视频输入设备 (, , 320, 240, 320, 240) ＝ 假)
信息框 (“没有视频输入设备！”, 0, )
返回 ()
.如果真结束
帧率 ＝ 8
.如果真 (选择框1.选中)
多媒体采集器1.打开音频输入设备 (, 16000, 16, 1)
.如果真结束
多媒体采集器1.设置视频编码器参数 (0, 帧率, 帧率 × 2 － 1, 30, 46, 4, 7, 16, 0.6, 2)
.如果真 (选择框1.选中)
多媒体采集器1.设置音频编码器参数 (16000)
.如果真结束
多媒体采集器1.启动 ()
按钮1.禁止 ＝ 真
选择框1.禁止 ＝ 真
编辑框_目标IP地址.禁止 ＝ 真
编辑框_目标端口.禁止 ＝ 真
.否则
信息框 (“请先打开 [接收端] ！”, 0, “连接失败”)
.如果结束
.子程序 _多媒体采集器1_获得编码数据
.参数 数据地址, 整数型
.参数 数据长度, 整数型
客户1.发送数据 (指针到字节集 (数据地址, 数据长度))
.子程序 __启动窗口_可否被关闭, 逻辑型
多媒体采集器1.停止 ()
4.窗口1，设计
5.窗口-窗口程序集代码
.版本 2
.支持库 eChat
.程序集 窗口程序集2
.程序集变量 视频输入设备数组, 视频输入设备, , "0"
.程序集变量 音频输入设备数组, 音频输入设备, , "0"
.子程序 _窗口1_创建完毕
.局部变量 n, 整数型
视频输入设备数组 ＝ 多媒体设备枚举器1.取视频输入设备列表 ()
音频输入设备数组 ＝ 多媒体设备枚举器1.取音频输入设备列表 ()
.计次循环首 (取数组成员数 (视频输入设备数组), n)
组合框_视频输入.加入项目 (视频输入设备数组 [n].设备名称, )
.计次循环尾 ()
组合框_视频输入.现行选中项 ＝ 0
.计次循环首 (取数组成员数 (音频输入设备数组), n)
组合框_音频输入.加入项目 (音频输入设备数组 [n].设备名称, )
.计次循环尾 ()
组合框_音频输入.现行选中项 ＝ 0
.子程序 _按钮1_被单击
视频输入设备 ＝ 视频输入设备数组 [组合框_视频输入.现行选中项 ＋ 1].设备路径
音频输入设备 ＝ 音频输入设备数组 [组合框_音频输入.现行选中项 ＋ 1].设备标识
销毁 ()
发送端设置完成。
