关于 MpegPlay(0分)

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-26

• #1

在富翁上大家都说 MpegPlay　播放 Mp3　是最好的控件，但我下载下来作程序时，自带
的例子，总是说有一个 dll （哪个dll忘了）文件找不到，肯请大家告诉我这个控件怎么
用，或还有其它更好的控件，谢谢!
这个问题先不给分，问题结束后，我把我以前提的问题没答出来的给你们，大概100分

 

K

koko

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #2

下载的文件解压缩后，在目录中有一个mpegdll.dll文件，示例程序中mpegplayer 控件有一个

pathtodll属性，是设置mpegdll.dll文件的路径的，你可以设置为./(点加反斜杠,即当前路径),事

例程序就可以正确运行。当然也可以把mpegdll.dll文件拷贝到别的地方，只要pathtodll属性设置

为相应路径就可以了。

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-30

• #3

to koko:
这个控件是否播放多个文件，它的例子中的进程条控件能否改变进程，用哪个属性？
(一定给分)

 

K

koko

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-01

• #4

我不知道你说的“播放多个文件”是什么意思，是不是说播放多种类型的文件？据我尝试，
这个控件只能播放mp3，也可能可以播放mp2,mp1,但其他是不行的。
进程条控件可以改变进程，在这个控件的change事件中设置其value属性等于mpegplayer
控件的CurrentPosition（当前进度）值即可。具体可以看一看示例源代码中进程条控件的
change事件中的设置。

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-03

• #5

to koko:
多文件是指的是选中多个文件，播完一个播下一个，就像winamp 的 m3u做个列表

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-03

• #6

我的<a href="http://go.163.com/~windstorm2000/program/sonic312.zip">sonic mp3播放器</a>就是用该控件编写的。
你指的多文件播放和该控件没什么关系吧，主要是要你自已编程实现。
我的播放器不提供选择多个文件，但可以循环播放，播到最后一首后自动跳到第一首，而且
可以自动实时添加歌曲！自动就是你可以设定一个MP3歌曲目录，然后打开播放器，你只要往
把歌曲文件拷贝到这个目录中，播放器就会自动把它添加到歌曲列表中去，这可能是现有的
其它MP3播放器中都没有的功能吧。还有其它很多功能我就不多说了，你可以下载看看，该播放器
在各个软件仓库的下载量也还可以。

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-07

• #7

用它托运slider改变进度时，声音总是断断续续的？为什么？

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-09

• #8

就这一个问题，在它的例子中，我加了一句，用slider改变进度时，声音断断续续的？
为什么？

 

K

koko

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-12

• #9

当你用slider改变播放进度时，用的是onchange事件，这样和timer控件的事件有一些冲
突，解决的办法：
1.在文件头中声明一个变量vardo
ntseek :boolean;
2.在timer事件中加入该变量：
procedure TForm1.Timer1Timer(Sender: TObject);
//-------------------------
begin

do
ntseek:=true;
slider1.Value :=mpegplayer1.CurrentPosition;
do
ntseek:=false;
end;

3.在slider的onchange事件中使用该变量：
procedure TForm1.Slider1Change(Sender: TObject);//-------------------------
begin

if not (DontSeek) then

MpegPlayer1.CurrentPosition:=Slider1.Value;
end;

这样声音就可连续。

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-15

• #10

to koko:
用你这个方法，用鼠标拖动时声音暂停，能不能做到拖动时不暂停，拖动完毕，从当前
位置开始？

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-27

• #11

to koko:
你还能在进来帮我看一下吗？

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-04

• #12

to koko:
你到这来拿分吧！
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=184236
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=258112

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-08

• #13

to KOKO:
怎么拿分都不要？

 

C

cheka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #14

接受答案了.