MediaPlayerの使い方 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.
|