在PowerBuilder应用程序中播放声音文件

在项目快要完成的前几天给你的软件加上一点声音，对提高应用程序界面将是一件十分有宜的事情！

在PowerBuilder应用程序中加入声音文件是十分容易的事情：只需要增加一个外部函数调用即可，播放wav声音文件的其中之一的函数是:

FUNCTION INT SndPlaySound(   '*.wav fn(STRING)', modeofplay(INT)) &

   library "mmsystem.dll"

在Win32系统下，需要使用另外一个DLL函数调用:

Function boolean sndPlaySoundA( &

   string SoundName, uint Flags ) Library "WINMM.DLL"

Function uint waveOutGetNumDevs() Library "WINMM.DLL"

使用以下的代码来播放声音文件:

uint lui_NumDevs

lui_NumDevs = WaveOutGetNumDevs()

IF lui_NewDevs > 0 THEN

    sndPlaySound( "filename.wav", modeofplay(INT) )

END IF

其中: modeofplay

            0 - 同步播放

            1 - 异步播放

            2 - 如果找不到声音文件，不使用缺省的声音文件

            3 - 第1项与第2项

            8 - 循环播放直到下一个sndPlaysound

            10- 不停止播放

返回值:

            0 出错（通常是文件没有找到）

            1 成功

上面的文件可以很好的播放声音，在Windows NT与Windows 95你还可能使用OLE来播放声音:

ole_snd.InsertFile("snd.wav")

ole_snd.Activate(InPlace!)