A
afst37
Unregistered / Unconfirmed
GUEST, unregistred user!
mp3用组件一下就搞定了，但播放表怎么做啊？
还有怎么用RM的Delphi组件？
还有怎么用RM的Delphi组件？
A
afst37
Unregistered / Unconfirmed
GUEST, unregistred user!
mp3用组件一下就搞定了，但播放表怎么做啊？
还有怎么用RM的Delphi组件？
还有怎么用RM的Delphi组件？
Y
yayongm
Unregistered / Unconfirmed
GUEST, unregistred user!
用FileList,会用吧？
或者用TStringList也行。
RM可以参考FR的中文说明。
或者用TStringList也行。
RM可以参考FR的中文说明。
F
farsail
Unregistered / Unconfirmed
GUEST, unregistred user!
先装好“RealPlayer ActiveX Control Library(Version 1.0)”控件
再在RealAudio组件的Controls属性中添加如下代码：
IMAGEWINDOW,CONTROLPANEL,STATUSBAR
播放表可以建个临时的RAM文件，把想要听的文件写进就行，如：
***** Create temp.ram ... *****
file://e:/我的音乐/Hotel California.rm
file://e:/我的音乐/快让我在雪地上撒点野.mp3
file://e:/我的音乐/招魂.rm
***** End temp.ram *****
(带*号的是无用的)
最后可以听了
RealAudio1.source := ‘temp.ram';
RealAudio1.doplay;
再在RealAudio组件的Controls属性中添加如下代码：
IMAGEWINDOW,CONTROLPANEL,STATUSBAR
播放表可以建个临时的RAM文件，把想要听的文件写进就行，如：
***** Create temp.ram ... *****
file://e:/我的音乐/Hotel California.rm
file://e:/我的音乐/快让我在雪地上撒点野.mp3
file://e:/我的音乐/招魂.rm
***** End temp.ram *****
(带*号的是无用的)
最后可以听了
RealAudio1.source := ‘temp.ram';
RealAudio1.doplay;
D
Dennis21
Unregistered / Unconfirmed
GUEST, unregistred user!
那如果要将播放列表保存，应该怎么做啊
F
farsail
Unregistered / Unconfirmed
GUEST, unregistred user!
上面不是建立了一个temp.ram文件吗？建好了不用删就行了。
A
afst37
Unregistered / Unconfirmed
GUEST, unregistred user!
但一个普通的播放表怎么做？
还有如果建个临时的RAM文件，怎么样做啊。有个简单的例子没有，我没有做出来！·
还有如果建个临时的RAM文件，怎么样做啊。有个简单的例子没有，我没有做出来！·
W
wzwcn
Unregistered / Unconfirmed
GUEST, unregistred user!
以前我用VB做过。delphi用个listbox就可以了，文件列表可以保存到文本文件或者INI文件中
F
farsail
Unregistered / Unconfirmed
GUEST, unregistred user!
毫无办法。
var
i, j: integer;
s: string;
fn: textfile;
begin
if opendialog1.Execute then
begin
assignfile(fn, 'temp.ram');
rewrite(fn);
try
for i := 0 to opendialog1.Files.Count-1do
begin
s := opendialog1.Files.Strings;
for j := 1 to length(s)do
if s[j] = '/' then
s[j] := '/';
writeln(fn, 'file://'+s);
end;
finally
closefile(fn);
end;
end;
end;
var
i, j: integer;
s: string;
fn: textfile;
begin
if opendialog1.Execute then
begin
assignfile(fn, 'temp.ram');
rewrite(fn);
try
for i := 0 to opendialog1.Files.Count-1do
begin
s := opendialog1.Files.Strings;
for j := 1 to length(s)do
if s[j] = '/' then
s[j] := '/';
writeln(fn, 'file://'+s);
end;
finally
closefile(fn);
end;
end;
end;
A
apacheii
Unregistered / Unconfirmed
GUEST, unregistred user!
listbox
A
apacheii
Unregistered / Unconfirmed
GUEST, unregistred user!
real你得在ActiveX控件里安装TREALAUDIO控件
点Component,Import ActiveX Control,找到Real Player ActiveX Control Library,安装即可。
点Component,Import ActiveX Control,找到Real Player ActiveX Control Library,安装即可。
A
afst37
Unregistered / Unconfirmed
GUEST, unregistred user!
安装RM的组件我还是知道的，就是不知道RM组件有些什么属性，和方法。
listbox 这个组件有没有更详细点的介绍啊。它是个什么类型的组件啊（自带的还是第3方控件），有些什么属性。
谢谢大家，我结帖的时候大家都会有分的，对我帮助大的当然就分多了。[
]
listbox 这个组件有没有更详细点的介绍啊。它是个什么类型的组件啊（自带的还是第3方控件），有些什么属性。
谢谢大家，我结帖的时候大家都会有分的，对我帮助大的当然就分多了。[
]
M
mykonica
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi自带的
类名是TListBox
类名是TListBox
A
apacheii
Unregistered / Unconfirmed
GUEST, unregistred user!
Real的属性你可以在安装好后自己在属性编辑器里看到，不过我觉得不太好用，比如关于它的默认菜单，前久有人问怎么替换掉Real控件的默认菜单，现在我用消息处理的方法完美的解决了这个问题
A
afst37
Unregistered / Unconfirmed
GUEST, unregistred user!
哦，我现在明白你的意思了，但如果我现在要保存两个播放列表，就不能够用这种方法了啊。
I
iamy
Unregistered / Unconfirmed
GUEST, unregistred user!
有很多标准列表文件
在winmap中将列表另存看看里面有什么文件
我想不起来了
在winmap中将列表另存看看里面有什么文件
我想不起来了
Y
yyz0832
Unregistered / Unconfirmed
GUEST, unregistred user!
用listbox可实现文件的打开与保存
歌曲列表的保存：
if savedialog1.execture then
listbox1.items.savetofile(savedialog1.filename);
歌曲列表的保存：
if savedialog1.execture then
listbox1.items.savetofile(savedialog1.filename);
A
afst37
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。