音を鳴らす

アプリケーションの中、音声を発生させたいときがあります。ここでは、MediaPlayerを使ってWAVファイルを再生する簡単なプログラムを作ってみます。

このプログラムではエディットボックス横のボタンでWAVファイルを選択してMediaPlayerの再生ボタンで音声を再生します。直接、エディットボックスにキーボードでファイル名を指定しても正常に動かないので注意願います。ボタンの代わりに、プログラムで再生するにはPlayメソッドを実行します。

ソース（青色部分が記述した部分です）

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MPlayer;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    txtFileName: TEdit;
    cmdBrowse: TButton;
    procedure cmdBrowseClick(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{
   Browse Button
   =============
}
procedure TForm1.cmdBrowseClick(Sender: TObject);
begin
    OpenDialog1.Filter := 'Wave Audio(*.wav)|*.wav|Other(*.*)|*.*';
    if OpenDialog1.Execute = True then
    begin
        txtFileName.Text := OpenDialog1.FileName;
        MediaPlayer1.FileName := OpenDialog1.FileName;
        MediaPlayer1.Open;
    end;
end;

end.