تنظیم صدا

[رهنورد2]

من برنامه ای برای پخش فایل ها نوشته ام ولی برای کنترل صدا با یک track bar)jantracker)چه کار باید بکنم

من با کدزیر این کار را می کنم


if WaveOutGetDevCaps(WAVE_MAPPER, @MyWaveOutCaps, sizeof(MyWaveOutCaps))=MMSYSERR_NOERROR then
WaveOutSetVolume(WAVE_MAPPER, MakeLong(Volume, Volume));
end;

حال اگر بخواهم به جای wave قسمت volumeتغییر کند چه باید کرد

[babak869]

از این کد استفاده نمایید :



procedure TForm1.TrackBar1Change(Sender: TObject);
var
MyWaveOutCaps: TWaveOutCaps;
Volume: Integer;
begin
Volume:=TrackBar1.Position;
if WaveOutGetDevCaps(WAVE_MAPPER, @MyWaveOutCaps, sizeof(MyWaveOutCaps))=MMSYSERR_NOERROR then
WaveOutSetVolume(WAVE_MAPPER, MakeLong(Volume, Volume));
end;


موفق باشید