Class TVSTModuleWithMidi

Unit

DVSTModuleWithMidi

Declaration

type TVSTModuleWithMidi = class(TCustomVSTModule)

Description

-$DEFINE Debug

Hierarchy

• TDataModule
• TBasicVSTModule
• TCustomVSTModule
• TVSTModuleWithMidi

Overview

Methods

	constructor Create(AOwner: TComponent); override;
	destructor Destroy; override;
	procedure HostCallProcess(const Inputs, Outputs: PPSingle; const SampleFrames: Integer); override;
	procedure HostCallProcessReplacing(const Inputs, Outputs: PPSingle; const SampleFrames: Integer); override;
	procedure HostCallProcessDoubleReplacing(const Inputs, Outputs: PPDouble; const SampleFrames: Integer); override;
	function HostCallProcessEvents(Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallGetCurrentMidiProgram (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	procedure MIDI_Out(b1, b2, b3, b4: byte; offset: Integer = 0);
	procedure MIDI_SendSysEx(Data: array of byte; offset: Integer = 0);
	procedure MIDI_CC(ch, num, val: Integer; offset: Integer = 0);
	procedure MIDI_ChannelAftertouch(ch, val: Integer; offset: Integer = 0);
	procedure MIDI_NoteOff(ch, note, val: Integer; offset: Integer = 0);
	procedure MIDI_NoteOn(ch, note, val: Integer; offset: Integer = 0);
	procedure MIDI_PitchBend(ch, val: Integer; offset: Integer = 0);
	procedure MIDI_PitchBend2(ch, x1, x2: Integer; offset: Integer = 0);
	procedure MIDI_PolyAftertouch(ch, note, val: Integer; offset: Integer = 0);
	procedure MIDI_ProgramChange(ch, val: Integer; offset: Integer = 0);

Properties

property OnProcessMidi: TProcessMidiEvent read fProcessMidi write fProcessMidi;

Description

Methods

	constructor Create(AOwner: TComponent); override;

	destructor Destroy; override;

	procedure HostCallProcess(const Inputs, Outputs: PPSingle; const SampleFrames: Integer); override;

	procedure HostCallProcessReplacing(const Inputs, Outputs: PPSingle; const SampleFrames: Integer); override;

	procedure HostCallProcessDoubleReplacing(const Inputs, Outputs: PPDouble; const SampleFrames: Integer); override;

	function HostCallProcessEvents(Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallGetCurrentMidiProgram (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	procedure MIDI_Out(b1, b2, b3, b4: byte; offset: Integer = 0);

	procedure MIDI_SendSysEx(Data: array of byte; offset: Integer = 0);

	procedure MIDI_CC(ch, num, val: Integer; offset: Integer = 0);

	procedure MIDI_ChannelAftertouch(ch, val: Integer; offset: Integer = 0);

	procedure MIDI_NoteOff(ch, note, val: Integer; offset: Integer = 0);

	procedure MIDI_NoteOn(ch, note, val: Integer; offset: Integer = 0);

	procedure MIDI_PitchBend(ch, val: Integer; offset: Integer = 0);

	procedure MIDI_PitchBend2(ch, x1, x2: Integer; offset: Integer = 0);

	procedure MIDI_PolyAftertouch(ch, note, val: Integer; offset: Integer = 0);

	procedure MIDI_ProgramChange(ch, val: Integer; offset: Integer = 0);

Properties

	property OnProcessMidi: TProcessMidiEvent read fProcessMidi write fProcessMidi;