在播放音乐时显示其波形,应该如何实现(100分)

  • 主题发起人 主题发起人 bestluo
  • 开始时间 开始时间
B

bestluo

Unregistered / Unconfirmed
GUEST, unregistred user!
在播放音乐时显示其波形,应该如何实现
 
mmtools控件组,基本都不用写代码
 
请问这里指的“波形”是指频率还是声音大小?
是不是无声(比如两句话之间)的时候波形是平的?
用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后,编译、安装即可。
 
To:JackShell
MMtools下载不了啊,还有其他的地址么
 
NERO刻录软件里自带了一个Wave波形的OCX控件, 很专业很酷,要不要试试?
 
To: bestluo
告诉我你的邮箱,我寄一封给你吧。好吗?
 
To:JackShell
我的邮箱是bestluo1@163.com
谢谢
 
多人接受答案了。
 
后退
顶部