掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MediaplayerとTimerを使って動画ファイルを流すには？ (ID：32541)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たぶんこれでいけるはず var Video: Integer; procedure TForm1.Button1Click(Sender: TObject); begin MediaPlayer1.FileName := ExtractFilePath(application.ExeName)+'video'+IntToStr(video1)+'.wmv'; MediaPlayer1.Open; MediaPlayer1.Notify := True; MediaPlayer1.Play; end; procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin if (MediaPlayer1.DeviceID <> 0) and (Video < 6) then begin MediaPlayer1.FileName := ExtractFilePath(application.ExeName)+'video'+IntToStr(video1)+'.wmv'; MediaPlayer1.Open; MediaPlayer1.Play; Inc(Video); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.