MediaPlayerの使い方
MediaPlayerを使うとAVIやWAVファイルを再生することができます。AVIを再生するにはAnimateコントロールも使用できます。AVIファイルを再生するとMediaPlayerのボタンの上に画像が表示されます。
マルチメディアファイルを再生するには
プログラムでマルチメディアファイルを再生する
MediaPlayerを非表示にしてWaveファイルなどを再生する例を示します。
準備(FormCreate)
MediaPlayerを表示したくないのでVisibleプロパティをfalseにしています。
再生(Button1Click)
ファイル名を設定してMediaPlayerを開き(Open)、Playメソッドを実行しています。
停止(Button2Click)
Stopメソッドを実行すると再生途中で中断できます。
再生終了通知(MediaPlayer1Notify)
再生が終了するとOnNotifyイベントが発生するので、Rewindメソッドで次の再生ができるようにします。
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MPlayer; type TForm1 = class(TForm) MediaPlayer1: TMediaPlayer; Button1: TButton; Button2: TButton; Edit1: TEdit; OpenDialog1: TOpenDialog; Button4: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure MediaPlayer1Notify(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} { On form create } procedure TForm1.FormCreate(Sender: TObject); begin MediaPlayer1.Visible := false; // Hide mediaplayer Button2.Enabled := false; // Stop button end; { Play button } procedure TForm1.Button1Click(Sender: TObject); begin with MediaPlayer1 do begin FileName := Edit1.Text; Open; Play; end; Button1.Enabled := false; // Play button Button2.Enabled := true; // Stop button end; { Stop button } procedure TForm1.Button2Click(Sender: TObject); begin with MediaPlayer1 do begin Stop; end; end; { Browse button } procedure TForm1.Button4Click(Sender: TObject); begin if OpenDialog1.Execute then begin Edit1.Text := OpenDialog1.FileName; end; end; { End of play } procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin Button1.Enabled := true; // Play button Button2.Enabled := false; // Stop button MediaPlayer1.Rewind; // for next play end; end. |