怎样获得波形数据(200分)

我想写一个能让delphi显示正在播放的声音的波形(频谱)的程序,怎样才能获得数据呢?

listen

http://www.csdn.net/format/#图形文件
看看这里，由有关wav的文章

好象api也可以实现
要查一查

我也想听听！

listen

timerri说可以用API,不知具体怎么做呢?

msdn中查查下面内容
waveInAddBuffer 向声音输入设备发送缓冲区 否 是 是
waveInClose 关闭声音输入设备 否 是 是
waveInGetDevCaps 获取声音输入设备性能 否 是 是
waveInGetErrorText 获取声音出错的信息文本 否 是 是
waveInGetID 获取声音输入设备ID 否 是 是
waveInGetNumDevs 返回声音输入设备数量 否 是 是
waveInGetPosition 获取声音设备输入位置 否 是 是
waveInMessage 向声音输入设备发送信息 否 是 是
waveInOpen 打开声音输入设备 否 是 是
waveInPrepareHeader 预备声音输入缓冲区 否 是 是
waveInReset 停止声音输入设备工作 否 是 是
waveInStart 停止声音输入设备工作 否 是 是
waveInStop 停止声音输入 否 是 是
waveInUnprepareHeader 清除预备的声音文件头 否 是 是
waveOutBreakLoop 中断声音输出循环 否 是 是
waveOutClose 关闭声音输出设备 否 是 是
waveOutGetDevCaps 获取声音输出设备性能 否 是 是
waveOutGetErrorText 获取声音出错文本 否 是 是
waveOutGetID 获取声音输出设备ID 否 是 是
waveOutGetNumDevs 获取声音输出设备数量 否 是 是
waveOutGetPitch 获取声音输出的强度 否 是 是
waveOutGetPlaybackRate 获取声音回放率 否 是 是
waveOutGetPosition 获取声音回放位置 否 是 是
waveOutGetVolume 获取声音音量 否 是 是
waveOutMessage 向声音输出设备发送消息 否 是 是
waveOutOpen 打开声音输出设备 否 是 是
waveOutPause 暂停声音回放 否 是 是
waveOutPrepareHeader 预备声音回放数据块 否 是 是
waveOutReset 停止声音回放 否 是 是
waveOutRestart 重开始声音回放 否 是 是
waveOutSetPitch 设置波形输出强度 否 是 是
waveOutSetPlaybackRate 设置回放率 否 是 是
waveOutSetVolume 设置输出音量 否 是 是
waveOutUnprepareHeader 清除预备声音数据块 否 是 是
waveOutWrite 写入声音输出设备 否 是 是

可是都没有办法获得波形啊,波形是频率的波形吧,可能需要对源文件进行解码,
用程序来计算,根据采样频率,等等,具体的我也不清楚.

我有一个能显示波形频率的控件，
xxz007@yeah.net
(请注明什么控件)

我想要：wx219@263.net,谢谢

可以给我一个吗 li0713@cmmail.com

多人接受答案了。

我可以告诉你，给我回信吧：Alongsun@sina.com
我深入分析了WAV文件的结构，对于，波形处理得到数据都能够自己完成。
而不用去调用什么API，算法要自己写，这才是做程序，就是错了也知道是怎么回事
对吧，如果总是用别人的控件呀API呀等就没有意义了，你还编程什么呀，
我之偏见！
QQ：65466700