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);
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);