Next/Back

[alcaeus]

Hi Nils,

so sollte es funktionieren:

Delphi-Quellcode:

procedure TFormPlayer.Image7Click(Sender: TObject);
var
  i: integer;
begin
  BASS_ChannelPause(channel);
  position := 0;
  Playlist.ItemIndex:= (PlayList.ItemIndex + 1) mod PlayList.Items.Count;

  Channel := BASS_StreamCreateFile(FALSE, PChar(playlist.items[Playlist.ItemIndex]), 0, 0, 0);

  if i >= 0 then
    BASS_StreamPlay(Channel, False, 0);
end;

Zur Erklaerung:
Diese Zeile Playlist.ItemIndex:= (PlayList.ItemIndex + 1) mod PlayList.Items.Count; inkrementiert zuerst ItemIndex, und weisst diesem anschliessend den Rest aus der Division durch die Anzahl Elemente zu. Der Rueckgabewert ist naemlich >= 0 aber kleiner als PlayList.Items.Count. Somit wirst du nie eine AV erhalten.

Greetz
alcaeus

[add]Werd ich in den Credits von deinem Player vermerkt? Schliesslich stammt ja fast schon der halbe Code von mir [/add]