WindowsMediaPlayer ActiveXを使ってDVDを再生するには？ (ID:40293)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

報告です。
少し苦労しましたが、思いの外早く出来ました。
チャプター移動だけですが、
プリインストールMPEG2デコーダでも、ローテクで何とかなりました。
まだバグがあるかも知れませんが、取りあえず動きました。

取りあえず、これで解決とさせていただきます。
皆さんありがとうございましたｍ（＿＿）ｍ。

以下が、簡単な出来上がったサンプルです。

//DVD読み込み
procedure TForm1.Button1Click(Sender: TObject);
var
  c:char;
  s:string;
begin
  if not opendialog1.Execute then
    exit;
  s := opendialog1.FileName;
  c := s[1];
  DirectoryListBox1.Drive := c;
  DirectoryListBox1.Directory := ExtractFileDir(opendialog1.FileName);

WindowsMediaPlayer1.URL := opendialog1.FileName;
  WindowsMediaPlayer1.controls.play;
  caption := WindowsMediaPlayer1.currentMedia.sourceURL;

WindowsMediaPlayer1.controls.currentItem :=
  WindowsMediaPlayer1.currentPlaylist.Item[0];
  timer1.Enabled := true;
end;

//チャプター検索タイマー
procedure TForm1.Timer1Timer(Sender: TObject);
var
  s:string;
begin
  s := WindowsMediaPlayer1.currentMedia.sourceURL;
  if s[14] <> 'n'  then begin
    Button6Click(sender);
    timer1.Enabled := false;
  end;  
end;

//チャプター表示
procedure TForm1.Button6Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to WindowsMediaPlayer1.currentPlaylist.count do begin
    combobox1.Items.Add(
    Format('%3d %s', [i, WindowsMediaPlayer1.currentPlaylist.Item[i-1].name]));
  end;
end;

//チャプター移動
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  WindowsMediaPlayer1.controls.currentItem :=
  WindowsMediaPlayer1.currentPlaylist.Item[combobox1.Itemindex];
end;

←解決時は質問者本人がここをチェックしてください。

戻る