如何使用windows media player播放 listbox中的内容(单曲,多曲循环播放) ( 积分: 200 )

D

dngjzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #1

如何使用windows media player播放 listbox中的内容(单曲,多曲循环播放)
listbox中的项全都是网络上的地址如:http://xxx.xxx.com/music/1.mp3

 

D

dngjzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #2

如何使用windows media player播放 listbox中的内容(单曲,多曲循环播放)
listbox中的项全都是网络上的地址如:http://xxx.xxx.com/music/1.mp3

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #3

WindowsMediaPlayer.currentPlayList.XXXXXXX
循环可以设置
WindowsMediaPlayer.settings.setMode方法。具体参看MSDN或者微软站点上WindowsMediaPlayer SDK

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #4

procedure TForm1.AddPlayFileToPlayList(const AFile: string;
IsUrl: Boolean = False);
var
ListItem: TListItem;
LyricFile: string;
currPlayList: IWMPPlaylist;
newMedia: IWMPMedia;
begin

ListItem := lvPlayList.Items.Add;
ListItem.ImageIndex := 0;
ListItem.Caption := ExtractFileName(AFile);
ListItem.SubItems.Add(AFile);
if not IsUrl then

begin

...
end;

if Player.currentPlaylist = nil then

begin

currPlayList := Player.newPlaylist('', '');
Player.currentPlaylist := currPlayList;
end;

newMedia := Player.newMedia(AFile);
Player.currentPlaylist.appendItem(newMedia);
Player.currentMedia := newMedia;
end;

 

D

dngjzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #5

[Error] Unit1.pas(426): Undeclared identifier: 'lvPlayList'

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #6

我真晕，这是我的控件名啊！难道你看不出他是一个TListView控件吗？再说，思路都在源码里面了，你自己看看麻。

 

D

dngjzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #7

不好意思啊,我超菜,
这个函数如何调用呢?
我现在有一大堆mp3文件的地址放在listbox1里面,界面上有一个Twindows media player1.0控件,我想实现这样的功能:
双击listbox1里的某一个地址就开始循环播放这个mp3
或者双击某一个地址后就从这个地址开始往下播放一直到listbox1的最后一条记录

多谢你的热心解答,近期放分

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #8

这个函数就这两行是关键的：
newMedia := Player.newMedia(AFile);
Player.currentPlaylist.appendItem(newMedia);

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #9

然后你Play就可以了。

 

D

dngjzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #10

zqw0117老大,可能是我太菜了,我不知道怎么运用您的代码,您能按我的要求帮我写一下吗?明天就给你200分 //我现在要下机了

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-23

• #11

放一个按钮，双击他，在OnClick里面写下面的代码：
var
NewMedia: IWMPMedia;
begin

NewMedia := WindowsMediaPlayer1.newMedia('c:/abc.wmv');
WindowsMediaPlayer1.currentPlayList.appendItem(NewMedia);
WindowsMediaPlayer1.controls.play;
end;

 

D

dngjzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-26

• #12

你的代码还是出错

 

D

dngjzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-26

• #13

多人接受答案了。