Sound Visualisierung

[Wishmaster]

Hi

Es ist sehr einfach wen du die bass.dll benutzt.

Delphi-Quellcode:

Play_Channel:=  BASS_StreamCreateFile(false, PChar(Filename), 0, 0, BASS_STREAM_AUTOFREE) ;

{----------------------------------- Get VU -----------------------------------}

Procedure  Get_VULevel(var L, R : Integer);
var VUCH : DWORD; L_VU, R_VU : integer;
begin
  VUCH := BASS_ChannelGetLevel(Play_Channel);   //from 0 (silent) to 32768 (max)
   L_VU := LOWORD(VUCH);
   R_VU := HIWORD(VUCH);
  if (BASS_ChannelIsActive(Play_Channel) = BASS_ACTIVE_PLAYING) then
   begin
    L:= L_VU;
    R:= R_VU;
   end else
  begin
    L:= 0;
    R:= 0;
  end;
end;



//dann mit nem teimer

var L, R : integer
begin 
 VULevel(L,R);

  ProgressBars_L.Position:=   R;  
  ProgressBars_R.Position :=  L;
End.