Регулировка звука

[bookkc]

Как к модулю base.dll приделать регулировку звука, сам модуль у меня зпускает радиостанцию одну

Желательно исходнк если не тяжело!)

[b2soft]

base.dll или bass.dll?????

[raxp]

...TC, вы демки пакета BASS вообще смотрите? там все есть, в том числе и регулировка.

[bookkc]

bass.dll, ошибочка вышла, писал с памяти

В примерах я ненашел помогите найти хоть пример

[bookkc]

Вот мне помогли на другом форуме:

Во этой ссылке http://dimsog.wordpress.com/2010/08/28/130/ есть мануал как сделать регулировку звука, я проделал такое:

var channel: HStream;
//тут програмный код
 
function BASS_ChannelSetAttribute(handle, attrib: DWORD; value: FLOAT): BOOL;
 
begin
 
end;
 
 
procedure TForm1.Button11Click(Sender: TObject);
begin
BASS_ChannelSetAttribute(channel, BASS_ATTRIB_VOL, 0.10);
end;
end.

Если я всё правильно сделал, то при нажатии на кнопку у меня должен звук у меньшится до 10% а он как был так и есть Помогите, я уже пол дня мучаюсь

И как его привязать к TrackBar Что бы по человечиски выглядело ?

[Vigi]

Сообщение от bookkc

Вот мне помогли на другом форуме:

Во этой ссылке http://dimsog.wordpress.com/2010/08/28/130/ есть мануал как сделать регулировку звука, я проделал такое:

var channel: HStream;
//тут програмный код
 
function BASS_ChannelSetAttribute(handle, attrib: DWORD; value: FLOAT): BOOL;
 
begin
 
end;
 
 
procedure TForm1.Button11Click(Sender: TObject);
begin
BASS_ChannelSetAttribute(channel, BASS_ATTRIB_VOL, 0.10);
end;
end.

Если я всё правильно сделал, то при нажатии на кнопку у меня должен звук у меньшится до 10% а он как был так и есть Помогите, я уже пол дня мучаюсь

И как его привязать к TrackBar Что бы по человечиски выглядело ?

1. Скорей всего переменная сhannel - не определена, проверь какая используется при воспроизведении.

2.

procedure TForm1.sScrollBar1Change(Sender: TObject);
begin
  //BASS_SetVolume(sScrollBar1.Position/sScrollBar1.Max); - использует   системный регулятор.
  BASS_ChannelSetAttribute(chann, BASS_ATTRIB_VOL, sScrollBar1.Position/sScrollBar1.Max);
end;

Ну тут под таскбар не трудно переделать !