请online等高人出面！！！！把内存中的声音保存到磁盘上！！

Question

代码大致如下：
Dim br() As Byte
br = LoadResData("4a", "WAVE")
；；；；；
接下来怎么写！！

Answer 1

Dim br() As Byte
Dim FileNum As Integerbr = LoadResData("4a", "WAVE")    '并返回一个 Byte 数组
    FileNum = FreeFile
    Open "c:\test.wav" For Binary Access Write As #FileNum 注释：新建文件
        Put #FileNum, , br
    Close #FileNum

Answer 2

呵呵 楼上没有把 wav文件格式头写到文件里啊

Answer 3

online 大哥 你的方法好用！！
你看看这个我发了很长时间也没人答！！
dim a() Byte
a=.....
sndPlaySound a(0),,;如何知道播放到最后，然后开始下一个播放！！
 mciSendString 判断方法我知道！！sndPlaySound如何实现！！
还有用sndPlaySound 如何停止播放！