如何使用wmp.dll播放DVD文件？

Question

我的VB6应用程序需要帮助。我有一个引用wmp.dll (Windows Media Player9OCX)的表单。我可以播放许多文件扩展名，如MPG，MPEG，AVI，QT和其他，但我想播放DVD文件。我使用以下代码：。

wmp.url = "D:\VIDEO_TS\VTS_01_0.VOB"

此命令适用于除DVD文件以外的所有文件。

我也尝试过使用：

commondialog1.showopen
wmp1.url=commondialog1.filename
wmp1.controls.play

这不管用。

唯一有效的函数是：

wmp1.showplayer(url as string)

但是这会显示媒体播放器对象，并播放文件。我想以我的形式看电影，而不是用mediaplayer。

有什么想法吗？

Answer 1

您是否尝试过像这样访问DVD：

dvd://E:\

E:\是您电脑上的光驱吗？

Answer 2

参见Windows Media Player SDK。特别是，可能值得关注DVD Object。

Answer 3

下面是我最终在Delphi中如何做到这一点，假设DVD是驱动器D：

wmp1.URL := 'wmpdvd://D';

下面是您浏览DVD播放列表URL的方法

procedure TForm1.ExploreDVD;
var
  i, j : Integer;
  cd: IWMPCdrom;
  pl: IWMPPlaylist;
begin
  for i := 0 to wmp1.cdromCollection.Count - 1 do
  begin
    cd := wmp1.cdromCollection.Item(i);
    pl := cd.Playlist;

    WriteLn( cd.driveSpecifier );
    WriteLn( pl.Name );
    for j := 0 to pl.count-1 do
      WriteLn(pl.Item[j].sourceURL);
  end;
end;

希望这对其他寻找答案的人有所帮助。