如何实现音乐循环播放以及把音乐文件嵌入EXE文件里(100分)

L

lesser-panda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #1

如题所示。
我翻了一下旧贴，讲的不够详细
望高手指点。100分敬上

 

G

ggym

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #2

playsound（）

 

L

lesser-panda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #3

我知道是调用playsound()这个API函数
但是我不会呀，
尤其是我不想别人用我的音乐文件，想把音乐文件嵌入EXE文件里

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #4

加一个timer控件，事件代码如下：
if mediaplayer1.positon=mediaplayer1.max then

mediaplayer1.play;

至于嵌入音乐文件可以用资源文件代替

 

L

lesser-panda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #5

有这个语句吗？mediaplayer1.max

 

L

lesser-panda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #6

to cAkk, cheka
只能向你们求救了

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #7

改改：
是mediaplayer1.length不是max

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #8

还有个更简单的方法！
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin

if mediaplayer1.position=mediaplayer1.length then

mediaplayer1.play;
end;

 

L

lesser-panda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #9

那怎样添加到资源文件里？

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #10

作个1.rc的文件如下：
mywav WAVE happy.wav
用delphi自己带的brcc32编译格式如下：
c:/brcc32 1.rc
这样生成一个1.res资源文件！
播放时Playsound(pchar('mywav'),hinstance,sndsync or snd_resource);
注意要uses mmsystem
[]ok?

 

L

lesser-panda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #11

我有点明白了，等我搞成功我再发分
thank you

 

J

jomee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #12

学习。

 

L

lesser-panda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #13

谢谢，非常的感谢。100分收好 D影子D。以后还要问
播放列表的问题。暂时为止

 

L

lesser-panda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #14

多人接受答案了。

 

L

liu2909432

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-10

• #15

uses mmsystem;
......
....
.,...
...
Playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
不能播放啊！