Эквалайзер

← →
alex810 © (2007-05-21 15:00) [0]

Подскажите пожалуйста как сделать эквалайзер наподобие как в Winampе?

← →
Jeer © (2007-05-21 15:19) [1]

Многому научиться, для начала.

← →
alex810 © (2007-05-21 15:28) [2]

Спосибо за ответ.

← →
Сергей М. © (2007-05-21 15:29) [3]

> alex810 © (21.05.07 15:00)

А в чем затруднения ?

← →
alex810 © (2007-05-21 15:31) [4]

Не сталкивался с таким заданием

← →
Сергей М. © (2007-05-21 15:33) [5]

Ну вот теперь, как видно, столкнулся.
Так в чем же таки затруднения ?

← →
alex810 © (2007-05-21 15:37) [6]

Не знаю как. Прикреплю к компоненту например TrackBar значения от 0 до 100 или сколько там надо. Буду перемещать, а значения Position передавать. Затруднения в том куда и как передавать?

← →
clickmaker © (2007-05-21 15:40) [7]

а чем управляет эквалайзер?

← →
alex810 © (2007-05-21 15:41) [8]

> а чем управляет эквалайзер?

Ну например увеличивает или уменьшает басы или низкие частоты

← →
clickmaker © (2007-05-21 15:42) [9]

> уменьшает басы или низкие частоты

у кого?

← →
Сергей М. © (2007-05-21 15:42) [10]

Причем здесь TrackBar ?

Он что, является "эквалайзером" ?

← →
alex810 © (2007-05-21 15:45) [11]

> Причем здесь TrackBar ?
>
> Он что, является "эквалайзером" ?

Громкостью я управляю TrackBarом. Ну думаю можно и эквалайзер сделать так.

← →
Сергей М. © (2007-05-21 15:47) [12]

> alex810 © (21.05.07 15:45) [11]
>
>

> Громкостью я управляю

Громкостью чего ?

← →
Knight © (2007-05-21 15:48) [13]

Винампа?

← →
clickmaker © (2007-05-21 15:48) [14]

блин, тут поневоле себя Мюллером начинаешь чувствовать
да, Сергей? )

← →
Сергей М. © (2007-05-21 15:49) [15]

> clickmaker © (21.05.07 15:48) [14]

Угу)

← →
{RASkov} © (2007-05-21 15:51) [16]

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

← →
alex810 © (2007-05-21 15:54) [17]

> Винампа?

Причем здесь Винамп. Я задал вопрос наподобие как у Винампа. Громкостью динамиков.
Вот так я управляю звуком
а как управлять частотами звука я не знаю

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;

← →
Сергей М. © (2007-05-21 15:57) [18]

> наподобие как у Винампа. Громкостью динамиков

Каких динамиков ? Винамп не управляет динамиками. И никогда не управлял.

← →
clickmaker © (2007-05-21 15:58) [19]

mixerSetControlDetails()?

> Каких динамиков ? Винамп не управляет динамиками. И никогда
> не управлял.

Как будто не поняли вопроса. Если нет то как вам еще объяснить не знаю

> alex810 © (21.05.07 16:04) [20]

Да понял я все )
Кроме одного - причем здесь динамики ?

> как управлять частотами звука я не знаю

Смотри все касаемое Фурье-преобразований, если хочешь понять суть.

> 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

Спасибо за ссылку.

> Смотри все касаемое Фурье-преобразований, если хочешь понять
> суть.

Скажите Где если не трудно.

> Да понял я все )
> Кроме одного - причем здесь динамики ?

Зачем издеваться? Ну уровнем звука. Не так выразился.

> Где

Здесь:

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

> Ну уровнем звука

Звук звуку рознь.

> Звук звуку рознь.

Спасибо большое.

bass.dll

Эквалайзер Найти похожие ветки