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

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

iwhp

Unregistered / Unconfirmed
GUEST, unregistred user!
用打开多文件的方式 播放器只能播放一首歌,怎样才能实现多曲播放,就是放完第一首歌曲后接着自动
播放第二首?
 
在内存保存一个要打开的文件名列表，然后在每个文件放完后打开下一个文件播放。
 
像上面Allen说的，保存个文件名列表，然后在
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
中写播放下一首
 
agree
 
把选中的文件名添加到一个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

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
S
请问如何实现播放完后一首歌曲后自动播放下一首(50分)
回复
4
查看
528
shell~
S
K
一个关于realplay播放器的问题(50分)
回复
7
查看
252
kenneth
K
B
我把自己的FLASH播放器注册为系统默认的播放器，怎么才能当在播放一个flash时，双击另一个flash不打开另一个播放器，而是在第一个播放器播放(0分)
回复
13
查看
195
birch2002
B
煽
怎样实现多媒体控件的多曲播放??(0分)
回复
9
查看
190
lk628025
L
后退
顶部