mciSendString

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轉換成短路徑。）