掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MidiStreamを演奏するには？ (ID：13138)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>等としても、音がでません。 MIDIはPlaySoundでは再生できませんね． でしたら同じページのList7の様に，一度ファイルに書き出す方法では どうですか．例えば(ちょっと空しい... ) もし，見られるのが嫌だったら不可視にしてしまうとか... var RS:TResourceStream ; AFile: String; procedure TForm1.FormCreate(Sender: TObject); begin MediaPlayer1.Visible:=False; end; procedure TForm1.Button1Click(Sender: TObject); begin //一旦ファイルに保存 AFile:=ExtractFilePath(ParamStr(0))+'MyMIDI.mid'; RS := TResourceStream.Create(hInstance,'MySound','Midi'); try RS.SaveToFile(AFile); finally RS.Free; end; //演奏開始して終了したらファイルを削除 if FileExists(AFile) then begin MediaPlayer1.FileName:=AFile; MediaPlayer1.Open; MediaPlayer1.Play; end; end; procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin MediaPlayer1.Close; DeleteFile(AFile); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.