制作RM播放器的问题!!(如何象winamp一样,打开一个里面含有RM格式的文件夹就能显示播放列表!)(100分)

S

suyude

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-13

• #1

各位大侠:
小弟要做一个象RM的播发器,但是不知道如何制作播放清单!(清单就象winamp的样子)
请帮忙
例如:
我"C:/电影"文件夹里面含有 a.rm;b.ram;c.rm;d.avi,e.mpg 的文件在里面!
RM支持 *.rm;*.ram;*.mpg
我要实现的是,用一个opendialog来检查"C:/电影"文件夹里面RM所支持的播放媒体!
当检测以后,清单将显示:
a.rm
b.ram
c.rm
e.mpg
因为RealPlay不支持播放avi,所以d.avi就不显示在清单中!
请问如何才能实现呢?

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-13

• #2

做好我也要，呵呵。不过要用mci才效果比较好。

 

P

Pan Ying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-13

• #3

如果你指的是opendialog，那不是它自己支持的。

 

S

suyude

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-13

• #4

那应该怎么样~
我刚才翻了点资料,好象要用到tlistbox来做列表的,但是我刚入们,所以不知道怎么做!

请大侠帮忙呀!!

谢谢

 

房

房客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-13

• #5

类似的有个http://jp.njuct.edu.cn/crystal/program_view.asp?id=38
代码opendialog中
设置filter属性

 

S

suyude

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-14

• #6

TO 房客
兄弟,你给我看的那个程序不错,但是没有源码,也没有播放列表啊~~~

我是要制作一个播放器可以将默认的播放格式在列表中显示啊~~~

还有其它办法吗?

 

S

shiner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-14

• #7

我给点意见,用打开目录的控件,选择一个目录打开,在程序中实现遍历当前打开的目录,将
RM支持的文件名加入listbox中.

 

E

eulb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-14

• #8

同意楼上的说法

 

S

suman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-14

• #9

用opendialog，设置filter属性，multiSelect设置为True，然后把返回的Files读到一个
ListBox中

 

P

pioneer_wk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-14

• #10

我也是新学，不过好象是
代码opendialog中设置filter属性

 

S

suyude

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-14

• #11

哪位兄台能提供一下简单的代码出来吗?

小弟愿意把分都给他~~~谢谢各位的答复!!

祝大家新年快乐

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-15

• #12

var
i,j:Integer
OpenDialog1:TOpenDialog;
.....
OpenDialog1.Filter:='';
OpenDialog1.Filter:='RM/MPG files (*.RM;*.Ram,*.Mpg)|*.RM;*.Ram;*.Mpg|All files (*.*)|*.*';
OpenDialog1.Options.Clear;
OpenDialog1.Options << ofFileMustExist << ofHideReadOnly << ofNoChangeDir<<ofAllowMultiSelect;

if (OpenDialog1.Execute) then

ListBox1.Items:=OpenDialog1.Files;
//当然你可以设置循环一条一条加
//其中listbox1是一个TListBox
//由于我这里没有delphi，所以到数第3句我不是很确定，但道理就这样，我不知道
//在delphi中的语法怎样，
具体的一些控制自己处理吧，给分吧
等我去给你回答另一张帖子