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

[北极海hein]

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

wmp.openPlayer('D:\101.avi');
end;

[GoldShield]

网上找一下吧.以前看到过多次,刚刚没找到

[jameslinye]

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

[北极海hein]

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;

[北极海hein]

我找到方法了,已OK.

wmp.URL:='D:\Oracle DBA\OCP_Video\1Z0-007\101.avi';
wmp.controls.play;