mcisendString制作播放器
转载至:http://blog.csdn.net/clearver/article/details/5209244
做个mp3播放器,用realplay和WMP做出来的程序内存占用太大。
如果你仅仅是播放MP3,建议使用API函数mciSendString,我把该函数的详细资料罗列如下供你参考。
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias"mciSendStringA" (ByVal lpstrCommand As String,ByVal
lpstrReturnString As String, ByVal uReturnLength As Long, ByValhwndCallback As Long) As Long
mciSendString是用来播放多媒体文件的API指令,可以播放MPEG,AVI,WAV,MP3,等等,下面介绍
它的使用方法:
该函数有四个参数:
第一个参数:要发送的命令字符串。字符串结构是:[命令][设备别名][命令参数].
第二个参数:返回信息的缓冲区,为一指定了大小的字符串变量.
第三个参数:缓冲区的大小,就是字符变量的长度.
第四个参数:回调方式,一般设为零
返回值:函数执行成功返回零,否则返回错误代码
一、常用命令
1.打开(Open),格式:Open 设备名 [type 设备型式][alias 别名]
Dim mName as string
mName = "f://mpeg//mpeg1.avi"
mciSendString "open mName type MPEGVideo Alias movie parent %uStyle %u notify",0&, 0, 0
其中:
open 操作命令
mName 全路径文件名
type MPEGVideo是指打开MPEG,AVI等类型,如果不加这一句,就是打开WAV,MP3等
Alias movie 定义了该操作的别名为movie,后续操作只要指明别名即可
parent %u 源
Style %u 样式
notify 通知
2.播放(Play),格式:Play 设备名 [from 起点][to 终点]
mciSendString "play movie", 0&, 0,0
mciSendString "play movie fullscreen", 0&, 0, 0'全屏播放
3.暂停(Pause):
mciSendString "pause movie", 0&, 0, 0
4.继续(Resume):
mciSendString "resume movie", 0&, 0, 0
5.停止(Stop):
mciSendString "stop movie", 0&, 0, 0
6.关闭(Colse):
mciSendString "close movie", 0&, 0, 0
7.前进到下一个位置:
mciSendString "step movie", 0&, 0, 0
8.后退到上一个位置:
mciSendString "step movie reverse", 0&, 0, 0
9.前进或后退 N 個位置(其中 N<0 即表示后退)
mciSendString "step movie by " & str(N), 0&, 0,0
10.获取当前播放位置:
Dim ST As String*64
mciSendString "status movie position", st, len(st),0
11. 获取媒体的总长度:
mciSendString "status movie length", st, len(st),0
l=val(st) 'l就是所播放文件的长度
12.获取播放当前状态:
Dim ST As String*64
mciSendString "status movie mode", ST, Len(ST), 0
If Left(ST, 7) = "stopped" Then (处理代码) '播放完毕
13.循环播放:
mciSendString "play movie repeat", 0&, 0, 0
二、控制声音大小(1-1000):
Dim V As Long
mciSendString "status movie volume",&V, len(v), 0'V是获取的音量大小值。
V = 50
mciSendString "setaudio movie volume to 数值", 0, 0, 0'V是设置的音量值
三、设置播放位置.(需事先设定时间格式),格式:Seek 设备名 [to 位置 | to start | toend]
Dim P1 as Long, P2 as Long
P1 = 100: P2 = 3000
mciSendString "seek movie to ", P1, 0, 0'P1是当前起始位置,单位:毫秒
mciSendString "seek movie to start", 0&, 0, 0'定位到开头位置
mciSendString "play movie", 0&, 0, 0 '定位后再播放
或者:
mciSendString "play movie FROM P1 to P2",0&, 0, 0'P1是起始位置,P2是停止位置。单位:毫秒
mciSendString "seek movie to end", 0&, 0, 0'定位到最后位置
四、在指定控件上播放视频:
mciSendString "open AVI 文件名 parent hWnd style child", 0&, 0,0
其中,hWnd 是控件的句柄
执行上述命令之后,影片会被放置在控件的左上角,且影片的大小不受控件大小的影响,如果想要改变
影片播放的位置及大小,可以在執行 play 指令前先执行 put 指令,格式如下:
mcisendString "put AVI 文件名 window at X Y [Width Height]", 0&,0, 0
其中:X、Y为影片左上角坐标,Width、Height为影片的宽高度
五、如果播放视频还可控制亮度(1-2000)
Dim B As Long
mciSendString "status movie brightness", B, 0, 0'B是获取的亮度值。
B = 50
mciSendString "setvideo movie brightness to " & B, &0, 0, 0'B是设置的亮度值
六、录音设置:
录音前,用以下语句初始化
1.设为8位:
mciSendString "set wave bitpersample 8", "", 0, 0
2.设为11025Hz
mciSendString "set wave samplespersec 11025", "", 0,0
3.设为立体声:
mciSendString "set wave channels 2", "", 0, 0
4.实现PCM格式(不一定正确):
MCISENDSTRING "set wave format tag pcm","", 0, 0
5.开始录音:
mciSendString "close movie",0&,0,0
mciSendString "open new type WAVEAudio aliasmovie",0&,0,0
mciSendString "record movie",0&,0,0
6.保存录音到c:/123.wav
mciSendString "stop movie",0&,0,0
mciSendString "save movie C://123.wav",0&,0,0
mciSendString "close movie",0&,0,0
七、开关光驱:
mciSendString "set cdaudio door open", "", 0, 0'打开
mciSendString "set cdaudio door close", "", 0, 0'关闭
八、其它
1.设置设备的各种状态(Set)
Set alias_name[audio all off][audio all on][time formatms]:
Set命令用来设置设备的各种状态.如:静音,有声音,时间格式为毫秒等.
2.取得设备的状态(Status)
Status alias_name[length][mode][position]:
Status命令用来取得设备的状态.如:该媒体文件的长度,该媒体文件所处状态,该媒体文件的当前位置等.的长度,该媒体文件所处状态,该
媒体文件的当前位置等.
参考代码:
TCHAR fileName[]="D://俺的文档//my music//爷爷泡的茶.mp3";
TCHAR shortName[MAX_PATH];
GetShortPathName(fileName,shortName,sizeof(shortName)/sizeof(TCHAR));
TCHAR cmd[MAX_PATH+10];
wsprintf(cmd,"play %s",shortName);
mciSendString(cmd,"",NULL,NULL);
(调用mciSendString第一个参数传“play文件全路径”就可以,“文件全路径”最好传绝对路径,不建议wanghepeng10那样值传递文件名。
另外如果文件全路径中含有空格的话要使用GetShortPathName转换成短路径。)
mcisendString制作播放器相关推荐
- windows player![转载]C# axWindowsMediaPlayer制作播放器 winform
windows player![转载]C# axWindowsMediaPlayer制作播放器 日期:2011-08-16 06:31 来源:万卷楼主人王希杰 作者:优崽 windows player ...
- 推荐一个国外用Flex制作播放器的源码
最近一直在研究Flex技术,网上用到flex技术做的主要有flash播放器,在线录制,视频聊天,截图,上传等功能. 先看看它的界面,因为全是用actionscript3写出来的.界面是有点土,但核心的 ...
- Mplayer 嵌入Qt 窗口 制作播放器(嵌入方法)
众所周知 Mplayer 播放有 -wid + 窗口句柄 的指令,可以让Mplayer嵌入指定窗口播放. 因此只有利用该指令就可以让Mplayer在Qt指定的窗口或控件播放视频, 实现平台 Ubunt ...
- Flv网络播放器制作全攻略(续)
*****************************第一步:***************************** 如今,以flash player播放的流媒体flv文件越来越流行(PS:不 ...
- Flv网络播放器制作全攻略
如今,以flash player播放的流媒体flv文件越来越流行(PS:不知道是国内技术太落后,还是其他原因,还算不上常见),我们可以使用Flash当中自带的PlayBack组件来制作播放器.但是某些 ...
- Python制作一个多功能音乐播放器
文章目录 一.制作播放器的思路 二.制作播放器知识点和所需模块 三.播放器的代码展示 一.制作播放器的思路 制作一个多功能音乐播放器的思路 确定播放器的需求和功能,例如支持哪些音频格式.播放列表管理. ...
- vue+element制作音乐播放器播放进度条bug(鼠标拖拽slider滑块滑动到指定位置无效)
最开始bug还没解决时的效果图 bug解决后的效果图 项目场景: 想自己做一个基于vue仿网易云音乐的音乐网站,在制作播放器的时候用到了element ui里面的slider组件,制作完成后发现使用c ...
- 个人小作品之迷你音乐播放器(移动端)
关于viewport viewport是用户网页的可视区域,中文可称为"可视区". 手机浏览器是将页面放在一个虚拟的窗口(viewport)中,通常这个窗口比屏幕宽,这样就不用把每 ...
- C#简易播放器(WindowsMediaPlayer)
本文介绍一款使用C#制作的简易播放器,播放器使用WindowsMediaPlayer控件,十分便利,不足的是目前还没有找到自动播放下一首的办法,也可以使用NAudio包制作播放器,关于NAudio的简 ...
- CorelDRAW X3 流光溢彩的播放器(2)
2. 结合光影制作播放器按钮 (1)使用 "椭圆"工具绘制椭圆,填充为黑色,轮廓色为无,并调整其旋转角度,将其再制,接着调整副本图形大小.然后使用 "交互式填充" ...
最新文章
- 基础知识——测试代码(七)
- MATLAB实现批量处理图像图片的两种方法
- 用rvest包来抓取Google学术搜索数据
- Netweaver 服务器和客户端TLS版本号不匹配的解决方案
- .net开发是做什么的_软件开发是什么, 该怎么做?
- c语言程序设计答案万年历备忘录,基于JavaScript(网页脚本语言)编写的万年历(含源文件)...
- Mybatis 入门之resultMap与resultType讲解实例
- 漫步线性代数二十三——行列式公式
- 我的docker随笔9:docker在centos上的安装
- 蓝桥杯 ALGO-83 算法训练 阶乘 java版
- 适配器模式 - 上厕所案例
- 免费使用正版 IDEA
- 黑马程序员---初学java建议(亲身经历)
- python身份证号码共18位_用Python写一个身份证号码校验工具
- 一部保护基本权利的欧盟人工智能法:一份民间机构的声明
- 如何最快恢复逻辑备份
- 一次日语翻译的Chrome插件开发经历
- 数据库--mysql(SQL语句)
- 武汉大学测绘学院19级导航工程第三学期专业实习
- 音乐学院计算机考试内容,全国艺术院校(音乐类)专业设置及考试内容(8)
热门文章
- C语言——(乘法口诀表)
- U9二开之UBF配置和档案开发
- 01-简单的基于SVM的SAR海冰分离-Arcgis制作数据集标签
- stvd c语言编译器,STM8--STVD编译工具安装与程序下载
- c# winform h.265解码
- xise菜刀千万不要随便下载!(警惕!)
- 微信红包随机数字_微信红包随机算法初探
- 会声会影编辑html,网页视频制作使用会声会影剪辑
- matlab在图像两点连线,matlab画图,画出任意两点间的连线图,请高人帮忙呀,谢谢!谢谢!...
- 画法几何与工程制图2