谁知道Mpegplayer控件的详细使用方法?(100分)

北狼

Unregistered / Unconfirmed
GUEST, unregistred user!
最好能有Mpegplayer控件的各种属性的详细资料。
比如我现在最需要的就是如何获得Mpegplayer的当前状态(播放、停止、暂停)。
希望知道的大虾能告诉我。谢谢。
 
没人知道吗?我顶。
 
你用一个状态变量来判断啊,用一个枚举变量,比如你点了play后,这个枚举值就是 dtPlay,
 
我是在程序里用Mpegplayer.play来播放的.
Mpegplayer.mode有几种值?=1是什么意思?=2呢?3呢?
在线等回音.谢谢.
 
type TMPModes = (mpNotReady, mpStopped, mpPlaying, mpRecording, mpSeeking, mpPaused, mpOpen);

mpNotReady Not ready
mpStopped Stopped
mpPlaying Playing
mpRecording Recording
mpSeeking Seeking
mpPaused Paused
mpOpen Open
 
谢谢,有个这样的问题,有两首歌,用WINAMP都能播放,但用Mpegplayer控件播放,其中一
首能正常播放,另一首出现错误,提示:Incorrect mode 请问是怎么回事?
另外请问张无忌,你能给我个RAINXP免注册的控件吗?我原来有的,但硬盘出问题丢了。现在
下载了一个,一运行就弹出讨厌的注册窗口。谢谢。
 
我找找看,应该我有的,你的MAIL是?
 
我的也是没有注册的
 
liner_soft@sina.com
另外:有两首歌,用WINAMP都能播放,但用Mpegplayer控件播放,其中一
首能正常播放,另一首出现错误,提示:Incorrect mode 请问是怎么回事?
 
你装一个Mediaplayer7试试看
 
我电脑里已经装了Mediaplayer7,用它也能播放,但用Mpegplayer控件就提示:Incorrect mode;
RAINXP控件你已经找到了吗?
 
没找到,我前几天删掉了,而且我记的我也是没有注册的
 
哦,那用Mpegplayer控件播放就提示:Incorrect mode,该怎么解决?
 
你装上READPLAY.ocx,再用他来放MP3,应该没有问题
 
你帮我看一下如下代码有没有错:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (mpegplayer1.Mode=3) then
begin
progressbar1.Position:=MPEGPlayer1.CurrentPosition;
end;
if mpegplayer1.PlayStopped then
begin
if XP_CheckBox1.Checked then //单曲播放
begin
mpegplayer1.Play;
end
else
if XP_CheckBox2.Checked then //循环播放
begin
filelistbox1.ItemIndex:=filelistbox1.ItemIndex+1;
MPEGPlayer1.StreamName:=Filelistbox1.FileName;
MPEGPlayer1.Open;
Progressbar1.Position:=0;
ProgressBar1.Max:=MPEGPlayer1.length;
MPEGPlayer1.Play;
end;
end;
end;
 
我知道装READPLAY.ocx来播放MP3,可现在要求MP3必须用Mpegplayer控件播放啊.要不一个程序
里放两个控件来播放MP3?
 
加一个 Mpepplayer1.close;
if XP_CheckBox1.Checked then //单曲播放
begin
mpegplayer1.Play;
end
else
if XP_CheckBox2.Checked then //循环播放
begin
filelistbox1.ItemIndex:=filelistbox1.ItemIndex+1;
MPEGPlayer1.StreamName:=Filelistbox1.FileName;
MPEGPlayer1.Open;
Progressbar1.Position:=0;
ProgressBar1.Max:=MPEGPlayer1.length;
MPEGPlayer1.Play;
end;
 
现在要求MP3必须用Mpegplayer控件播放 ???
 
哦,谢谢,我试一下.还有,请问怎么得到FILELISTBOX中的选中的项目的名称?
 
FileListBox1.FileName
 
顶部