请问这里指的“波形”是指频率还是声音大小?
是不是无声(比如两句话之间)的时候波形是平的?
用MMtools实现“显示波形”的效果如何?跟WinAmp相比如何?
MMtools 2.0 FullSource :ftp://61.129.70.192/control/2003070818073927218.zip
以下为引用部分:
一级棒的多媒体控件,但是没有BCB6/Delphi7的包.那位可以作一下.
MMTools 2.0 for Delphi 7 安装方法
1. 将MMTools 2.0安装到目标目录。
2. 打开Source子目录中的compiler.inc;将其内容修改如下。
{.$DEFINE BETA}
{.$DEFINE TRIAL}
{$IFDEF TRIAL} {$DEFINE USEDLL} {$ENDIF}
{$DEFINE INST}
{$DEFINE USEASM}
{$DEFINE VER140}
{$DEFINE DEBUG}
{$IFDEF TRIAL} {$UNDEF DEBUG} {$ENDIF}
{$IFDEF INST} {$UNDEF DEBUG} {$ENDIF}
{ Defines to allow writing code which uses _new_ features }
{$IFNDEF VER80}
{$IFDEF VER90}
{$DEFINE DELPHI2} { Delphi 2.0 }
{$ENDIF}
{$IFDEF VER93} { C++ Builder 1.0 }
{$DEFINE BCB}
{$DEFINE CBUILDER}
{$DEFINE DELPHI2}
{$ENDIF}
{$IFDEF VER100}
{$DEFINE DELPHI3} { Delphi 3.0 }
{$ENDIF}
{$IFDEF VER110} { C++ Builder 3.0 }
{$DEFINE BCB}
{$DEFINE CBUILDER3}
{$DEFINE DELPHI3}
{$ENDIF}
{$IFDEF VER120}
{$DEFINE DELPHI3} { Delphi 4.0 }
{$DEFINE DELPHI4}
{$ENDIF}
{$IFDEF VER125} { C++ Builder 4.0 }
{$DEFINE BCB}
{$DEFINE CBUILDER3}
{$DEFINE CBUILDER4}
{$DEFINE DELPHI3}
{$DEFINE DELPHI4}
{$ENDIF}
{$IFDEF VER130}
{$DEFINE DELPHI3} { Delphi 5.0 }
{$DEFINE DELPHI4}
{$DEFINE DELPHI5}
{$IFDEF BCB}
{$DEFINE CBUILDER3}
{$DEFINE CBUILDER4}
{$DEFINE CBUILDER5}
{$ENDIF}
{$ENDIF}
{$IFDEF VER140}
{$DEFINE DELPHI3} { Delphi 6.0 }
{$DEFINE DELPHI4}
{$DEFINE DELPHI5}
{$DEFINE DELPHI6}
{$DEFINE DELPHI7}
{$IFDEF BCB}
{$DEFINE CBUILDER3}
{$DEFINE CBUILDER4}
{$DEFINE CBUILDER5}
{$DEFINE CBUILDER6}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$IFDEF DEBUG} { if Debugging ON }
{$A+,B-,C+,D+,F-,G+,I-,J+,K+,L+,M-,O-,P+,Q-,R-,S-,T-,U-,V-,W+,X+,Y+,Z-}
{$IFDEF WIN32} {$H+} {$ENDIF}
{$N+,E-}
{$else
} { if Debugging OFF }
{$A+,B-,C-,D-,F-,G+,I-,J+,K+,L+,M-,O+,P+,Q-,R-,S-,T-,U-,V-,W-,X+,Y-,Z-}
{$IFDEF WIN32} {$H+} {$ENDIF}
{$N+,E-}
{$ENDIF}
{$IFNDEF TRIAL}
{$IFDEF DELPHI3}
{$IFNDEF CBUILDER3}
{.$DEFINE BUILD_ACTIVEX}
{$IFDEF BUILD_ACTIVEX}
{$DEFINE CHECK_REGISTERED}
{$IFDEF CHECK_REGISTERED}
{$DEFINE MMTOOLSX}
{.$DEFINE MMAUDIOX}
{.$DEFINE MMCDDAX}
{.$DEFINE MMWAVEX}
{.$DEFINE MMDSOUNDX}
{.$DEFINE MMPCXX}
{.$DEFINE MMRCPX}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$IFDEF CBUILDER3}
{$OBJEXPORTALL ON}
{$HPPEMIT ‘#pragma -w-‘}
{$ENDIf}
{$IFDEF WIN32}
{$IFNDEF DEBUG}
{$DEFINE NO_WARNINGS}
{$ENDIF}
{$ENDIF}
{$IFDEF BUILD_ACTIVEX}
{$DEFINEdo
NT_USE_DLL}
{$ENDIF}
{.$DEFINE LEVEL_ONLY}
{.$DEFINE _BLADEENC}
{$IFNDEF INST} {$IFNDEF TRIAL} {$IFNDEF BUILD_ACTIVEX}
{.$DEFINE USEWAVEMPEG}
{$ENDIF} {$ENDIF} {$ENDIF}
{$IFDEF USEWAVEMPEG}
{$DEFINEdo
NT_USE_DLL}
{$DEFINE NO_WARNINGS}
{$ENDIF}
{$IFDEF WIN32}
{$IFDEF NO_WARNINGS}
{$WARNINGS OFF}
{$HINTS OFF}
{$ENDIF}
{$ENDIF}
3. 打开Delphi 7,将MMTools的Source子目录加到Delphi的Library path。
(菜单操作路径为:Tools|Environment Options...|Library|Library path)
4. 在Delphi 7中打开MMTools_d6.dpk,将其另存为MMTools_d7.dpk后,编译、安装即可。