求delphi用TWindowsMediaPlayer做媒体播放器的代码

Question

本人刚接触delphi,不是很懂．
想做一个播放avi格式的播放器．
但在执行以下代码时老是出错．应该怎么写才对．
procedure TForm1.FormCreate(Sender: TObject);
begin
 
 wmp.openPlayer('D:\101.avi');
end;

Answer 1

mediaplayer1.filename:='D:\101.avi';
mediaplayer1.Open;
mediaplayer1.Play;

Answer 2

jameslinye() ;
   我用的是TWindowsMediaPlayer 9.0,这个控件没有你所说的这些方法呀.
   mediaplayer1.filename:='D:\101.avi';
mediaplayer1.Open;
mediaplayer1.Play;只有这两个方法,不知该怎么用才对.
function TWindowsMediaPlayer.newMedia(const bstrURL: WideString): IWMPMedia;
begin
  Result := DefaultInterface.newMedia(bstrURL);
end;procedure TWindowsMediaPlayer.openPlayer(const bstrURL: WideString);
begin
  DefaultInterface.openPlayer(bstrURL);
end;

Answer 3

我找到方法了,已OK.wmp.URL:='D:\Oracle DBA\OCP_Video\1Z0-007\101.avi';
 wmp.controls.play;