vb6 - 如何使用 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:\

E:\您计算机上的 DVD 驱动器在哪里？

Answer 2

Here is how I finally do it in Delphi, supposed the DVD is the drive D:

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

and here is how you explore the DVD playlist 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;

Hope this helps other people looking for the answer.

Answer 3

请参阅Windows Media Player SDK。尤其值得关注DVD Object。