🚀 go-pugleaf

In article <6fd6jk$hpt$1@nn-os001.ocn.ad.jp>, tutomu wrote:
>済みませんがその次ですが、小生はSndPlaySound関数を用いようと思っていますが、
>その方向は間違いないでしょうか。

こちらに関しては、残念ながら分かりません。多くのソースでは、sndPlaySound 
関数ではなく、PlaySound 関数を使用しているようですが...。

>この時、定数SND_MEMORYの取り扱いと、さらには、メモリー上のどこにデータがある
>のかを、この関数に教えてやるには
>どうしたらよいのでしょうか。現在あれこれ試してみましたが埒があきません。よ
>かったらご教示下さい。

メモリー上のデータを、例えばバイト配列にコピーした後に、sndPlaySound 関数に
渡してやればよさそうな気がします。

Dim Bytes() As Byte
Dim I As Integer

Redim Bytes(UBound(buf)) 'buf は、前回のサンプルで値が設定されたものとします
For I = 0 To UBound(buf)
    Bytes(I) = buf(I)
Next

sndPlaySound Bytes(0), SND_MEMORY

ここで、sndPlaySound 関数の Declare 宣言において、第一引数は、
“Byref SoundName As Byte”などとしなければいけません。

-- 
Computer Institute of Japan, Ltd.
佐藤正宏 masahiro@cij.co.jp