کنترل صدا

[رهنورد2]

برای کم وزیاد کردن صدا با شی media platerچه باید کرد

[babak869]

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


uses MMSystem;

type
TVolumeRec = record
case Integer of
0: (LongVolume: Longint) ;
1: (LeftVolume, RightVolume : Word) ;
end;

const DeviceIndex=5
{0:Wave
1:MIDI
2:CDAudio
3:Line-In
4:Microphone
5:Master
6:PC-loudspeaker}

procedure SetVolume(aVolume:Byte) ;
var Vol: TVolumeRec;
begin
Vol.LeftVolume := aVolume shl 8;
Vol.RightVolume:= Vol.LeftVolume;
auxSetVolume(UINT(DeviceIndex), Vol.LongVolume) ;
end;

function GetVolume:Cardinal;
var Vol: TVolumeRec;
begin
AuxGetVolume(UINT(DeviceIndex),@Vol.LongVolume) ;
Result:=(Vol.LeftVolume + Vol.RightVolume) shr 9;
end;


موفق باشید

[رهنورد2]

از این خط TVolumeRec = record
خطای not found'=' می دهد

[babak869]

سلام
شما در این تاپیک میتونید یه نمونه برنامه در یافت کنید.لطفا به کدنویسی اون دقت نمایید.
موفق باشید
http://barnamenevis.org/forum/showthread.php?p=274696#post274696