鬱だ…
けっきょくストリーミングバッファの管理がめんどくなって
手抜きプログラムを作ってしまった。
あぁ、なんて憂鬱なんだ。。。
でもま、一応ちゃんと動くけどね。
中身はずいぶんと変わった。
『より難しい手段』で改造するつもりでいたけれど、
『より簡単な手段』で改造したことになる。
結果的には、WAVEだけじゃなくてmp3にも対応できたからいいけどね…。
今までの流れのついでで主要部分のソースを乗っけとくことにする。
大多数の一般ユーザー(主にハロプロネタ目当てで来た人)には関係のない話題だけどww
'参照名前空間の宣言
Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback
'定数とか定義してみた。
Private Const MAX_MEDIA_COUNT As Integer = 16
'配列化するクラスオブジェクトの種類を変更してみた。
Private _audio(MAX_MEDIA_COUNT - 1) As AudioVideoPlayback.Audio
'初期化フローはこんな感じで行う。
Dim waveSrc(MAX_MEDIA_COUNT - 1) As String
Try
' Audioの初期化
For n = 0 To MAX_MEDIA_COUNT - 1
If waveSrc(n) IsNot Nothing Then
Me._audio(n) = [Audio].FromFile(waveSrc(n), False)
End If
Next
Catch ex As DirectXException
' 失敗
MessageBox.Show(ex.ToString(), "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
'再生フローはこんな感じ。。。
For n = 0 To MAX_MEDIA_COUNT - 1
If Me._audio(n) IsNot Nothing Then
Me._audio(n).Stop()
Me._audio(n).StopWhenReady()
End If
Next
For n = 0 To MAX_MEDIA_COUNT - 1
If Me._audio(n) IsNot Nothing Then
Me._audio(n).Play()
End If
Next
ソレにしてもアレが気になる・・・
あぁ、やっぱ無理してでも横浜行けばよかったかなぁ…

最近のコメント