von dem CD Player
// Setup output - default device
if (not [color=#ff0000]BASS_Init(-1, 44100, 0,
Handle, nil)[/color]) then
begin
MessageBox(0, 'Can''t initialize device', 'Error', MB_ICONERROR);
Halt;
end;
hier vor dem Texz dann kommt das für mein Micro
//------ M icro AUswertung ----------------nd
[color=#ff0000]BASS_Init(-1, 44100, 0, [i][b]Application[/b][/i].Handle, nil);[/color]
OcilloScope := TOcilloScope.Create(PaintFrame.Width, PaintFrame.Height);
Spectrum := TSpectrum.Create(PaintFrame.Width, PaintFrame.Height);
fftdata1 :=tstringlist.create;