音楽を鳴らしてみよう

ここでは音楽を再生する方法について説明します。実は音楽を再生する方法って結構あるんです。MCIコントロール、ActiveMovieコントロール、DirectX、WindowsAPI、ってな具合に。
私はmciSendStringが幅広く対応してる＆そこそこ使いやすいって理由でmciSendStringを使いました。
mciSendStringを使うって言ったけど、これがエラーになった時にどんなエラーかを取得するためにmciGetErrorStringってAPIも使います。
ではそれぞれの宣言を。

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

Private Declare Function mciGetErrorString Lib "winmm.dll" Alias _
　　　　　　　　　　　　　　　　"mciGetErrorStringA" _
　　　　　　　　　　　　　　　　( ByVal dwError As Long, _
　　　　　　　　　　　　　　　　ByVal lpstrBuffer As String, _
　　　　　　　　　　　　　　　　ByVal uLength As Long) As Long

じゃあ引数の説明をしていきます。
まずはmciSendStringから。
lpstrCommandはその名の通りコマンド文字列。あとでじっくり解説します。
lpstrReturnStringには情報が返されるバッファを指定します。
uReturnLengthはlpstrReturnStringのサイズです。
hwndCallbackはサブクラス化を行うときにコールバックするウィンドウのハンドルです。

次mciGetErrorStringいきます。
dwErrorはエラーナンバーを渡します。エラーナンバーはmciSendStringの戻り値を渡せばOKです。
lpstrBufferはエラー文字列が返されるバッファを指定します。
uLengthはlpstrBufferのサイズです。

それぞれの引数自体はあまり難しいものではないですね。
あとはmciSendStringに渡すlpstrCommandだけですね。
コマンド文字列には次のようなものがあります。
*まだまだありますが、私が使用しているのはこれくらいです。

open以降のエイリアス名はopenで設定したエイリアス名です。
また、ファイル名にスペースが入るなどした場合には""で囲わないとエラーとなります。いつでも""で囲うようにしたほうが良いでしょう。
また当然openしたデバイスはcloseしましょう。
たいした説明をしてないけどこれらのコマンド文字列を送るだけで音が鳴るようになります。
こんな事解りたくもない!!俺は音が鳴りゃあいいんだ!!って人や、この説明だけじゃ良くわかんないって人はMultiMediaクラスを使用すると良いかと思います。ファイル名を指定するだけでで再生できるようになります。