jMidiManager

type jMidiManager = class(jControl)

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Init; override;

  function jCreate;

  procedure jFree;

  function GetDeviceInfo();

  function GetDebug;

  function GetDeviceCount();

  function GetDeviceID;

  function OpenInput();

  function OpenOutput();

  procedure Close;

  function SendMidiMessage();

  function PlayChNoteVol();

  function SetChVol();

  function SetChPatch();

  function SetChPan();

  function SetChPitch();

  function SetChPitchCent();

  function GetStatus;

  function Flush;

  function AllNotesOff();

  function Start;

  function MyId;

  procedure GenEvent_OnOpened();

  procedure GenEvent_OnEvent();

  procedure GenEvent_OnMidiManagerDeviceAdded();

  procedure GenEvent_OnMidiManagerDeviceRemoved();

  function Active;

  property OnEvent: TMidiManagerEvent; [rw]

  property OpenDeviceId: Integer; [r]

  property OpenPortNumber: Integer; [r]

published

  property OnDeviceAdded: TOnMidiManagerDeviceAdded; [rw]

  property OnDeviceRemoved: TOnMidiManagerDeviceRemoved; [rw]

end;

jMidiManager

jControl

TObject