Hallo zusammen,

ich hab ein Problem mit einer Playlist in Form einer Listbox , diese Listbox soll auf Knopfdruck gelöscht werden inklusive Beendigung der Wiedergabe.Dafür nutze ich folgende Prozedur ...

markieren

Code:

procedure TForm1.BitBtnWithColor14Click(Sender: TObject);
  begin
   BASS_Channelstop(strs[iplay]); // oder bass_stop , Fehler tritt trotzdem auf ...
   lblauftext.Caption:=('open a file please');
   listbox1.clear;
   ListBox1.ItemIndex:=-1;
  end;

Wenn ich jetzt jedoch nach dem Löschen der Liste wieder einen Titel öffne, wird der Titel gespielt, den ich vor dem Löschen der Playlist zu letzt an hatte, in der Listbox angezeigt wird jedoch der aktuell geöffnete. Jeder weitere Titel den ich hinzufüge wird mit einer Verschiebung um so viele tracks wie vor dem Löschen auf der Playlist waren abgespielt. Muss ich irgendwie noch den letzten Stream löschen? Ich nutze Bass2.1 und ich hab nich wirklich viel Ahnung von Delphi, also verständliche Antworten bitte .

gut habs selbst noch rausbekommen, musste bass_free; einsetzen und anschliessend wieder Bass mit "BASS_init(1, 44100,0, Application.Handle, nil);" initialisieren ...

Hi

du must nicht jedes Mal die Engine (BASS_Init) neu initialisieren! BASS_Init musst du nur einmall aufrufen wen du dein Programm startest (FormCreate) und BASS_Free wen du dein Programm Schlisst (FormDestroy)

Benutze einfach
BASS_MusicFree(Channel);
BASS_StreamFree(Channel);

Hier hatte ich schon etwas drüber geschrieben + Code
topic


ich hoffe ich konnte dir helfen.