Question

Delphi中WindowsMediaPlayer控件的使用方法

书上一直学习的是MediaPlayer的使用，却不会使用WindowsMediaPlayer控件（我明白怎么加入这个控件），希望能给我写个用WindowsMediaPlayer控件播放音乐的程序，大致让我明白文件的导入、打开、播放、停止等操作是怎么完成的。关键是想明白两点：用OpenDialog和WindowsMediaPlayer怎么打开音乐文件 和 用TrackBar调节音量的方法！

最好给我写个完整程序，简单点无所谓，只要让我明白操作过程，谢谢

Answer 1

procedure TForm1.OpenLocalClick(Sender: TObject);//打开本地文件
{var
X:String; }
begin
wmp.controls.stop ;
opend.Options:=[ofAllowMultiSelect];//允许多选
opend.FilterIndex :=8;
opend.Filter :='MidFile(*.mid)|*.mid|mp3File(*.mp3)|*.mp3|wmaFile(*.wma)|*.wma|FlvFile(*.flv)|'
+'*.flv|MpgFile(*.mpg)|*.mpg|AviFile(*.avi)|*.avi|rmFile(*rm)|*.rm|AllFile(*.*)|*.*';
if opend.Execute then
begin
wmp.URL :=opend.FileName;

//--------------------------------
{ x:=opend.FileName;
if x<>'' then
wmp.currentPlaylist.appendItem(wmp.newMedia(X) ) ;
}//加入到播放列表
//------------------------------------
listbox1.clear;
listbox1.items.assign(opend.files);
listbox1.itemindex:=0;
{ wmp.URL :=listbox1.items[listbox1.itemindex+1] }

end;

wmp.controls.stop ;
end;
procedure TForm1.IsPauseMenuClick(Sender: TObject); //暂停与播放
begin
if wmp.playState =2 then //暂停
wmp.controls.play
else if wmp.playState =3 then//正播放
wmp.controls.pause
else
wmp.controls.play;
end;

procedure TForm1.StopMenuClick(Sender: TObject); //停止
begin
wmp.controls.stop ;
end;

追问

谢谢，前面写的我明白了

能给个用TrackBar设置一个调节音量按钮的方法吗

追答

wmp.uiMode :='full' ; //显示带音量调节滑块的工具栏，无须TrackBar画蛇添足。

另外，若值为"none",音量滑块会隐藏。

追问

我想把整个WMP的界面都隐藏掉，全部用按钮滑块这种界面的做出来
帮忙给个方法，我会追加分数的

追答

[settings]播放器基本设置
settings.volume:integer; 音量，0-100
settings.autoStart:Boolean; 是否自动播放
settings.mute:Boolean; 是否静音
settings.playCount:integer; 播放次数
**************************************************
//在trackbar的change 事件中载入上述数值。并把其max属性设为100
wmp.settings.volume:=trackbar1.volume;

至于按钮界面，把上述菜单变为按钮事件应该不用说了吧。