HELP

[Михаил Юрьевич]

Есть такой исходняк работает на два TrackBar
на две колонки
но не могу откампилировать,выдает ошибку
на строке waveOutSetVolume.Если можно
обьясните в чем ошибка
procedure TForm1.TrackBar1Change(Sender: TObject);
var
s: dword;
a,b: word;
h: hWnd;
begin
a:=trackbar1.position;
b:=trackbar2.position;
s:=(a shl 16) or b;
waveOutSetVolume(h,s);
end;

[xPAL]

Чтоб на waveoutsetvolume не ругалась- подключи mmsystem.
А лучше использовать код на один трекбар-с двумя по нормальному не получится.
100% работает, Звук стерео !!!trackbar1.max:=255;!!!

procedure TForm1.TrackBar1Change(Sender: TObject);
var i :cardinal;
begin
i:=trackbar1.Position;
waveoutsetvolume (0,(i shl 24)+(i shl 8));
end;

На будущее - баланс между двумя колонками 16.
(i shl 24)+(i shl 8) это 24 -8.

Если просто написать waveoutsetvolume (0,i); -то ничего не будет
первый параметр лучше 0

P.S 2 месяца ушло, чтоб по норм сделать.

[_Dmitry]

Зчем дублировать темы???
Вам все уже написали http://www.programmersforum.ru/showthread.php?t=13391
Если вам нужно разделить 2 канала, то бери значения из двух TrackBar-ов. Напимер, короткий код Михалыча:
waveOutSetVolume(WAVE_MAPPER,TrackB ar1.Position+(TrackBar2.Position shl 16));
Ну, и не забывай выставить для обеих TrackBar-ов Max=65535

[Квэнди]

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