mciSendStringについて (ID:7448)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 コンポーネントではなくて単なるクラスでしたね。 付属のサンプルプロジェクトProject1.dprとしてクラスのプロパティやイベントを 使用したプレイヤーがあるようですのでこれを見ることをすすめます。 新規でプロジェクトを作って使用する場合は、そのプロジェクトで 使用しているフォルダにMidiPlayV.pasをコピーします。 他のファイルは不要のようです。 usesにMidiPlayVを追加 Form1のPrivate宣言で FMidi : TMidiPlayV; と宣言します。 フォーム生成イベントFormCreate内で procedure TForm1.FormCreate(Sender: TObject); begin FMidi := TMidiPlayV.Create(Self); end とクラスの実体を生成します。 付属サンプルファイルを読み込んで演奏までさせるには FMidi.LoadFromFile('VRAM01.mid'); // MIDIデータ読み込み FMidi.PlayDevices.Add(-1,True); // 使用MIDIポートはOSのデフォルト FMidi.Open(); // MIDIポートオープン FMidi.PlayMs := 0; // 演奏開始位置は先頭 FMidi.Play(); // 演奏開始 停止させるには FMidi.Stop(); のようです。 もちろん破棄イベントで procedure TForm1.FormDestroy(Sender: TObject); begin FMidi.Close; // MIDIポートを閉じる FMidi.Free; // 演奏クラス破棄 end; のように破棄する必要もあります。