TVSTModuleWithMidi

type TVSTModuleWithMidi = class(TCustomVSTModule)

protected

  FVstEvents: TVstEvents;

  FOnProcessEvents: TProcessEvents;

  FOnProcessEvent: TProcessEvent;

  FOnProcessMidi: TProcessMidiEvent;

  FOnProcessMidiSysEx: TProcessMidiSysExEvent;

  procedure ProcessEvents(); virtual;

  procedure ProcessEvent(); virtual;

  procedure ProcessMidiEvent(); virtual;

  procedure ProcessMidiSysExEvent(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure HostCallProcess(); override;

  procedure HostCallProcess32Replacing(); override;

  procedure HostCallProcess64Replacing(); override;

  function HostCallProcessEvents(); override;

  function HostCallGetCurrentMidiProgram(); override;

  procedure MidiOut();

  procedure MidiSendSysEx();

  procedure MidiCC();

  procedure MidiChannelAftertouch();

  procedure MidiNoteOff();

  procedure MidiNoteOn();

  procedure MidiPitchBend();

  procedure MidiPitchBend2();

  procedure MidiPolyAftertouch();

  procedure MidiProgramChange();

  property OnProcessEvents: TProcessEvents; [rw]

  property OnProcessEvent: TProcessEvent; [rw]

  property OnProcessMidi: TProcessMidiEvent; [rw]

  property OnProcessMidiSysEx: TProcessMidiSysExEvent; [rw]

end;

TVSTModuleWithMidi

TCustomVSTModule

TBasicVSTModule

TObject