用打开多文件的方式 播放器只能播放一首歌,怎样才能实现多曲播放,就是放完第一首歌曲后接着自动(200分)

  • 主题发起人 主题发起人 iwhp
  • 开始时间 开始时间
I

iwhp

Unregistered / Unconfirmed
GUEST, unregistred user!
用打开多文件的方式 播放器只能播放一首歌,怎样才能实现多曲播放,就是放完第一首歌曲后接着自动
播放第二首?
 
在内存保存一个要打开的文件名列表,然后在每个文件放完后打开下一个文件播放。
 
像上面Allen说的,保存个文件名列表,然后在
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
中写播放下一首
 
把选中的文件名添加到一个listbox中, 然后依次读取文件名播放,还可以做成random
播放
 
不是那么简单,要是中间按了一些按钮,procedure TForm1.MediaPlayer1Notify(Sender: TObject);
事件会提前响应!你试试看!我这儿倒是有个做好的例子,有兴趣可以拿去看看!白送!
 
Notify
do something
 
Tstringlist
好东西
 
勇敢者兄,你的例子在哪啊?我很想要啊,麻烦 Kellogg@21cn.com[:)]
 
做一个m3u文件,包含所有的文件路径,用播放器放这个m3u文件最简单[:D]
 
同意楼上的意见,但我还未做过。[:D]
 
保存在Tstringlist
 
procedure TPlayForm.MediaPlayer1Notify(Sender: TObject);
begin

With MediaPlayer1do

begin

if Notify and (Mode=mpStopped) then

begin

Inc(I);
// I 为全局变量
if I > ListBox1.Items.Count then

I := 1;
FileName := ListBox1.Items.Strings;
// ListBox1 中存的是文件名
Open;
Play;
Notify:=True;
end;

end;

end;

 
我在使用notify时总是发现不尽人意,我就使用时钟,呵呵,边显示时间便检测stop状态和播放列表
:)
 
将文件名保存在一个列表中,如ListBox1,再添加一个定时器如Timer1,
让它控制当这一首播放结束后,转去播放下一首,或随机选一首播放。
 
to 勇敢者:
我要一份源代码!
 
在 ID:757826帖子里有一份我做的播放器的核心代码,相信可以回答你的问题
 
使用NOTIFY,确实能连续播放但是衔接的不连贯,也就是说在播下一个之前中间有明显的停顿。
我已经写了个程序是连续播放MPG的,就存在这个问题(停顿)。
我想连续播放就象电视节目中间没有停顿,或者几乎肉眼感觉不出停顿。
有谁能帮我,谢谢!



 
各位英雄!请提供个FFT转换的例子或者是/////。。。。。。。。。。。。。。。。。。。。。。。。。。。。
最好了,要不然,我怎么样入手呀,,,
问题地址是:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1097282
我已经把WAV格式的文件结构分析得十分清楚,但是应用时就会有各种问题,,
就是我说的频谱分析,,,傅利叶 ----》转换怎么样做呢???
还要我在打印(屏幕)输出一个波形文件时,速度慢(BCB/DELPHI中的CAVANC画布)
怎么样解决它呢????

这样是不能够完成实时显示的需要的,我手里还有个几千分,如果大佬你有诚意说明给我这个
东西怎么样搞,,,分数好商量!!!!!!

QQ:65466700
MAIL: Along@IT-Town.com
 

Similar threads

后退
顶部