同时使用ACMWaveOut和TVideoCap的问题!(50分)

  • 主题发起人 主题发起人 firstrose
  • 开始时间 开始时间
F

firstrose

Unregistered / Unconfirmed
GUEST, unregistred user!
我用TVideoCap和ACMWaveOut写程序。我按照TVideoCap采集的Audio格式打开了
ACM,但我在OnAudio里无法用playback放采来的数据!真是没有道理!请大家看看!

Procedure TMainForm.InitAudio;
Var
WaveForMatex:TWaveForMatex;
begin

WaveForMatex.wFormatTag:=1;
WaveForMatex.nChannels:=1;
WaveForMatex.nSamplesPerSec:=8000;
WaveForMatex.nAvgBytesPerSec:=WaveForMatex.nSamplesPerSec;
WaveForMatex.nBlockAlign:=1;
WaveForMatex.wBitsPerSample:=8;
ACMWaveOut.Open(@WaveForMatex);
end;


procedure TMainForm.VideoCapAudioStream(sender: TObject;
lpWHdr: PWaveHdr);
begin

ACMWaveOut.PlayBack(lpWhdr^.lpData,lpWhdr^.dwBytesRecorded);
end;


 
好几天没上网了...
这个问题不太清楚,不过给分的话,厚着脸皮也要收啊[:D]
 
pihome 不是叫你回答,这个问题很久没人回答,,而我已经解决了。

因为你那个汉字编码的问题比我的全。所以就把分给你。
 
多人接受答案了。
 
后退
顶部