как управлять звуком правой и левой колонок с помощью TrackBar?

[ZhekON]

Люди, как можно управлять звуком правой и левой колонок с помощью TrackBar? Ну чтобы можно было увеличить звук определённого динамика перетаскиванием указателя.

Левый Динамики Правый
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|-0-| |-0-|

[mrandrey]

обьяснять не буду, розберешься надеюсь

uses MMSystem;

function GetWaveVolume: DWord;
var Woc : TWaveOutCaps;
Volume : DWord;
begin
result:=0;
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then begin
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin
WaveOutGetVolume(WAVE_MAPPER, @Volume);
Result := Volume;
end;
end; 
end;

procedure SetWaveVolume(const AVolume: DWord);
var Woc : TWaveOutCaps;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then begin
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, AVolume);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var a,b:integer;
begin
a:=GetWaveVolume shr 16;
b:=GetWaveVolume-(GetWaveVolume shr 16)shl 16;
sb2.Position:=a;
sb.Position:=b;
caption:=inttostr(a)+'<=>'+inttostr(b);
end;

procedure TForm1.sbChange(Sender: TObject);
begin
SetWaveVolume(MakeLong(sb.Position,sb2.Position)); 
caption:=inttostr(sb.Position)+'<=>'+inttostr(sb2. Position);
end;

[ZhekON]

sb,sb2 - это TrackBar'ры???

[Cezar]

uses MMSystem;

function GetWaveVolume: DWord;
var Woc : TWaveOutCaps;
Volume : DWord;
begin
result:=0;
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then begin
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin
WaveOutGetVolume(WAVE_MAPPER, @Volume);
Result := Volume;
end;
end;
end;

procedure SetWaveVolume(const AVolume: DWord);
var Woc : TWaveOutCaps;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then begin
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, AVolume);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var a,b:integer;
begin
a:=GetWaveVolume shr 16;
b:=GetWaveVolume-(GetWaveVolume shr 16)shl 16;
sb2.Position:=a;
sb.Position:=b;
caption:=inttostr(a)+'<=>'+inttostr (b);
end;

procedure TForm1.sbChange(Sender: TObject);
begin
SetWaveVolume(MakeLong(sb.Position, sb2.Position));
caption:=inttostr(sb.Position)+'<=> '+inttostr(sb2. Position);
end;

Ну зачем так усложнять?

Я предлагаю более простой метод:

Подключаешь MMSystem.
Кидаешь два трэкбары.
И в событиях оных пишешь
var volword;
begin
vol:=trackbar1.position*1000;
asm
shl vol,16;
end;
vol:=vol+trackbar2.position*1000;
waveOutSetVolume(0, vol);
end;
И еще свойство МАХ в трэкбарах поставь на 65.
У меня катит.

[ZhekON]

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

И в событиях оных пишешь
var volword;
begin
vol:=trackbar1.position*1000;
asm
shl vol,16;
end;
vol:=vol+trackbar2.position*1000;
waveOutSetVolume(0, vol);
end;
И еще свойство МАХ в трэкбарах поставь на 65.
У меня катит.
[/FONT][/SIZE]

я одного не пойму, что одно и тожэ писать в обох обработчиках- и что оно будет?
И у меня только один левый динамик работает, а второй глушыт вообще и делает эхо(луну).
Как зделать чтобы оба динамика работали?
Если у тебя работает, то скинь код твоих работающих обработчиков событий....ато ну никак не получается
и ещё было бы хорошо чтобы когда програма завершает работу звук ставал такой самый, как и был до запуска... как сбросить на умолчание звук не заходя в "Громкость"?

[Сильванович Михаил]

Вот. Вроде работает.

[ZhekON]

Сообщение от Сильванович Михаил

Вот. Вроде работает.

Спасиба за код, всё оказалось так просто.

[ZhekON]

ещё вопрос.
Как зделать чтобы трекбар(в вертикальном положэнии) начинал одщёт снизу вверх, а не с вверху вниз?

[Сильванович Михаил]

Делай так:
TrackBar1.Position:=Trackbar1.Max; //мы будем считать начальным
pos:=TrackBar1.Max-TrackBar1.Postion; //для себя определяем какая же
//позиция относительно нашей СО.