实现媒体文件列表自动播放(50分)

好

好好人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #1

预设计小工具功能：
1.管理本地及远程上的媒体文件；（实现较简单）
2.实现媒体文件列表中文件的连续播放，注意此工具不是媒体播放器！！
3.调用系统关联的程序进行连续播放。
注意不是设计媒体播放器！！！是媒体库管理！！

 

好

好好人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #2

请问富翁们如何实现，列表中的媒体文件调用播放器联系播放，而且播放器有可能不同！
谢谢大家先！

 

阿

阿艺

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #3

这里有好东东请自已看吧：http://lui2008.8u8.com

 

好

好好人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #4

to 楼上：搞什么啊！！！！
我是要解决Delphi问题啊！

 

S

shawn-yau

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #5

我以前做过，是用一个Timer监控当前播放文件的播放总长度和当前播放长度，如果播放
完毕就播放下一首，至于调用播放器可以直接用ShellExecute这个API，但值得注意的是
如果这样在调用不同的播放器时效果可能会很差，因为一个播放器启动是比较耗费资源的

 

好

好好人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #6

To shawn-yau:
有具体的例子吗？
比如有以下两个文件要播放
A.asf
B.rm
运行A.asf 调用MediaPlayer
播放完毕关闭MediaPlayer
运行B.rm调用RealPlayer
播放完毕后关闭
老兄可以实现吗？？

 

S

shawn-yau

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #7

我刚装了系统，你等一下，我写写看

 

好

好好人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #8

谢谢先！

 

S

shawn-yau

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #9

哦，你是调用外部播放器进行播放的，那代码太长了点，我说点基本思路吧：

打开文件的时候，用一个数组把各个文件的全路径保存起来，然后假设你开始播放第一首
媒体文件了，首先用TMediaPlayer把该媒体文件的播放长度获取到，并记录下播放开始的时间。
然后调用ShellExecute函数播放该文件，再用一个Timer进行不断的比较，当播放时间与记录
的开始播放时间相等则播放数组的第二个媒体文件。

关于如何用TMediaPlayer获取媒体文件的播放长度，可以阅读TMediaPlayer.TimeFormat
属性的帮助文档，里面有个例子，应该对你有帮助。

 

S

shawn-yau

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #10

如果有什么问题我们可以在QQ上探讨一下：
1689400

 

好

好好人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-24

• #11

大家在看看，是否有更好的更简便的方法呢!

 

陈

陈尚伟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #12

已经发送邮件给你了

 

好

好好人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #13

接受答案了.