1,184
社区成员
发帖
与我相关
我的任务
分享问题不难,可我不会.
我用PLAYSOUND函数播放一个声音文件怎么没反应,哪位看看代码哪里有错.
procedure TForm1.Button1Click(Sender: TObject);
begin
S:=TMemoryStream.Create;
S.LoadFromFile('D:\1.WAV');
PlaySound(S.Memory,0,SND_MEMORY);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PlaySound(nil,0,0);
S.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
S:=TMemoryStream.Create;
S.LoadFromFile('D:\1.WAV');
PlaySound(S.Memory,0,SND_MEMORY);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PlaySound(nil,0,0);
S.Free;
end;
...全文
请发表友善的回复…
发表回复
fengyvn 2003-09-15
- 打赏
- 举报
顶.
bluecyclone 2003-09-14
- 打赏
- 举报
线程只能播放一两秒，是因为线程执行了PlaySound()后并不判断，是否有音乐播放！所以执行了PlaySound()后，线程就结束了！~
fengyvn 2003-09-14
- 打赏
- 举报
谢谢楼上的回答,还有一个问题.
如果用线程播放,只能放一两秒钟,怎么才能让这个线程一直播放下去?
如果用线程播放,只能放一两秒钟,怎么才能让这个线程一直播放下去?
fengyvn 2003-09-14
- 打赏
- 举报
那怎样让线程一直播放下去?
ly_liuyang 2003-09-12
- 打赏
- 举报
SndPlaySound使用参数SND_ASYNC
The sound is played asynchronously and the function returns immediately after beginning the sound. To terminate an asynchronously played sound, call sndPlaySound with lpszSoundName set to NULL.
The sound is played asynchronously and the function returns immediately after beginning the sound. To terminate an asynchronously played sound, call sndPlaySound with lpszSoundName set to NULL.
zousoft 2003-09-12
- 打赏
- 举报
笨办法，直接用delphi控件放音乐。
fengyvn 2003-09-11
- 打赏
- 举报
顶.
fengyvn 2003-09-10
- 打赏
- 举报
用什么办法可以实现?
wdong18 2003-09-09
- 打赏
- 举报
独占当然不能被停止了，就像死循环一样，Button的点击事件等等任何事件都不能响应。想暂停要另外想办法了。
fengyvn 2003-09-09
- 打赏
- 举报
自己顶.
fengyvn 2003-09-08
- 打赏
- 举报
用线程播放只能放一两秒钟,怎么才能让这个线程一直播放下去?
fengyvn 2003-09-06
- 打赏
- 举报
还在可以了.
BUTTON2中我是想停止播放.可是按键却没反应了.
怎样才能停止播放?
BUTTON2中我是想停止播放.可是按键却没反应了.
怎样才能停止播放?
kuan 2003-09-06
- 打赏
- 举报
你用线程来播放或加个timer
wdong18 2003-09-05
- 打赏
- 举报
我试了没什么错误啊，除非'D:\1.WAV'有问题。另外，我在playsound的时候，程序被独占。
你的Button2什么意思呢？
你的Button2什么意思呢？
fengyvn 2003-09-05
- 打赏
- 举报
顶.
fengyvn 2003-05-01
- 打赏
- 举报
自己顶.
fengyvn 2003-04-28
- 打赏
- 举报
没有人知道哪里错?
