有关dspack播放音乐时的波形图(100分)

  • 主题发起人 主题发起人 huwei1118
  • 开始时间 开始时间
H

huwei1118

Unregistered / Unconfirmed
GUEST, unregistred user!
用了dspack控件和TdsTrackBar控件,做了个音乐播放器,但显示的音乐波形图,是那种火焰的效果,想改变一下波形图,改成winamp播放器一样的条形图 不知道可以不可以。这是我的部分代码。还有一个问题就是在播放时,怎样成倍的快放和慢放,请高手帮帮忙
FFilterGraph := TFilterGraph.Create(nil);
FFilterGraph.LinearVolume := True;
FDSPackDCDSPFilter := TDSPackDCDSPFilter.Create(nil);
FDSPackDCDSPFilter.FilterGraph := FFilterGraph;
FDSPackDCDSPFilter.OnVisualData := DSPackDCDSPFilterVisualData;
FDSPackDCDSPFilter.OnFlush := DSPackDCDSPFilterFlush;
FDSPackDCDSPFilter.OnPCMData := DSPackDCDSPFilterPCMData;
FDSPackDCDSPFilter.OnMediaTypeChanged := DSPackDCDSPFilterMediaTypeChanged;
FDSPackDCDSPFilter.VisualEnabled := True;
FDSPackDCDSPFilter.DSPEnabled := True;

FDCSpectrum := TDCSpectrum.Create(nil);
FDCSpectrum.OnSpectrumData := DCSpectrumSpectrumData;
FVolume := GetBasicAudioVolume(FilterGraph.Volume - 10000);

FDCTrueBass := TDCTrueBass.Create(nil);

frmDSPTrueBass := TfrmDSPTrueBass.Create(nil);
frmDSPTrueBass.DCTrueBass := FDCTrueBass;

FPaintBox := TPaintBox.Create(nil);
 
dspack没有用过吗?? Spectrum 没人用过吗?
 
有人知道点什么吗?帮帮忙啊
 
后退
顶部