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播放列表网址的方法

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;

希望这有助于其他人寻找答案。

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

3 个答案: