2010-03-26 33 views
1

我需要帮助我的VB6应用程序。我有一个引用wmp.dll的窗体(Windows Media Player 9 ocx)。我可以播放许多文件扩展名,如Mpg MPEG,AVI,QT和其他,但我想播放DVD文件。我使用下面的代码:如何使用wmp.dll播放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) 

但是这显示了媒体播放器对象,并播放文件。我想在我的表单中看到不在媒体播放器中的电影。

有些身体可以帮助我吗? 非常感谢。

(我来自阿根廷少说话英语,所以请原谅我的一切。)

+0

@ Ramses1974:欢迎来到Stack Overflow。我做了一些编辑尝试让您的文章更具可读性。我不认为我改变了任何意义。如果我这样做,请随时将其改回。希望对此有更多了解的人能够帮助你。祝你好运! – 2010-03-26 21:02:12

回答

0

你试过访问这样的DVD:

dvd://E:\ 

E:\是在DVD驱动器电脑?

0

下面是我最后做,在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; 

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