ＭＣＩを使う

　

　ＭＣＩを使うと簡単にサウンドや動画が扱えます。またメディアプレイヤーver.６をインストールすれば話題のＭＰ３も再生できるようになります。ここではmciSendString関数を使ってＭＣＩの活用の仕方を書いていこうと思います。
　まず関数の定義ですが
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
　次に各パラメータを説明します。
lpstrCommand MCIコマンド文字列
lpstrReturnString 戻り値（文字列）
uReturnLength 戻り値の長さを指定
hwndCallback コールバック関数

　使用例）

Dim strRC as String
Dim lngRC as Long
Dim strCommand as String

strRC=string(255,Chr(0))
strCommand="open c:\wave\rin.wav alias bgm"

lngRC=mciSendString(strCommand , "" , 0 , 0)

strCommand="status bgm mode"

lngRC=mciSendString(strCommand , strRC , len(strRC) , 0)
strRC=left(strRC,instr(1,strRC,Chr(0))-1)

Msgbox strRC

strCommand="close bgm"
lngRC=mciSendString(strCommand , "" , 0 , 0)

　コールバック関数については危険（？）であるためここでは解説いたしません。各自で調べてください。

戻る