Есть звук или нет

[dimka0986]

Помогите пожалуйста! Написал мультимедийный проигрыватель, но возникла проблема со звуком. Использовал TrackBar.

procedure TControlForm.TrackBar1Change(Sender: TObject);
var
volume:DWORD;
x : integer;

begin

  TrackBar1.Min := 0;
  TrackBar1.Max := 100;
volume := 65000* Round((TrackBar1.Position-TrackBar1.Min)/(TrackBar1.Max-TrackBar1.Min));
  TrackBar1.Enabled := true;
  volume := volume + (volume shl 16);
  waveOutSetVolume(WAVE_MAPPER,volume);
 end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Вы не знали? Почитайте правила раздела...
Модератор

Поет только когда регулятор на второй половине риски. Получается, что звук просто включается и выключается.

Замечание учту!

[Terran]

Попробуйте сделать так:

procedure TControlForm.TrackBar1Change(Sender : TObject);
var
volume:DWORD;
begin
TrackBar1.Min := 0;
TrackBar1.Max := 100;
volume := 65000* Round(TrackBar1.Position);
TrackBar1.Enabled := true;
volume := volume + (volume shl 16);
waveOutSetVolume(WAVE_MAPPER,volume );
end;

Если не получится, то попробуйте уменьшить значение 65000 и попробовать с другим значением.

[raxp]

newvol:=(($ffff * fLeftVolume) div 100)+((($ffff * fRightVolume) div 100) shl $10);

//set volume
waveOutSetVolume(WAVE_MAPPER, newvol);

так вы сможете раздельно, если одним движком параллельно, то fLeftVolume=fRightVolume=TrackBar1. Position... диапазон от 0..100.

[dimka0986]

Спасибо за помощь! Воспользовался

procedure TControlForm.TrackBar1Change(Sender : TObject);
var
volume:DWORD;
begin
TrackBar1.Min := 0;
TrackBar1.Max := 100;
volume := 500* Round(TrackBar1.Position);
TrackBar1.Enabled := true;
volume := volume + (volume shl 16);
waveOutSetVolume(WAVE_MAPPER,volume );
end;

Все работает! Единственный минус в том, что баланс звука меняет и в самом ПК.

[dimka0986]

Только не понял почему при 65000 Звук менялся в обратную сторону!

[raxp]

два канала регулировки находятся в одном 32 разрядном числе, каждое максимум 65535= $ffff = 0xffff и смещенный правый канал вверх (пост 3) ...так будет понятнее?

[dimka0986]

С трудом! Более простым языком?

[raxp]

куда уж более простым... ну, вот визуально еще

[dimka0986]

Понял! У меня такая картина была видна когда я поставил 1000.
Звук увеличивался до середины, а затем от середины начал с 0.
А можно сделать так, чтобы уровень звука регулировался только у плеера?

[raxp]

только, если ваш плеер написан с использованием потоков (bass, та iнше) ...или directsound или directshow, т.е. процесс регулировки не будет связан с общими системными настройками, аудиокарты.