Man änder endlich den Code beim hinzufügen. Hast du mein Beitrag überhaupt gelesen? Und nimm meine
Unit aus dem Archiv raus du benutzt sie ja nichtmal.
Code:
sams[samc] := BASS_SampleLoad(FALSE, f, 0, 0, 3, BASS_SAMPLE_OVER_POS);
BASS_SampleFree(samc);
Ja das ist sinnvoll erstmal in speicher reinladen nichts damit machen und dann wieder löschen.
Die Visualisierung ist eins zu eins aus dem Bass Bespiel kopiert auch nicht gerade eine Heldentat.
Ausserdem hast du schon mal was von Resourcen freigeben gehört?
Code:
CircleScope := TCircleScope.Create(PaintFrame.Width, PaintFrame.Height);
OcilloScope := TOcilloScope.Create(PaintFrame.Width, PaintFrame.Height);
Spectrum := TSpectrum.Create(PaintFrame.Width, PaintFrame.Height);
Das mustt du in ondestroy wieder freigeben:
Code:
CircleScope.free;
OcilloScope.free;
Spectrum.free;
Code:
procedure TFormPlayer.Image2Click(Sender: TObject);
begin
Bass_Free;
Close;
end;
toll dann wird Bass_Free; ja auch aufgeufen wenn ich das Programm mit alt+f4 beende.