[ruby-list:44466] Re: win32-soundをApolloで使った時に起こるフリーズ

下田　純也と申します。
Rubyは好きですがDelphiの方が得意です。
１年以上ＲＯＭっていて
やっと投稿できそうな状況がきて嬉しいです。
皆様よろしくお願いします。

>な指示があるまでループで回して再生しようとしているのですが、一旦ループが実行されると、プログラムがフリーズしてしまい、指示を送るためのボタンのクリックができなくなります。ＷＡＶの代わりのビープ音を使っても同じことになります。
>  
>
ループってwhile文ですか？
それだとDelphiでも固まると思います。


>ＷＡＶファイルの代わりの文字列を出力し続けるループなら、フリーズせずにクリックできるので、Ｗｉｎ３２／ｓｏｕｎｄとＡｐｏｌｌｏの相性の問題だと思うのですが、原因、解決方法などをご存知の方はいらっしゃらないでしょうか？
>  
>
多分相性の問題ではありません。

ＷＡＶファイルを再生する時に
Sound.play('c:\WINDOWS\Media\tada.wav', Sound::ASYNC | Sound::LOOP);
で再生し（２番目の引数に注目）、
ボタンクリック時に
Sound.stop
すれば正しく動くと思います。

一応ソースを添付しておきます。
----------source start----------
require 'phi'
include Phi
require 'win32/sound'
include Win32

#Phi.debug = true
form = Phi::Form.new
i = Phi::Button.new form, :btn, 'hello'

Sound.play('c:\WINDOWS\Media\tada.wav', Sound::ASYNC | Sound::LOOP);

i.align = Phi::AL_CLIENT
def i.on_click
Sound.stop
end

form.show
Phi.mainloop
----------source end----------

以上
ご健闘をお祈りします。