Получить имена всех исходящих MIDI устройств

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure GetMIDIOutDevices(Devices: TStrings);
 var
   i, DNum: Integer;
   Caps: TMIDIOUTCAPSA;
 begin
   DNum := MIDIOutGetNumDevs;  // Number of Devices 
  for i := 0 to DNum - 1 do     // Query Devicenames 
  begin
     MIDIOutGetDevCaps(i, @Caps, SizeOf(TMIDIOutCapsA));
     Devices.Add(string(Caps.szPname));
   end;
 end;

 // Usage: 

var
   MIDIDevices: TStringList;

 begin
   MIDIDevices := TStringList.Create;
   try
     GetMIDIOutDevices(MIDIDevices);
     // Do anything with the device name list 
  finally
     MIDIDevices.Free;
   end;
 end;

Программный код на Delphi для извлечения и отображения списка доступных устройств вывода MIDI на системе.

Процедура GetMIDIOutDevices

Процедура принимает объект TStrings в качестве параметра, который будет хранить список имен устройств MIDI. Затем она использует две переменные: i (целочисленное значение) и DNum (целочисленное значение, которое хранит количество доступных устройств MIDI).

1. DNum := MIDIOutGetNumDevs;: эта строка извлекает общее количество доступных устройств вывода MIDI с помощью функции MIDIOutGetNumDevs.
2. Затем процедура проходит по каждому индексу устройства i от 0 до DNum - 1.
3. Внутри цикла вызывается функция MIDIOutGetDevCaps(i, @Caps, SizeOf(TMIDIOutCapsA));, которая извлекает информацию о текущем устройстве на индексе i. Функция заполняет структуру TMIDIOUTCAPSA подробными сведениями об устройстве.
4. Затем процедура добавляет имя устройства (хранящееся в поле Caps.szPname) в объект TStrings с помощью метода Add.

Пример использования

Пример использования демонстрирует, как вызвать процедуру GetMIDIOutDevices и хранить полученный список имен устройств MIDI в объекте TStringList, называемом MIDIDevices.

1. Создайте новый объект TStringList: MIDIDevices := TStringList.Create;
2. Вызовите процедуру GetMIDIOutDevices, передав объект MIDIDevices в качестве аргумента: GetMIDIOutDevices(MIDIDevices);
3. выполните любые желаемые действия с полученным списком имен устройств (например, отображение их в GUI).
4. Наконец, освободите объект TStringList с помощью метода Free, чтобы освободить системные ресурсы.

В целом, этот код предоставляет простой способ извлечения и отображения списка доступных устройств вывода MIDI на системе.

Получение имен всех исходящих MIDI устройств в Delphi выполнено с помощью процедуры GetMIDIOutDevices, которая использует функцию MIDIOutGetNumDevs для получения количества устройств и MIDIOutGetDevCaps для извлечения наименований.

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

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

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