Как играть MIDI без медиаплеера

Delphi , Мультимедиа , Видео

Автор: http://www.swissdelphicenter.ch

uses
  MMSystem;

// Play Midi

procedure TForm1.Button1Click;
const
  FileName = 'C:\YourFile.mid';
begin
  MCISendString(PChar('play ' + FileName), nil, 0, 0);
end;

// Stop Midi

procedure TForm1.Button1Click;
const
  FileName = 'C:\YourFile.mid';
begin
  MCISendString(PChar('stop ' + FileName), nil, 0, 0);
end;

Here's a translation of the content into Russian:

Похоже, вы пытаетесь запустить и остановить файл MIDI с помощью единицы MMSystem в Delphi. Однако, у вашего кода есть некоторые проблемы.

Сначала, процедура Button1Click объявлена дважды, что вызовет ошибку компилятора. Вы можете объединить эти процедуры или переименовать их, чтобы избежать конфликта.

Вторично, вы пытаетесь запустить и остановить файл MIDI с помощью функции MCISendString, но эта функция используется для отправки команд в устройство контроля медиа (MCI), а не для прямого запуска или остановки файла MIDI.

Чтобы запустить файл MIDI без использования медиаплеера, вы можете использовать функцию Windows API midiOutOpen, midiOutClose, midiOutReset и midiOutWriteFunc. Вот пример, как это можно сделать:

uses
  MMSystem;

const
  FileName = 'C:\ВашФайл.mid';
  MIDI_PORT = 0; // Default MIDI port

var
  hMIDI: HMIDIOUT;
  midiBuf: TMIDIHDR;

begin
   // Откройте устройство MIDI
  if midiOutOpen(hMIDI, MIDI_PORT, 0, 0, CALLBACK_NULL) <> MMSYSERR_NOERROR then
    RaiseLastOSError;

  try
     // Загрузите файл MIDI
    midiBuf.lpData := PChar(FileName);
    midiBuf.dwBufferLength := Length(FileName);
    midiBuf.dwFlags := MIDIFILE_OPEN or MIDIFILE_LOAD;
    midiOutOpen(hMIDI, MIDI_PORT, @midiBuf, 0, CALLBACK_NULL);

     // Запустите файл MIDI
    if midiOutWrite(hMIDI, @midiBuf, sizeof(midiBuf)) <> MMSYSERR_NOERROR then
      RaiseLastOSError;

     // Остановите файл MIDI
    midiBuf.dwFlags := MIDIFILE_STOP;
    midiOutWrite(hMIDI, @midiBuf, sizeof(midiBuf));
  finally
     // Закройте устройство MIDI
    midiOutClose(hMIDI);
  end;
end.

Код открывает устройство MIDI, загружает и запускает файл MIDI, а затем останавливает его. Обратите внимание, что вам нужно заменить 'C:\ВашФайл.mid' на реальный путь вашего файла MIDI.

Также пожалуйста, отметьте, что это только пример и может не работать в вашем приложении Delphi без изменений.

В статье описывается способ воспроизведения MIDI-файлов на компьютере без использования медиаплеера, используя код на языке Delphi и библиотеку MMSystem.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Видео ::