PB 10.5 加入OLE windows media player后 如何写代码？

[wangcong0420]

想打开一个窗口后OLE windows media player 自动播放一个歌曲 播放一遍停止
请问代码写在哪里？写什么？ 歌曲格式是MP3
在线等 谢谢

[wangcong0420]

哪位高手给写一个啊 急用！

[wag_enu]

不清楚呢。。。
要查一下该OLE 的相关方法。。。

[gui41021]

如果只是想播放，试试这个

api声明：
Function uint waveOutGetNumDevs () Library "WINMM.DLL "
Function boolean sndPlaySoundA (string SoundName, uint Flags) Library "WINMM.DLL "

写函数：
function uf_playsound() 参数:ps_file string

uint lui_num,l_mode
string ls_rtn

l_mode = 0
lui_num = WaveOutGetNumDevs()
if lui_num > 0 then
sndPlaySoundA(ps_file,l_mode)
end if

[dahaidao]

pb的例程中好像有，好久不用，有点记不太清楚了。
用那个ole查看，可以看有什么函数可用，用什么属性可用，试一下吧。

[newease]

PB9版下载地址：http://d.download.csdn.net/down/1734161/newease

[gui41021]

顶~~~~~~~~~~·