私はデルファイでアプリケーションを扱っています。アプリケーションから別のアプリケーションに出力を送信するには、 MIDIYOKEを使用する必要があります。2 つ目のアプリケーションは、バーチャル ピアノ キーボードです。
すべてのパッケージをインストールし、delphi で MIDI コンポーネントを取得しました。
MidiOutputPort1 および MidiInput1 コンポーネントを使用してみました。MIDIを弾いてみました。コードは以下の通りです。
procedure TForm3.Button1Click(Sender: TObject);
var
outputPort : TMidiOutputPort;
begin
outputPort := TMidiOutputPort.Create (Nil);
try
outputPort.PortId := -1;
outputPort.Active := True;
outputPort.PatchChange(0, 127, 0); // Gunshot
outputPort.NoteOn (1, 20, 127); // Play note at full volume
Sleep (1000);
outputPort.NoteOff (0, 60, 0);
finally
outputPort.Free
end
end;
アプリケーションとバーチャル ピアノ キーボード間の接続を確立したいと考えていました。2 つの間の接続に MidiOutputPort1 と MidiInput1 を使用する方法。