音を鳴らす
アプリケーションの中、音声を発生させたいときがあります。ここでは、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.