implementation
{$R *.dfm}
procedure CloseMidiDevice;far;external 'YHMidiSystem.dll';
procedure LoadMidiDevice;far;external 'YHMidiSystem.dll';
procedure NoteOn(channel,volume,notanum:byte);far;external 'YHMidiSystem.dll';
procedure NoteOff(channel,volume,notanum:byte);far;external 'YHMidiSystem.dll';
procedure ChangeInstrument(instNo:byte);far;external 'YHMidiSystem.dll';
procedure AllNotesOff;far;external 'YHMidiSystem.dll';
procedure Modulasyon(Enable:Boolean);far;external 'YHMidiSystem.dll';
function NoteName:string;far;external 'YHMidiSystem.dll';
procedure ChannelTranspose(value:byte);far;external 'YHMidiSystem.dll';
procedure PlayDrumNote(Note,Volum:byte);far;external 'YHMidiSystem.dll';
{$R *.dfm}
procedure CloseMidiDevice;far;external 'YHMidiSystem.dll';
procedure LoadMidiDevice;far;external 'YHMidiSystem.dll';
procedure NoteOn(channel,volume,notanum:byte);far;external 'YHMidiSystem.dll';
procedure NoteOff(channel,volume,notanum:byte);far;external 'YHMidiSystem.dll';
procedure ChangeInstrument(instNo:byte);far;external 'YHMidiSystem.dll';
procedure AllNotesOff;far;external 'YHMidiSystem.dll';
procedure Modulasyon(Enable:Boolean);far;external 'YHMidiSystem.dll';
function NoteName:string;far;external 'YHMidiSystem.dll';
procedure ChannelTranspose(value:byte);far;external 'YHMidiSystem.dll';
procedure PlayDrumNote(Note,Volum:byte);far;external 'YHMidiSystem.dll';
я уже наверное задолбал с кучей своих вопросов-----------------------------------------------------------------------------------------------------------------------
Знаю что процедуры нужно объявлять в паблике, но вот что делать с типами не могу сообразить и вообще стоит типы создавать или нет. Простая загрузка dll ничего не дала, тут я зашёл в тупик (как же ей тогда управлять), последнее что осталось эти строчки с процедурами, но если допустим код заинлайнить то получается что и управление будет идти через inline вставку, как же тогда подгружать dll??? С помощью CallDLL или DynamicHiDLL?
Поиск
Друзья
Администрация