mciSendString是用来播放多媒体文件的API指令,可以播放MPEG,AVI,WAV,MP3,等等,下面我们来介绍一 下它的使用方法: 一,打开多媒体文件。 首先在Dialog上面放一个Picture控件,MCISendString就在这个Picture控件的平面上播放多媒体文件, 设Picture控件的ID为IDC_STATIC1: CStatic *pStatic=(CStatic*)GetDlgItem(IDC_STATIC1);HWND h=pStatic->GetSafeHwnd(); CString open1; char buf[256]; open1.Format("open f://mpeg//mpeg1.avi type MPEGVideo Alias movie parent %u Style %u notify", h,WS_CHILD); mciSendString(open1.GetBuffer(open1.GetLength()),buf,sizeof(buf),NULL); 这样F盘下面的mpeg目录下的mpeg1.avi就打开了,其中的type MPEGVideo是指打开MPEG,AVI等类型,如果不加 type MPEGVideo这一句,就是打开WAV,MP3等,Alias movie定义了mpeg1.avi的别名为movie,以后可以通过操 做movie就可以操作mpeg1.avi。 二,播放多媒体文件。 上面我们已经打开了f:"mpeg"mpeg1.avi,现在我们来播放它: mciSendString("play movie",buf,sizeof(buf),NULL); 如果想全屏播放: mciSendString("play movie fullscreen",buf,sizeof(buf),NULL); 三,暂停播放。 mciSendString("pause movie",buf,sizeof(buf),NULL); 四,停止播放。 mciSendString("close movie",buf,sizeof(buf),NULL); 五,得到所播放文件的长度。 char sPosition[256];long lLength; mciSendString("Status movie length", sPosition, 255,0);lLength=strtol(sPosition, NULL, 10); 其中lLength就是所播放文件的长度。 六,得到所播放文件的声音大小。 char chVolume[256];long lVolume;mciSendString("status movie volume",chVolume,255,0);lVolume=strtol(chVolume,NULL,10);其中lVolume就是所播放文件的声音大小。 七,到你指定的位置播放。 CString step1;long lPosition; lPosition=100; step1.Format("seek movie to %ld",lPosition); mciSendString(step1.GetBuffer(step1.GetLength()),buf,sizeof(buf),0);
其中lPosition就是要到的播放位置,可以由你指定。 ***************************************************************************************
做个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, ByVal hwndCallback 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 %u Style %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 | to end] 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 alias movie",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 format ms]: 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转换成短路径。)
|
|