WAVの同時再生

解決

タメ子 2007-12-12 01:35:46 No: 138380

WindowsXP VB2005

SoundPlayerクラスのメソッドを利用してWAVファイルを再生させる
のですが、条件により２つのWAVを再生させたくて、以下のような
関数を作成しました。

Public Sub PlaySoundLoop(ByVal waveFile As String, ByRef player As SoundPlayer)

    ' 再生されているときは止める
    If Not (player Is Nothing) Then
        StopSound(player)
    End If

' 読み込む
player = New System.Media.SoundPlayer(waveFile)

' ループ再生
player.PlayLooping()

End Sub

player As SoundPlayer を呼び出し元で2個作成し、それぞれがこの関数
に来るのですが、

player.PlayLooping()

手前の' 再生されているときは止める処理では止まらないのですが、
ここで、先に流れている音が消えてしまいます。
PlayLoopingでは同時再生は不可能なのでしょうか？
それとも何か同時再生させる手段はありますでしょうか？

魔界の仮面弁士 2007-12-12 02:21:06 No: 138381

試してはいませんが、おそらくその方法だと、同時再生はできないと思います。

Windows Audio は、同時再生に対応していなかったと思いますので、
無理にやるならば、2 曲をミックスさせた wav を動的に生成して、
擬似再生することになりそうです。手間はかかるでしょうけれども。

今回の場合は、DirectSound を利用してみては如何でしょうか。
これならば、同時再生などにも対応しているかと思います。
http://sorceryforce.com/programing/mdx/
http://www.atelier-blue.com/program/mdirectx/index.htm

タメ子 2007-12-12 04:57:21 No: 138382

魔界の仮面弁士様

教えていただいた
http://sorceryforce.com/programing/mdx/
のサイトから同時再生のプログラムを作成することが
できました。
bufferを2つ用意し、

' WAV LOOP再生
Public Sub PlaySoundLoopDX(ByVal buffer As SecondaryBuffer)

' 再生位置を一番最初に設定
buffer.SetCurrentPosition(0)

' LOOP再生
buffer.Play(0, BufferPlayFlags.Looping)

End Sub

この関数を通すことで同時に再生する事ができました。
初期設定、その他も教えていただいたページのサンプルを利用しました。
音が２つ同時に鳴った時は感動しましたし、プログラムボリュームが
かなり小さいのにも驚きました。

まだまだ初心者です・・・。

ご教授ありがとうございました。