Сделай сам на Delphi: Визуализационный плагин к Winamp
30.03.2008 от Иван Ширко SetLock(1, True)
else
SetLock(1, False);
if (this_mod.spectrumData[0,10] > 40) then
SetLock(2, True)
else
SetLock(2, False);
result := 0;
end;
//наши действия при закрытии плагина
procedure quit( this_mod: PwinampVisModule ); cdecl;
begin
end;
//экспортируемая функция
exports
winampVisGetHeader;begin
//задаём начальные значения для структуры плагина
hdr.version := VIS_HDRVER;
hdr.description := PChar(descr);
hdr.getModule := @getModule;
mod1.description := PChar(mod1_descr);
mod1.hwndParent := 0;
mod1.hDllInstance := 0;
mod1.sRate := 0;
mod1.nCh := 0;
mod1.latencyMs := 25;
mod1.delayMs := 25;
mod1.spectrumNch := 2;
mod1.waveformNch := 0;
mod1.Config := @config;
mod1.Init := @init;
mod1.Render := @render;
mod1.Quit := @quit;
end.
После компиляции в Delphi такой плагин занимает менее 20 килобайт!
Готовую библиотеку и исходные тексты можно найти на форуме. К сожалению, мне не удалось найти вариант зажигания лампочек под WinXP без изменения состояния клавиш, так что печатать при включенном таком плагине будет проблематично. Но в качестве примера сгодится:)
Как видите, всю работу по обработке звука Winamp берёт на себя, поэтому создавать плагины к этому популярнейшему плееру может даже человек, весьма далёкий от музыки. В следующий раз мы поговорим о плагинах общего назначения.
Рубрики: Delphi, Winamp, Сделай сам |
02.04.2008 в 05:02
kRUTO!!! aftoru respeKt!!! DAVNO ISkaL TAKoE
06.06.2008 в 12:13
Спасибо за модули. В выходные попробую разобраться подробнее
16.07.2008 в 09:25
Отлично написано
14.08.2008 в 20:56
Статья очень пригодилась, все просто и понятно.
Огромное спасибо автору!:)
21.08.2008 в 13:06
Люблю когда по сути, мне понравилось.
10.09.2008 в 11:04
Благодарю, очень полезная вещь
13.09.2008 в 14:58
У меня коряво получается, но все равно спасибо.
14.09.2008 в 06:34
У меня не вышло(((
19.10.2008 в 07:15
Спасибо попробую.
22.10.2008 в 10:24
Спасибо большое!!! Одно но : в 2 плагине в коде нужно заменить “*********
keybd_event(c, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0);
//key release
*****”
на
“*********
keybd_event(c, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0) else
//key release
*****”. Иначе просто все лампочки всегда выключаються.
22.10.2008 в 10:48
>>Виталий
Спасибо!
28.09.2009 в 08:03
хм…интересно..спасибо за идею, давненько хотел что-либо подобное попробовать…
16.10.2009 в 01:02
Отлично я нашла что искала:)
28.07.2010 в 06:38
Класс, получилось
спасибо.
04.11.2010 в 14:35
Извините, может не по теме, но возможно вы подскажете, как сделать, что бы винамп запускался с моим скином на любом компе (на флешке если принесу и т.д.)… Т.е. сделать свой скин скином по умолчанию…
11.02.2012 в 15:29
Полезная информация. Я уже много лет пользуюсь Винампом но никогда не приходило на мысль что с помощью средств среды Delphi можно менять шаблон.