如何播放资源中的声音？ ( 积分: 50 )

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-28

• #1

资源文件：(SRKL.RES)
MyMp3 WAVE SRKL.MP3

然后这样
implementation
uses MMSystem;
{$R *.dfm}
{$R SRKL.RES}
procedure TForm1.Button2Click(Sender: TObject);
begin

PlaySound('MyMP3',HInstance,Snd_ASync or Snd_Memory or snd_Resource) ;
end;

没声音出来？

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-29

• #2

为何没人回答啊！

 

张

张辉明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-29

• #3

只能播放WAVE格式的，MP3不行吧

 

L

lxw5214

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-29

• #4

只支持WAV格式，MP3的不行

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-29

• #5

有没有支持MP3的，WAV文件有点大

 

风

风铃夜思雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-29

• #6

http://www.skygz.com/soft/wmaudio.rar

把wmaudio.dcu复制到你的工程目录中或复制到DELPHI的LIB目录中
uses wmaudio;

Var
Res: TResourceStream;
wm:Twmaudio;
begin

wm:=twmaudio.create(self);

Res := TResourceStream.Create(Instance, 'MyMp3', 'WAVE');
Try
wm.LoadFromStream(Res);
wm.play;
Finally
Res.Free;
end;
我这个支持WMA，MP3格式的

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-29

• #7

to 风铃夜思雨
出错！
[严重错误] USR.pas(8): File not found: 'WMF9.dcu'
是不是没有wmaudio.pas文件原因。

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-29

• #8

to 风铃夜思雨
在吗？

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #9

看来风铃夜思雨可能睡了，
明天再上来看！

 

风

风铃夜思雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #10

http://www.2ccc.com/go.asp?id=2843&url=http://mirror2.2ccc.com/downloads/vcl/component_packs/DSPACK_V233.zip再下载这个连接中的文件，里面有WMP9.pas

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #11

资源文件：(SRKL.RC)
MyMp3 WAVE SRKL.mp3
MyWMA WAVE SRKL.wma

procedure TForm1.Button2Click(Sender: TObject);
Var
Res: TResourceStream;
wm:Twmaudio;
begin

wm:=twmaudio.Create;
Res := TResourceStream.Create(HInstance, 'MyMp3', 'WAVE');
Try
wm.LoadFromStream(Res);
wm.play;
Finally
Res.Free;
end;

end;


procedure TForm1.Button1Click(Sender: TObject);
Var
Res: TResourceStream;
wm:Twmaudio;
begin

wm:=twmaudio.Create;
Res := TResourceStream.Create(HInstance, 'MyWMA', 'WAVE');
Try
wm.LoadFromStream(Res);
wm.play;
Finally
Res.Free;
end;

end;


为什么还是没有声音？

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #12

今天休息，沉下去我就顶上去。

 

风

风铃夜思雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #13

wm := TWMAudio.Create;
wm.Active := true;
请看我压缩包中提供的例子吧

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #14

to 风铃夜思雨
可以了，多谢你了。给你加分！