کنترل ولوم صدا [بایگانی]

babak869

جمعه 11 آذر 1384, 11:35 صبح

سلام
ببخشید من میخوام با کدنویسی توی برنامه با تغییر ScrollBar یا TrackBar ولوم صدا رو کم و زیاد کنم.از دوستان چنین کدی رو نداره؟البته من کامپوننت اونو دارم اما میخوام که با کدنویسی انجام بدم نه از کامپوننت استفاده کنم.اگه راهنمایی کنید ممنون میشم

اَرژنگ

جمعه 11 آذر 1384, 11:43 صبح

http://delphi.about.com/cs/adptips2000/a/bltip0800_4.htm

babak869

جمعه 11 آذر 1384, 12:36 عصر

آرژنگ عزیز سلام
من این کد رو دارم اما کار نمیکنه .نمیدونم چرا .یه کد دیگه دارم و زمانی که روی TrackBar کلیک میکنم کلا ولوم قطع میشه اینم کدش

Uses MMsestem

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;

ممنون میشم منو بیشتر راهنمایی کنی

اَرژنگ

جمعه 11 آذر 1384, 13:16 عصر

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

babak869

جمعه 11 آذر 1384, 16:50 عصر

از کمکتون بسیار متشکرم
واقعا عالی بود
موفق باشید