Equalizer (Parametric EQ) ohne Wiedergabe (mit Bass.dll?)

[Wishmaster]

Hi

Ich bin mir nicht ganz sicher aber ich glaube das müsste mit der bass.dll funzen.


Demo

Delphi-Quellcode:

var buf : array [0..10000] of BYTE;
begin


Channel:= BASS_StreamCreateFile(FALSE, PChar(FSource), 0, 0, BASS_STREAM_DECODE or BASS_STREAM_AUTOFREE);

{vergiss nicht} 
BASS_ChannelSetFX(channel, bla, bla); 


{Wen du willst kannst du das auch direkt in eine date schreiben indem du die bassenc.dll benutzt.}   
{Zbw. *.wav                                                                                      }
if (BASS_Encode_Start(Channel, PChar(FDest), BASS_ENCODE_PCM or BASS_ENCODE_AUTOFREE, nil, 0) = 0)then
begin
 //error
end

     while (BASS_ChannelIsActive(Channel) > 0) do
      begin
       BASS_ChannelGetData(Channel, @buf, 10000);
    if FAboard then Break;
       FPosition:= Trunc(100 * (BASS_ChannelGetPosition(Channel) / BASS_ChannelGetLength(Channel)));
      end;
  end