ＭＩＤＩファイルを再生する

MIDI、WAVEファイルを再生する

■使用するコンポーネント

Button1(再生)
Button2（一時停止）
Button3（停止）

■使用するAPI関数

mciSendString（デバイスにコマンド文字列を送る）

■コマンド文字列
　＊Flieの部分は自分で名前を決める

Open ファイル名 Alias File	ファイルを開く
Play File notify	演奏する
Play File　wait	演奏が終わるまで処理を渡さない
Pause File	演奏を一時停止
Close File	演奏を停止

■ソースは下記のようになります。

■C:\WINDOWS\MEDIA\Passport.midを再生する処理

//mciSendString関数をインポートする

Function mciSendString(lpstrCommand:
string; lpSectorsPerCluster : string ; uReturnLength : Integer; hwndCallback
: integer): integer;Stdcall;

external 'winmm.dll' Name 'mciSendStringA';



procedure TForm1.Button1Click(Sender: TObject);

begin



　//開く

　mciSendString('open ' + 'C:\WINDOWS\MEDIA\Passport.mid'
+ ' alias FILE', '', 0, 0) ;



　//演奏

　mciSendString('play FILE notify', '', 0, 0) ;



end;



procedure TForm1.Button2Click(Sender: TObject);

begin



　//一時停止

　mciSendString('Pause
FILE', '', 0, 0) ;



end;



procedure TForm1.Button3Click(Sender: TObject);

begin



　//停止

　mciSendString('close FILE',
'', 0, 0) ;

end;

Win32APIのページへ