Probleme mit Bass - Probleme beim Stoppen von MP3-Wiedergabe

pascalsv · Verfasst: Mo 14.08.06 09:54

Hallo zusammen,

da alle meine Versuche, meine aktuelle MP3-Wiedergabe mit Bass zu stoppen, fehlschlug, hier ein Minimalbeispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TfMain.mp3ListClick(Sender: TObject);
var     f       : PChar;
begin
  f := pchar(mp3List.Items.Objects[mp3List.itemIndex]);
  BASS_ChannelPlay(BASS_StreamCreateFile(False, f, 0, 0, 0), False);
  Sleep (2000);
  if not Bass_ChannelStop(BASS_StreamCreateFile(False, f, 0, 0, 0)) then
    MessageBox(Handle,'ERROR: Could not stop stream.','ERROR',MB_ICONERROR);
end;

Der Titel wird weiter abgespielt und keine Fehlermeldung ausgegeben.

Was stimmt hier nicht?

Danke,

Pascal

pascalsv · Verfasst: Mo 14.08.06 10:39

Hallo zusammen,

das Problem hat sich erledigt. Ich habe den Fehler gefunden.

Pascal

Gausi · Verfasst: Mo 14.08.06 10:59

pascalsv hat folgendes geschrieben:

das Problem hat sich erledigt. Ich habe den Fehler gefunden.

Dann wäre es für die anderen User evtl. nett, wenn du kurz sagen könntest, was der Fehler war.

Und wenn es nur ein kleiner Satz dazu ist, dass man sich das Handle, was Bass_StreamCreateFile zurückliefert, merken sollte, damit man es später abspielen und wieder stoppen kann. Und evtl. dass die Zeile nach dem Sleep etwas unsinnig ist, da dort ein neuer Stream erzeugt wird, der direkt wieder gestoppt wird, was natürlich auf den ersten absolut keinen Einfluss hat ;-)

_________________
We are, we were and will not be.

pascalsv · Verfasst: Mo 14.08.06 14:13

@Gausi:

Erwischt, genau das waren die Fehler.... *Peinlich*... :wink:

Pascal

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme