![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Эквалайзер
alex810 © (2007-05-21 15:00:00)Подскажите пожалуйста как сделать эквалайзер наподобие как в Winampе?
X9 (2007-05-21 16:53:00) [1]bass.dll
alex810 (2007-05-21 16:26:00) [2]
> Звук звуку рознь.
Спасибо большое.
Сергей М. (2007-05-21 16:22:00) [3]
> Где
Здесь:
http://www.google.ru/search?q=Delphi+%D1%8D%D0%BA%D0%B2%D0%B0%D0%BB%D0%B0%D0%B9%D0%B7%D0%B5%D1%80&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:ru:official&client=firefox-a
> Ну уровнем звука
Звук звуку рознь.
alex810 (2007-05-21 16:15:00) [4]
> Да понял я все )
> Кроме одного - причем здесь динамики ?
Зачем издеваться? Ну уровнем звука. Не так выразился.
alex810 (2007-05-21 16:14:00) [5]
> Смотри все касаемое Фурье-преобразований, если хочешь понять
> суть.
Скажите Где если не трудно.
alex810 (2007-05-21 16:12:00) [6]
> http://www.google.com/search?num=20&hl=ru&newwindow=1&q=%28%D0%AD%D0%BA%D0%B2%D0%B0%D0%BB%D0%B0%D0%B9%D0%B7%D0%B5%D1%80%2BDelphi%29&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=
> http://www.google.com/search?num=20&hl=ru&newwindow=1&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=(%D0%AD%D0%BA%D0%B2%D0%B0%D0%BB%D0%B0%D0%B9%D0%B7%D0%B5%D1%80%2BDelphi%2BBASS)&spell=1
Спасибо за ссылку.
Сергей М. (2007-05-21 16:10:00) [7]
> alex810 © (21.05.07 16:04) [20]
Да понял я все )
Кроме одного - причем здесь динамики ?
> как управлять частотами звука я не знаю
Смотри все касаемое Фурье-преобразований, если хочешь понять суть.
alex810 (2007-05-21 16:04:00) [8]
> Каких динамиков ? Винамп не управляет динамиками. И никогда
> не управлял.
Как будто не поняли вопроса. Если нет то как вам еще объяснить не знаю
clickmaker (2007-05-21 15:58:00) [9]mixerSetControlDetails()?
Сергей М. (2007-05-21 15:57:00) [10]
> наподобие как у Винампа. Громкостью динамиков
Каких динамиков ? Винамп не управляет динамиками. И никогда не управлял.
alex810 (2007-05-21 15:54:00) [11]
> Винампа?
Причем здесь Винамп. Я задал вопрос наподобие как у Винампа. Громкостью динамиков.
Вот так я управляю звуком
а как управлять частотами звука я не знаю
procedure TForm1.TrackBar1Change(Sender: TObject);
var
LVol: Word;
RVol: Word;
begin
LVol := TrackBar1.Position;
RVol := TrackBar2.Position;
SetWaveVolume(MakeLong(LVol, RVol));
end;
function GetWaveVolume(var LVol: DWORD; var RVol: DWORD): Boolean;
var
WaveOutCaps: TWAVEOUTCAPS;
Volume: DWORD;
begin
Result := False;
if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then
if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
begin
Result := WaveOutGetVolume(WAVE_MAPPER, @Volume) = MMSYSERR_NOERROR;
LVol := LoWord(Volume);
RVol := HiWord(Volume);
end;
end;
{RASkov} (2007-05-21 15:51:00) [12]http://www.google.com/search?num=20&hl=ru&newwindow=1&q=%28%D0%AD%D0%BA%D0%B2%D0%B0%D0%BB%D0%B0%D0%B9%D0%B7%D0%B5%D1%80%2BDelphi%29&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=
http://www.google.com/search?num=20&hl=ru&newwindow=1&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=(%D0%AD%D0%BA%D0%B2%D0%B0%D0%BB%D0%B0%D0%B9%D0%B7%D0%B5%D1%80%2BDelphi%2BBASS)&spell=1
Сергей М. (2007-05-21 15:49:00) [13]
> clickmaker © (21.05.07 15:48) [14]
Угу)
clickmaker (2007-05-21 15:48:00) [14]блин, тут поневоле себя Мюллером начинаешь чувствовать
да, Сергей? )
Knight (2007-05-21 15:48:00) [15]Винампа?
Сергей М. (2007-05-21 15:47:00) [16]
> alex810 © (21.05.07 15:45) [11]
>
>
> Громкостью я управляю
Громкостью чего ?
alex810 (2007-05-21 15:45:00) [17]
> Причем здесь TrackBar ?
>
> Он что, является "эквалайзером" ?
Громкостью я управляю TrackBarом. Ну думаю можно и эквалайзер сделать так.
Сергей М. (2007-05-21 15:42:00) [18]Причем здесь TrackBar ?
Он что, является "эквалайзером" ?
clickmaker (2007-05-21 15:42:00) [19]
> уменьшает басы или низкие частоты
у кого?
alex810 (2007-05-21 15:41:00) [20]
> а чем управляет эквалайзер?
Ну например увеличивает или уменьшает басы или низкие частоты