Программирование на Delphi и не только

скачать примеры  к статье (плагины + исходники на Delphi)

Работать с плеером Winamp мы научились в статье Управление Winamp. Теперь перейдем к разработке плагинов для него.
Плагины к Winamp бывают пяти видов:

1. Input – плагины для проигрывания различных форматов;
2. Output – для записи музыки в различных форматах;
3. General Purpose – плагины общего назначения;
4. DSP/Effect – для обработки звука;
5. Visualization – плагины, которые делают что-нибудь в такт музыке.

Плагин к Winamp представляет из себя обычную динамическую библиотеку (DLL – Dynamic Link Library), которая должна экспортировать необходимую для данного плагина информацию. Шаблон библиотеки для любого типа плагинов можно взять на сайте Winamp'a – http://www.winamp.com. В этой статье мы рассмотрим процесс создания самого впечатляющего, на мой взгляд, типа плагинов – визуализационного.
В составе визуализационного плагина можно выделить заголовок и модули. Вот формат этих частей:

Заголовок плагина
winampVisHeader = packed record
  version: Integer;
  description: PChar;
  getModule: function( which: integer ): PwinampVisModule; cdecl;
end;
version – версия, для данного типа плагинов должна быть равна $101 (знак '$' указывает на шестнадцатеричную систему счисления).
description – описание плагина.
getModule – функция, которая должна возвратить указатель на тело плагина.

Модуль плагина
winampVisModule = packed record
  //описание модуля
  description: PChar;
  //идентификатор окна Winamp'a (заполняет Winamp)
  hwndParent: HWND;
  // идентификатор библиотеки (заполняет Winamp)
  hDllInstance: HWND;
  //sample rate (заполняет Winamp)
  sRate: Integer;
  //количество каналов (заполняет Winamp)
  nCh: Integer;
  //задержка между получением данных от Winamp'a и
  //реакцией на них (в мс)
  latencyMs: Integer;
  //количество мс между получениями данных от Winamp'a
  delayMs: Integer;
  //следующие 4 параметра и есть те данные о звуке, которые мы
  //будем через некоторый промежуток времени получать от Winamp'a
  spectrumNch: Integer;