Delphi ACM控件音频录播播放组件
Delphi 的音频开发里,ACM 控件真是个老朋友了,用得好的话,录音、播放、转码都不在话下。
TACMWaveIn控件是用来干嘛的?说白了就是录音,从声卡、麦克风抓音频数据挺方便。你设个DeviceID
选输入源,配好Format
,一招StartRecord
就开始录了,录完StopRecord
停下来,响应也快。
和它一对好搭档的就是TACMWaveOut控件,专门负责音频播放。操作方法差不多,设好Format
和DeviceID
,用Write
把缓冲区的音频推过去就能放。做个播放器、语音提示系统之类的都挺适合。
要是你想让用户自己挑选编码器,那TACMDialog控件就派上用场了。它会弹出系统默认的 ACM 选择框,让人选压缩格式、采样率这些,自己调节音质也不是问题。
这些控件底层靠的是 Windows 的ACM API,支持不少格式,像PCM
、MP3
、ADPCM
都能玩。更重要的是,你不用自己研究音频编解码的细节,控件全帮你封装好了,调用也不复杂。
如果你手上有那个叫delphi_componenty
的压缩包,别急着删,里面有控件源码、使用例子,还有点文档,尤其对新接触 ACM 的朋友来说,挺值一看的。
如果你还想拓展下,不妨看看Delphi ACM 控件,语音聊天经典之作这篇文章,有些实战经验还蛮有启发的。
delphi_acm.rar
预估大小:12个文件
delphi_componenty
文件夹
ACM-distribuce
文件夹
ACMDialog
文件夹
acmdialog.txt
712B
ACMDialog.dcr
476B
ACMDialog.pas
1KB
msacm.pas
34KB
ACMWaveOut
文件夹
acmwaveout.txt
316B
ACMWaveOut.dcr
716B
21.5KB
文件大小:
评论区