HSPTV!掲示板

HSPプログラムコンテストのhsptv部門でmidiの音の鳴るソフトを作ったのですが
HOMEボタンを押して戻り、他の音のなるソフトを起動させると音がなりません。

本来ならonexitで閉じるときmidiOutCloseで解放するようなことをするのですが
HOMEボタンは閉じるとは違うらしく、解放されません。

HOMEボタンを押されたなど、取得できるようにできないでしょうか？

報告ありがとうございます。
onexitを実行するようにしたつもりですが、少し調べてみたいと思います。
HOMEボタンを押されたことを取得する方法は、今のところありません。

No.72 R_Tryの作品ではHOMEでもどるとmidiは解放されてるようなので
こちらのバグかもしれません。

// winmm.dll
#uselib "winmm.dll"
#func midiOutOpen "midiOutOpen" var, int, int, int, int
#func midiOutShortMsg "midiOutShortMsg" int, int
#func midiOutClose "midiOutClose" var
// セットアップ
midiOutOpen midi, 0, 0, 0, 0
onexit *exit

*exit
// 使用終了
midiOutClose midi
end

midiの部分はだいたい、こんな感じです。

midiをcloseする前にstopしなきゃいけないとかじゃないですかね？
midiOutCloseの説明を読んだら
エラーコードの中にまだプレイ中だから閉じられないっていう意味のエラーがありました。

見当違いだったらごめんなさい。

R_TryでもMIDI開放に失敗していた時に同じ現象が
起きていましたが修正後には見た記憶がありません。
（記憶違いか遭遇していないだけかも･･･）

多分おちゃっこさんの指摘が正解でないかと思いますが
他の可能性としてあまり短いスパンで連続して同じ音を
発声させると不具合が出たりして？
（同時発音数を上回ってしまうとか）

stopは関係あるのかなあ、音が鳴り続けるわけでもないのでわかりません。

midiOutCloseの後に、戻り値をしらべるため、ダイアログでstatの値を表示させたのですが。
5 (MMSYSERR_INVALHANDLE)が返されてましたorz

他の作品では0 (MMSYSERR_NOERROR) が返されるようです（その作品もhspブラウザでHOMEボタンで戻ると音がならない）

#include "hsptv.as"を読み込み
HSPブラウザでテストすると、onexitで終了時にダイアログを表示させるようにしているのに
×ボタンを押してもダイアログがでないことも気になります。

>他の可能性としてあまり短いスパンで連続して同じ音を
>発声させると不具合が出たりして？
自分の作品では音を連続してださせてますが、No.130オニオン娘のメテオでは
単発で鳴らしてるので、違うんじゃないかと思います。

あ、midiOutCloseはvarじゃなくてintなのでは？
違うかな？？？

// winmm.dll
#uselib "winmm.dll"
#func midiOutOpen "midiOutOpen" int, int, int, int, int
#func midiOutShortMsg "midiOutShortMsg" int, int
#func midiOutClose "midiOutClose" int
// セットアップ
midiOutOpen varptr(midi), 0, 0, 0, 0
onexit *exit

修正したら、こうですね。

>#include "hsptv.as"を読み込み
>HSPブラウザでテストすると、onexitで終了時にダイアログを表示させるようにしているのに
>×ボタンを押してもダイアログがでないことも気になります。
少なくともテスト上では×ボタンを押してもonexit命令は効かないようです。
（テストではHOMEボタンはボタン自体が反応しないので確認できない…）
終了処理はモジュールのクリーンアップ機能で処理する方法もあります。

#include "hsptv.as"

#module
#deffunc save str c
	a = c + "で保存されたファイルです"
	bsave dir_cur + "/" + a + ".txt", a, strlen(a)
	return
#deffunc exit onexit
	save "モジュールのクリーンアップ機能"
	mes "cleanup de save!" : dialog "cleanup de save!"  ; この行は機能しないはず…
	return
#global

*start
	mes dir_cur
	onexit *bye
	stop

*bye
	save "onexit命令"
	mes "onexit de save!" : dialog "onexit de save!"
	end

通常だとonexit命令とクリーンアップ機能の両方が効きますが、
HSPTV上だとクリーンアップの方しか効きません。
しかもクリーンアップでは機能しないはずのmesやdialogが効いてしまいます。

もう解決していそうですが･･･

過去のMIDI音源を使ったHSPTV作品でも
同じ不具合は発生していないようなので
NO.35089の修正で多分解決できるのではないでしょうか？

ちなみにR_Tryの該当部分はこんな感じです。

#uselib "winmm"
#func midiOutOpen "midiOutOpen" var, int, nullptr, nullptr, nullptr
#func midiOutShortMsg "midiOutShortMsg" int, int
#func midiOutClose "midiOutClose" int

	midiOutOpen midi, 0
	onexit *exit
	stop  ;  ここにメインルーチン

*exit
	midiOutClose midi
	end

これでMMSYSERR_NOERRORが返っています。