HSPTV!掲示板

mmplay でmp3の曲を再生させますが、
再生が終了したときを、
stat　などで知る方法はないですか？

猛烈に裏ワザっぽいですが、
mmplayが内部でMCIが使われているのを利用してメッセージを受け取っています。
mmload のモードが1（指定したファイルは無限ループで再生を行う）でないと
メッセージが飛んでこないので注意が必要。
(2MB以下のWAVEファイルだとこの方法ではうまくいきませんので注意)

#define MM_MCINOTIFY    0x03B9
#define MCI_NOTIFY_SUCCESSFUL   1

	oncmd gosub *OnMciNotify, MM_MCINOTIFY

	dialog "wav;*.mid;*.mp3",16
	if stat == 0 : end
	filename = refstr

	mmload filename, 0, 1
	mmplay 0


stop

*OnMciNotify
	if wParam == MCI_NOTIFY_SUCCESSFUL {
		mmstop
		dialog "再生オワタ"
	}
return

すごいです。ただただすごいです。
なんやらわからへんけど、
すごく悩んだ末、簡単にできちゃって、？？？
とにかく、大感謝！

質問
mciコマンドの（open、play、stop、close）と

#define MM_MCINOTIFY 0x03B9
#define MCI_NOTIFY_SUCCESSFUL 1

の関係はどうなっているのですか？

解りやすくご教授ください。

HSPのmmloadの内部処理ではMCIが使われており、ファイルをオープンする際

"open ファイル名 alias myid"

のMCIのコマンドが使われています。

モード1を指定したmmplayの内部処理には、

"play myid from 0 notify"

のMCIのコマンドが使われています。
最後の "notify" がポイントで、これを指定すると
指定したコマンドの処理が終了した時、つまりこの場合再生終了時に
MM_MCINOTIFY というメッセージがHSPのウィンドウに飛んできます。
そのメッセージを捕まえるために

	oncmd gosub *OnMciNotify, MM_MCINOTIFY

というコードを書いています。
再生終了時に *OnMciNotify に飛んでくるので
wParamの値をチェックし MCI_NOTIFY_SUCCESSFUL であれば
先ほどの場合は停止してダイアログを表示させています。
wParamの値をチェックしているのは、
一時停止時にもメッセージが飛んでくる可能性があるためです。

やっていること自体は、
http://quasiquote.org/hspwiki?MCI%A4%C7%B7%AB%A4%EA%CA%D6%A4%B7%BA%C6%C0%B8
と同じです。

難しいけどなんとなく･･･
丁寧に有難うございました。