掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TWindowsMediaPlayerで個々のファイルを連続再生させるには (ID：33645)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いろいろ自分なりにやってみたのですが 演奏中ループで回してやると ＭＯＶ、音楽ＣＤのｃｄａもｗｍｖもｍｐｇもａｖｉファイルも 連続再生するのですが、 なにかスマートではない気がします。 なにか、アドバイスが有りましたら、教えてください。 procedure TForm1.WindowsMediaPlayer1PlayStateChange(Sender: TObject; NewState: Integer); begin if NewState = wmppsMediaEnded then PlayMode:=false; end; //開始番号を渡してやる procedure TForm1.MoviePlay(StartNo:integer); //ナビから投げられたか？ begin PlayListNo:=StartNo; while (PlayListNo < ListBox1.Items.Count) do begin WindowsMediaPlayer1.controls.stop; WindowsMediaPlayer1.currentPlaylist.clear; WindowsMediaPlayer1.URL:=ListBox1.Items.Strings[PlayListNo]; WindowsMediaPlayer1.controls.play; PlayMode:=true; while PlayMode do //演奏中ループで回す begin Application.ProcessMessages; Sleep(20); end; Inc(PlayListNo); if linksSkipFlag=1 then break; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.