1

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)

しかし、これはメディア プレーヤー オブジェクトを表示し、ファイルを再生します。メディアプレーヤーではなく、自分のフォームで映画を見たいです。

何か案は？

4

3 に答える 3

0

Windows Media Player SDKを参照してください。特にDVD オブジェクトに注意を払う価値があるかもしれません。

于 2010-03-26T21:35:31.057 に答える
0

DVDがドライブDであると仮定して、Delphiで最終的に行う方法は次のとおりです。

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;

これが答えを探している他の人々に役立つことを願っています。

于 2011-09-27T07:34:42.777 に答える
0

次のように DVD にアクセスしてみましたか。

dvd://E:\

E:\DVD ドライブはコンピュータのどこにありますか?

于 2010-03-26T20:54:16.970 に答える