Printable View
من برنامه ای برای پخش فایل ها نوشته ام ولی برای کنترل صدا با یک track bar)jantracker)چه كار بايد بكنم
من با کدزیر اين كار را مي كنم
if WaveOutGetDevCaps(WAVE_MAPPER, @MyWaveOutCaps, sizeof(MyWaveOutCaps))=MMSYSERR_NOERROR then
WaveOutSetVolume(WAVE_MAPPER, MakeLong(Volume, Volume));
end;
حال اگر بخواهم به جای wave قسمت volumeتغییر کند چه باید کرد
سلامنقل قول:
يه نگاه به اين صفحات بيندازيد :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
فكر كنم اين كارت رو راه بندازه
کد:procedure TForm1.TrackBar1Change(Sender: TObject);
var
Count, i: integer;
begin
Count := waveOutGetNumDevs;
for i := 0 to Count do
begin
waveOutSetVolume(i,longint(TrackBar1.Position*4369)*65536+longint(TrackBar1.Position*4369));
end;
end;
از این کد هم میتونی استفاده کنی
[MMSystem] must add to [USES]
AuxGetNumDevs;
[number of sound devices]
AuxGetVolume(I,@Vol);
[I:integer(number of device),vol:integer]
AuxsetVolume(I,J*1024-1);
[I:integer(number of device),J:integer(0 to 64=volume)]
number of sound devices
این شماره را از کجا باید تنظیم کنیم یا بدست آوریم