A
abcxca
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormCreate(Sender: TObject);<br>var<br> v:longint;<br>begin<br> waveoutgetvolume(0,@v);<br>end;<br><br><br>在 win xp下读出来的v 是0值? 谁知道为什么?<br>
C
Corn1
Unregistered / Unconfirmed
GUEST, unregistred user!
可能应该在FormShow事件中。
A
abcxca
Unregistered / Unconfirmed
GUEST, unregistred user!
这没有区别吧,试过在FormShow事件中,结果是一样的.
I
indexhome
Unregistered / Unconfirmed
GUEST, unregistred user!
waveoutgetvolume(0,v)试试<br>这个不管放在哪儿调用都是一样的！
A
abcxca
Unregistered / Unconfirmed
GUEST, unregistred user!
用waveoutgetvolume(0,v),编译报错.<br> Incompatible types: 'Integer' and 'PDWORD'<br>
W
wang_80919
Unregistered / Unconfirmed
GUEST, unregistred user!
那你就把“ v ”定义成" DWORD "。
W
wang_80919
Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
<br> WTWaveOut=class(TObject)<br> private<br> { Private declarations }<br> hWaveOut:HWAVEOUT;<br> wfex:tWAVEFORMATEX;<br> isInited:Boolean;<br> public<br> { Public declarations }<br> procedure Play(buf:LPCTSTR;size:DWORD);<br> published<br> { published declarations }<br> property wFormatTag:Word read wfex.wFormatTag default 1;<br> property nChannels:Word read wfex.nChannels default 1;<br> property nSamplesPerSec:Cardinal read wfex.nSamplesPerSec default 8000;<br> property wBitsPerSample:Word read wfex.wBitsPerSample default 8;<br> property nAvgBytesPerSec:Cardinal read wfex.nAvgBytesPerSec default 0;<br> property nBlockAlign:Word read wfex.nBlockAlign default 0; <br> Constructor Create(channels,freq,bits:Int64;wFormat:Word;hWnd:HWND);<br> destructor Destroy;<br> end;<br><br>{WTWaveOut}<br><br>Constructor WTWaveOut.Create(channels,freq,bits:Int64;wFormat:Word;hWnd:HWND);<br>var<br> res:MMRESULT;<br>begin<br> isInited:=True;<br>// wfex.cbSize:=sizeof(tWAVEFORMATEX);<br> wfex.cbSize:=32;<br> wfex.wFormatTag := wFormat ;<br> wfex.nChannels := channels;<br> wfex.nSamplesPerSec := freq;<br> wfex.wBitsPerSample := bits;<br> wfex.nBlockAlign := wfex.nChannels * (wfex.wBitsPerSample div 8);<br> wfex.nAvgBytesPerSec := wfex.nSamplesPerSec * wfex.nBlockAlign;<br><br> res := waveOutOpen(@hWaveOut,<br> WAVE_MAPPER, @wfex, DWORD(hWnd), 0, CALLBACK_WINDOW);<br> if (res<>MMSYSERR_NOERROR) then<br> begin<br> isInited:=False;<br>// self.Free;<br>// self:=nil;<br> end;<br>end;<br><br>destructor WTWaveOut.Destroy;<br>begin<br> isInited:=False;<br> waveOutReset(hWaveOut);<br> waveOutClose(hWaveOut);<br> hWaveOut := 0;<br>end;<br><br>procedure WTWaveOut.Play(buf:LPCTSTR;size:DWORD);<br>var<br> pwh:PWaveHdr;<br>begin<br> if isInited then<br> begin<br> pwh:=GetMemory(sizeof(WAVEHDR));<br> pwh.dwFlags:=0;<br> pwh.dwBufferLength:=size;<br> pwh.lpData:=GetMemory(size);<br>// FillMemory(pwh.lpData,size,0);<br> CopyMemory(pwh.lpData,buf,size);<br> waveOutPrepareHeader(hWaveOut, pwh, sizeof(WAVEHDR));<br> waveOutWrite(hWaveOut, pwh, sizeof(WAVEHDR));<br> end;<br>end;<br>
A
abcxca
Unregistered / Unconfirmed
GUEST, unregistred user!
调用waveoutgetvolume(hWaveOut,@v);<br>时出错,提示: '(' expected but ',' found
W
wang_80919
Unregistered / Unconfirmed
GUEST, unregistred user!
那是语法错误，可能是“ hWaveOut ”没有正确定义。<br>procedure WTWaveOut.Play(buf:LPCTSTR;size
WORD);<br>var<br> VWORD;<br>begin<br> if isInited then<br> begin <br> waveOutGetVolume(hWaveOut,@V);<br> end;<br>end;<br>没有问题。
WORD);<br>var<br> VWORD;<br>begin<br> if isInited then<br> begin <br> waveOutGetVolume(hWaveOut,@V);<br> end;<br>end;<br>没有问题。
A
abcxca
Unregistered / Unconfirmed
GUEST, unregistred user!
还是不很明,我是想做一个控制音量的东西,书上说的用waveoutgetvolume(0,@v);<br>读出音量,但读不出来.<br> 你的这个类是用来干什么的?具体怎样调用,特别是其中的参数,该怎样赋值?<br> 另外,你的这个类能实现这样的功能吗: 两个声道同时发左声道的东西,两个声道同时发右声道的东西(类卡拉ok).
W
wang_80919
Unregistered / Unconfirmed
GUEST, unregistred user!
我这个类不完善，也不能两个声道同时发左声道的东西,两个声道同时发右声道的东西，其实关键是“ procedure WTWaveOut.Play(buf:LPCTSTR;sizeWORD);<br> ”中的“ buf ”它里面是什么，声卡就响什么。所以，只要你能把数据作好就行。
WORD);<br> ”中的“ buf ”它里面是什么，声卡就响什么。所以，只要你能把数据作好就行。
4
41426277
Unregistered / Unconfirmed
GUEST, unregistred user!
//音量控制<br>procedure TForm1.TrackBar1Change(Sender: TObject);<br>var<br>t,v:Longint;<br>begin<br>// if a=0 then Exit;<br> t:=TrackBar1.Position;<br> v:=(t shl 8)or(t shl 24);<br> waveOutSetVolume(0,v);<br>end;<br><br>//左声道控制<br>procedure TForm1.TrackBar2Change(Sender: TObject);<br>var<br>t,v:Longint;<br>begin<br> t:=TrackBar2.Position;<br> waveOutGetVolume(0,@v);<br> v:=v and $ffff0000 or (t shl 8);<br> waveOutSetVolume(0,v);<br>end;<br><br>//右声道控制<br>procedure TForm1.TrackBar3Change(Sender: TObject);<br>var<br>t,v:Longint;<br>begin<br> t:=TrackBar3.Position;<br> waveOutGetVolume(0,@v);<br> v:=v and $0000ffff or (t shl 24);<br> waveOutSetVolume(0,v);<br>end;<br><br>//获得当前音量值<br>procedure TForm1.FormCreate(Sender: TObject);<br>var<br>v:longint;<br>begin<br> waveOutGetVolume(0,@v);<br> TrackBar2.Position:=hi(v);<br> TrackBar3.Position:=hi(v shr 16);<br> if hi(v)&gt;hi(v shr 16) then<br> TrackBar1.Position:=hi(v)<br> else<br> TrackBar1.Position:=hi(v shr 16);<br>end;