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

Question

我需要有关VB6应用程序的帮助。我有一个引用wmp.dll的表格（Windows Media Player 9 OCX）。我可以播放许多文件扩展名，例如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)

但是这将显示媒体播放器对象，并播放文件。我想在媒体播放器中而不是在我的形式中查看电影。

有什么想法吗？

Answer 1

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

dvd://E:\

[DVD驱动器在计算机上的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;

希望这可以帮助其他人寻找答案。